Cyberwizzard.nl

Welcome to my world

Network login script for Windows XP Home

I just needed a script to log in on a Windows 2003 Server from Windows XP Home. Of course you can enter your password each time you need to access the shares - or you could just drop this little script in your Startup folder (call it 'network_login.vbs' for example).

network_login.vbs:

{codecitation class="brush:vb"}' VBScript to map a network drive. And provide a message box
' Author Berend Dekens http://www.cyberwizzard.nl/
' Based on code from Guy Thomas http://computerperformance.co.uk/
' -----------------------------------------------------------------
'
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, bSaveMapping, strUserName, strPassword
strDriveLetter = "Z:"
strRemotePath = "\\192.168.100.1\sharename"
bSaveMapping = true
strUserName = "yourname"
strPassword = "mysecretpassword"
' Purpose of the script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. Result Z: drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, bSaveMapping, strUsername, strPassword
' Extra code just to add a message box
WScript.Echo "The networkdrive "& strDriveLetter & " is now available"
WScript.Quit
' End of MapNetworkDrive Example Logon Script. {/codecitation}