'Comments begin with an apostrophe
'Without this line, an already mapped drive will cause the script to stop with an error message:
On error resume next
'Create a network script object thingie
Set wshNetwork = CreateObject("WScript.Network")
'Actually map the drive letters
wshNetwork.MapNetworkDrive "i:", "\\Hermes\" & wshNetwork.UserName
wshNetwork.MapNetworkDrive "m:", "\\Hermes\Media"
wshNetwork.MapNetworkDrive "p:", "\\Atlas\Programs"
wshNetwork.MapNetworkDrive "s:", "\\Prodigit\Setup"
wshNetwork.MapNetworkDrive "v:", "\\Atlas\Media"
wshNetwork.MapNetworkDrive "w:", "\\Atlas\Warez"