Fix my logon script :(

[elzergone]

I'm dumb. scripting hurts my head.
please help.

Option Explicit
Dim strDriveLetter, strRemotePath
Dim objNetwork, objShell
Dim CheckDrive, AlreadyConnected, intDrive

strDriveLetter = "s:"
strRemotePath = "\\server\path"

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set CheckDrive = objNetwork.EnumNetworkDrives()

On Error Resume Next
AlreadyConnected = False
For intDrive = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(intDrive) =strDriveLetter _
Then AlreadyConnected =True
Next

If AlreadyConnected = True then
objNetwork.RemoveNetworkDrive strDriveLetter
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
End if
WScript.Quit

 

[ShockTech]

Wrong forum.

 

[pigster]

For basic drive and printer mapping try VBScripter (free):

http://www.mcse2000.com/downloads/vbscripter.zip