On Error Resume Next
Public IE
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set wshShell = WScript.CreateObject("WScript.Shell" )

CreateIE()

user = wshNetwork.username
domain = wshNetwork.userdomain

'Echo info to front end
'ie.document.all.lblUser.InnerHTML = "<font size=2pt face=arial color=#ffffff>User: " & user& "</font>"
'ie.document.all.lblDomain.InnerHTML  = "<font size=2pt face=arial color=#ffffff>Domain: " & domain & "</font>"
'ie.document.all.lblComputer.InnerHTML = "<font size=2pt face=arial color=#ffffff>Computer: " & WSHNetwork.ComputerName & "</font>"


 mapNetwork "H:", "\\Server\Users\" & user
 mapNetwork "P:", "\\Server\Share"

  
  
' Begin Sub's  
  
sub mapNetwork(driveletter, netshare)
  'check if drive is already mapped by enumarating through mapped drives
  'if it is then remove the current mapping
  Dim Drive
  CheckNetworkMapping = False
  For Each Drive In wshNetwork.enumNetworkDrives
    If LCase(Drive) = LCase(DriveLetter) Then
      WshNetwork.RemoveNetworkDrive driveletter
    End If
  Next
  'now map the drive
  wshNetwork.MapNetworkDrive driveletter, netshare
end sub


Sub CreateIE()
  On Error Resume Next
  Set IE = CreateObject("InternetExplorer.Application")
  wshPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\"))
  With IE
    .navigate wshPath & "YourPage.htm"
    .resizable=0
    .height=365
    .width=660
    .menubar=0
    .toolbar=0
    .statusBar=0
    .visible=1
  End With
  Do while ie.Busy
    ' wait for page to load
    Wscript.Sleep 100
  Loop
  ie.document.body.style.cursor = "wait"
End Sub