Option Explicit

' Deklarationen
Dim strTitle = "RemoUser Script (c) Sairai"
Dim strAdmUserName, strUserName, strAdmPassword, strPassword, strComputer, strComputerList, strList
Dim strComputerArr
Dim objComputer, objUser, objDSO

' ADS Authentifizierungs-Konstanten
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_USE_ENCRYPTION = &H2

' Benutzereingaben
strAdmUserName = InputBox("Administrator Login: ", strTitle)
strAdmPassword = InputBox("Administrator Passwort: ", strTitle)
strUserName = Inputbox("Neuer Benutzer: ", strTitle)
strPassword = Inputbox("Passwort für den neuen Benutzer: ", strTitle)
strComputerList = Inputbox("Liste der Computer getrennt durch Komma: ", strTitle)

' Entferne Leerzeichen
strComputerList = Replace(strComputerList, " ","")

' Zerteile Computer-Liste in Array an Kommas
strComputerArr = Split(strComputerList , ",")

If (strComputerList <> "") And (strUserName <> "") And (strPassword <> "") And (strAdmUserName <> "") And (strAdmPassword <> "") Then
   For Each strComputer In strComputerArr
      ' Binde lokales Computerobjekt
      Set objDSO = GetObject("WinNT:")
      Set objComputer = objDSO.OpenDSObject _
       (strComputer, strAdmUserName, strAdmPassword, _
           ADS_SECURE_AUTHENTICATION OR ADS_USE_ENCRYPTION)

      ' Erstelle lokalen Benutzer
      Set objUser = objComputer.Create("user", strUserName)

      ' Speichere neuen Account
      objUser.SetInfo

      ' Aktiviere neuen Account
      objUser.AccountDisabled = False

      ' Setze Passwort
      objUser.SetPassword strPassword
      objUser.SetInfo

      ' Baue Ausgabestring
      strList = strList & strComputer & vbnewline
   Next

   Wscript.Echo "" & strList
Else
   Wscript.Echo "Mindestens ein Parameter ist leer. Es wurden keine Accounts erstellt."
End If