Login fil

<package>
<job>
<script language="VBScript">

'On Error Resume Next
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
  .navigate "http://192.168.1.1/logon/default.asp"
  .resizable=0
  .height=430
  .width=350
  .menubar=0
  .toolbar=0
  .statusBar=0
  .visible=1
End With
Do while oIE.Busy
  ' wait for page to load
  Wscript.Sleep 100
Loop

set WSHNetwork = WScript.CreateObject("WScript.Network")
strUser = oIE.document.all.username.value

'oIE.document.all.drev1.InnerText = "Drev l"&"\\boegballe01\" & strUser
'wshNetwork.MapNetworkDrive "l:", "\\boegballe01\" & strUser & "$"

'oIE.document.all.drev2.InnerText = "Drev p"
'wshNetwork.MapNetworkDrive "p:", "\\boegballe01\programmer$"

'oIE.document.all.drev3.InnerText = "Drev x"
'wshNetwork.MapNetworkDrive "x:", "\\boegballe01\Cd-rommer$"

oIE.document.all.drev4.InnerText = "Drev k"
wshNetwork.MapNetworkDrive "k:", "\\boegballe01\faelles$"

'oIE.document.all.drev5.InnerText = "Printer HP 2200DL"
'wshNetwork.AddWindowsPrinterConnection "\\boegballe01\HPLJ2200_2"

oIE.document.all.drev5.InnerText = "Printer HP 2300L2"
wshNetwork.AddWindowsPrinterConnection "\\boegballe01\HPLJ2300L2"


oIE.document.all.drev5.InnerText = "Printer Minolta 360"
wshNetwork.AddWindowsPrinterConnection "\\boegballe01\minolta360"

'oIE.document.all.drev6.InnerText = "Sætter aktiv printer"
' shNetWork.SetDefaultPrinter "\\boegballe01\minolta360"

Wscript.Sleep 5000
oIE.quit()
</script>
</job>
</package>