lỗi automap ổ đĩa mạng

[tranhuyvh]

Chào các Bác
Các Bác làm ơn chỉ dẫn cho tôi khắc phục lỗi này với:
Tôi lấy trên mạng 1 đoạn VB Script và Map ổ đĩa mạng trên Windows 2003 và sửa lại như sau:


Option Explicit
'Declare variables
Dim objNetwork, objUser, CurrentUser
Dim strGroup

'Initialize Groups with const
Const Accounting_Group = "cn=Accounting"
Const Private_Group = "cn=SM_Private"
Const Public_Group = "cn=SM_Public"
Const Technology_Group = "cn=SM_Technology"
Const Corporate_Group = "cn=SM_Corporate"
Const Admin_Group = "cn=Administrators"



'Create objects and extract strGroup values
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject ("ADSystemInfo")
Set CurrentUser = GetObject ("LDAP://" & objUser.UserName)

'objNetwork.MapNetworkDrive "Q:", "\\servertest\Data"
'objNetwork.MapNetworkDrive "I:", "\\servertest\common"

strGroup = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroup,lcase(Corporate_Group)) then
objNetwork.MapNetworkDrive "j:", "\\servertest\Corporate"

ElseIf InStr(strGroup,lcase(Accounting_Group)) then
objNetwork.MapNetworkDrive "K:", "\\servertest\Accounting"

ElseIf InStr(strGroup,lcase(Public_Group)) then
objNetwork.MapNetworkDrive "M:", "\\servertest\Public_Equity_Market"

ElseIf InStr(strGroup,lcase(Private_Group)) then
objNetwork.MapNetworkDrive "X:", "\\servertest\Private_Company_Maket"

ElseIf InStr(strGroup,lcase(Technology_Group)) then
objNetwork.MapNetworkDrive "Y:", "\\servertest\Tech"

ElseIf InStr(strGroup,lcase(Admin_Group)) then
objNetwork.MapNetworkDrive "F:", "\\servertest\Tech"
objNetwork.MapNetworkDrive "W:", "\\servertest\Private_Company_Market"
objNetwork.MapNetworkDrive "H:", "\\servertest\Public_Equity_Market"
objNetwork.MapNetworkDrive "V:", "\\servertest\Corporate"
objNetwork.MapNetworkDrive "Z:", "\\servertest\Accounting"


End If

WScript.Quit

trên đó tôi đã tạo các Account và thư mục trên server. Nếu tôi chạy trực tiếp trên server với quyền admin thì Ok. nhưng các máy trạm logon vào thì báo lỗi sau:

Line:24
Char:1
Error: Type Mismatch: 'Join'
Code: 800A000D
Source:Microsoft VBScript runtime orror

Các Bác xem giúp em xử lý lỗi này với

thank you các Bác

[=========> Bổ sung bài viết <=========]

Một vấn đề là nếu em login trên máy trạm bằng account administrator của domain thì scrip chạy bình thường, nhưng login bằng các account trong các group thì bị lỗi trên.
Bác nào trải qua rồi thì giúp em xử lý lỗi này do nguyên nhân gì với.
Em cám ơn các Bác

[tranhuyvh]

Không Bác nào giúp em hết sao?