Jump to content

Recommended Posts

Posted

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
[b]oNetwork.MapNetworkDrive "T:", "\\art-nas\art-teacher"[/b]
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


[b]oNetwork.MapNetworkDrive "V:", "\\ART-NAS\art-share"[/b]

'Terminate script and engine
WScript.Quit 

 

Thanks

nN

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...