The problem we are having is when certain users (Both Students and staff) attempt to logon every time the drive script gets to the Terastation lines it errors with "Unknown username or bad password". As a result none of the other drives are mapped in the script.
All students are a member of a 'Student' group in active directory and staff are a member of the 'Staff' group. Both groups have full read/ write access on the NAS so I can't understand what could be causing it. Even manually giving a few students read/write access through the web interface doesn't solve the problem. The terastation has been added to the domain and picks up all the users/ groups fine. Its just the logon script we are having problems with.
I have checked settings with other users who are not having a problem connecting to the NAS and they are identical.
Does anyone have any ideas as to what could be causing this problem?
My Network is a Server 2003 environemnt with XP Clients
Terastation details
Model Name: TS-HTGL/R5
Firmware Version:1.27
Partition Share names:
• art-share
• Art-teacher
' Determine UserName and DN and then map home drive according to student year / Staff
'
'
'Get User DN
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
'Get Username
set oNetwork = CreateObject("WScript.Network")
Username = oNetwork.Username
'Map Communal Drives
oNetwork.MapNetworkDrive "N:", "\\***-svr-003\Apps"
oNetwork.MapNetworkDrive "S:", "\\***-mbr-003\Dept_shared"
'oNetwork.MapNetworkDrive "M:", "\\***-mbr-005\Multimedia"
If InStr(strUser, "Staff") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\staff$\"&Username
oNetwork.MapNetworkDrive "T:", "\\art-nas\art-teacher"
End If
If InStr(strUser, "Year00") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year00$\"&Username
End If
If InStr(strUser, "Year01") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year01$\"&Username
End If
If InStr(strUser, "Year02") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year02$\"&Username
End If
If InStr(strUser, "Year03") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year03$\"&Username
End If
If InStr(strUser, "Year04") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year04$\"&Username
End If
If InStr(strUser, "Year05") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year05$\"&Username
End If
If InStr(strUser, "Year06") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year06$\"&Username
End If
If InStr(strUser, "Year07") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-001\year07$\"&Username
End If
If InStr(strUser, "Year08") Then
oNetwork.MapNetworkDrive "H:", "\\10.1.0.7\year08$\"&Username
End If
If InStr(strUser, "Year09") Then
oNetwork.MapNetworkDrive "H:", "\\***-svr-003\year09$\"&Username
End If
oNetwork.MapNetworkDrive "V:", "\\ART-NAS\art-share"
'Terminate script and engine
WScript.Quit