dim wert(1)

Username = InputBox("Benutzername eingeben","Benutzer")
if Username = cancel then wscript.quit

PWD = InputBox("Passwort eingeben","Passwort")
if PWD = cancel then wscript.quit

Set fs = CreateObject("Scripting.filesystemobject") 
Set net = CreateObject("WScript.Network")
On Error Resume Next
If fs.driveExists("M:\") Then net.RemoveNetworkDrive "M:",True,True 
net.MapNetworkDrive "M:", "\\serverhome\datahome\HOME\" & Username, false, Username, PWD
If fs.driveExists("S:\") Then net.RemoveNetworkDrive "S:",True,True 
net.MapNetworkDrive "S:", "\\serversoft\datasoft", false, Username, PWD
If fs.driveExists("W:\") Then net.RemoveNetworkDrive "W:",True,True 
net.MapNetworkDrive "W:", "\\serverweb\dataweb", false, Username, PWD

if fs.fileExists("M:\novell-cifs.login") then
 Set datei = fs.OpenTextFile("M:\novell-cifs.login")
 Do Until datei.AtEndOfStream
  strLine = datei.Readline
  InputData = Split(strline, ";")
  i = 0
  For each strData In InputData
   wert(i) = strData
   i = i + 1
  next
  msgbox(wert(1))
  If fs.driveExists(wert(0)) Then net.RemoveNetworkDrive wert(0),True,True 
  net.MapNetworkDrive wert(0), wert(1), false, Username, PWD
 Loop
else
 freielaufwerke = 10
 mappingliste = 18
 produkt = 1
 while (produkt > 0)

  Select Case freielaufwerke
   Case 10:
    laufwerk = "N:"
   Case 9:
    laufwerk = "O:"
   Case 8:
    laufwerk = "P:"
   Case 7:
     laufwerk = "Q:"
   Case 6:
    laufwerk = "R:"
   Case 5:
    laufwerk = "T:"
   Case 4:
    laufwerk = "U:"
   Case 3:
    laufwerk = "V:"
   Case 2:
    laufwerk = "X:"
   Case 1:
    laufwerk = "Y:"
  End Select 

  Select Case mappingliste
   Case 18:
    Beschreibung = "Leitung"
    Pfad = "\\serverleitung\dataleitung"
   Case 17:
    Beschreibung = "Dienstleistungseinrichtungen"
    Pfad = "\\serverdle\datadle"
   Case 16:
    Beschreibung = "H19000"
    Pfad = "\\serverh19000\datah19000"
   Case 15:
    Beschreibung = "H73000"
    Pfad = "\\serverh73000\datah73000"
   Case 14:
    Beschreibung = "H75000"
    Pfad = "\\serverh75000\datah75000"
   Case 13:
    Beschreibung = "H77000"
    Pfad = "\\serverh77000\datah77000"
   Case 12:
    Beschreibung = "H79000"
    Pfad = "\\serverh79000\datah79000"
   Case 11:
    Beschreibung = "H80000"
    Pfad = "\\serverh80000\datah80000"
   Case 10:
    Beschreibung = "H81000"
    Pfad = "\\serverh81000\datah81000"
   Case 9:
    Beschreibung = "H83000"
    Pfad = "\\serverh83000\datah83000"
   Case 8:
    Beschreibung = "H85000"
    Pfad = "\\serverh85000\datah85000"
   Case 7:
    Beschreibung = "H87000"
    Pfad = "\\serverh87000\datah87000"
   Case 6:
    Beschreibung = "H89000"
    Pfad = "\\serverh89000\datah89000"
   Case 5:
    Beschreibung = "H91000"
    Pfad = "\\serverh91000\datah91000"
   Case 4:
    Beschreibung = "H93000"
    Pfad = "\\serverh93000\datah93000"
   Case 3:
    Beschreibung = "H94000"
    Pfad = "\\serverh94000\datah94000"
   Case 2:
    Beschreibung = "H95000"
    Pfad = "\\serverh95000\datah95000"
   Case 1:
    Beschreibung = "Geodaten"
    Pfad = "\\servergeodaten\datageodaten"
  End Select

  nachricht = "Netzlaufwerk verbinden"& vbcr & vbcr
  nachricht = nachricht & "Soll der Departmentserver " & Beschreibung & " verbunden werden? "& vbcr & vbcr
  antwort = MsgBox(nachricht, vbQuestion+vbYesNo)

  if antwort=vbYes then
   If fs.driveExists(laufwerk) Then net.RemoveNetworkDrive laufwerk,True,True 
   net.MapNetworkDrive laufwerk, Pfad, false, Username, PWD
   freielaufwerke = freielaufwerke - 1
   set loginbuch =fs.opentextfile("M:\novell-cifs.login", 8, true,0)
   loginbuch.writeline laufwerk &";"& Pfad
   loginbuch.close
  end if

  mappingliste = mappingliste - 1
  produkt = freielaufwerke * mappingliste
 wend
end if