LỖI SCRIPT Xin Giúp Đỡ

[tranhuyvh]

lỗi automap ổ đĩa mạng

--------------------------------------------------------------------------------

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ênserver 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