Web Development

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 tuskyvalley.k12.oh.us, 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.

Thread display: Collapse - | Expand +

All Comments

Related Discussions

Related Forums