General discussion


Error 800A01C3 - VBScript (Login Script)

By thamilton ·
Any ideas? I received the above error when I run the login script as anyone that doesnt have administrative rights to the network.

The section that returns the error is below. I can't post the entire script here, but if you email me: thamilton at, I can email you a copy of the script.


sUserPath = "LDAP://" & objSysInfo.Username
Set objUser = GetObject(sUserPath)

sUser = objNetwork.UserName

For Each sGroup in objUser.MemberOf
sGroupPath = "LDAP://" & sGroup
Set objGroup = GetObject (sGroupPath)
sGroupName = objGroup.CN

Select Case sGroupName

Case "Class of 2006"

For iCounter = 0 to CheckDrive.Count - 1 Step 2
If CheckDrive.Item(iCounter) = sHomeDrive Then AlreadyConnected = True
If AlreadyConnected = True then
objNetwork.RemoveNetworkDrive shomeDrive
objNetwork.MapNetworkDrive "H:", sHomePath & "2006\" & sUser
objNetwork.MapNetworkDrive "H:", sHomePath & "2006\" & sUser
End If

This conversation is currently closed to new comments.

0 total posts (Page 1 of 1)  
Thread display: Collapse - | Expand +

All Comments

Back to Web Development Forum
0 total posts (Page 1 of 1)  

Related Discussions

Related Forums