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



Code:
' 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
Thanks
nN