Set wshNetwork = CreateObject( "WScript.Network" )
wshNetwork.RemoveNetworkDrive "G:", True
wshNetwork.MapNetworkDrive    "G:", "\\CompanyServer\Dept"
Set wshNetwork = Nothing