VB Login/Logon Script

A Simple Logon Script in VB...

'---Create Objects
 Set oShell = WScript.CreateObject("WScript.Shell")
 Set oNet = WScript.CreateObject("WScript.Network")
 Set objSys = WScript.CreateObject("ADSystemInfo")
 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

'---Declare Global Variables
 sComputerName = oNet.ComputerName
 sUserName = oNet.UserName
 sSysRoot = oShell.Environment("PROCESS").Item("SystemRoot")
 sDataServer = "\\SERVER01.DOMAIN.local\"

'---Main Code
 Call MapNetworkDrives

'---Exit Script
 WScript.Quit

'---Sub Routines
 Sub MapNetworkDrives
  ON ERROR RESUME NEXT
  oNet.RemoveNetworkDrive "H:"
  oNet.RemoveNetworkDrive "S:"
  oNet.RemoveNetworkDrive "X:"
  oNet.RemoveNetworkDrive "Y:"
  oNet.MapNetworkDrive "H:", sDataServer & "Home$\" & sUserName
  oNet.MapNetworkDrive "S:", sDataServer & "Shared$"
  oNet.MapNetworkDrive "X:", sDataServer & "Applications$"
  oNet.MapNetworkDrive "Y:", sDataServer & "SoftwareInstalls$"
 End Sub