Von eine Excelliste ins AD importieren

'Benutzername;OU;Gruppe;Passwort  
'Option Explicit  
Dim FSO, DateiInhalt, Zeile, Inhalt
Dim Container, Benutzer, ou, gruppe, pass, benutzername, gruppenname, group
Dim pool, poolnumb, poolsmalletter, poolbigletter, poolchar, password, Vorname, Nachname, Vordisp, Nachdisp
Dim Zieldatei, Zieldatei1, pwd, pwd1, pwd2, pwd3, pwd4, i, output, outputuser, Zieldatei_usr
poolnumb="1234567890"  
poolsmalletter="abcdefghijklmnopqrstuvwxyzöäü"  
poolbigletter=UCase(poolsmalletter)
poolchar="!§$%&/()=\ß?^°+-.:*'#;,<>|"&chr(34)  

pool=poolnumb & poolsmalletter & poolbigletter & poolchar
randomize

Const Dateiname="importfile.csv"  

Set FSO = CreateObject("Scripting.FileSystemObject")  
Set Zieldatei = FSO.CreateTextFile("_output.txt")  
If FSO.FileExists(Dateiname) Then
    Set DateiInhalt = FSO.OpenTextFile(Dateiname)
    
    Do Until DateiInhalt.atEndOfStream
        Zeile = DateiInhalt.ReadLine

        'zeile spitten  
        dim benutzerangaben 
        benutzerangaben = split(zeile, ";")  
		if not zeile = "Kost.st.;Name;Vorname;" then  
		
		Vorname = benutzerangaben(2)
        Nachname = benutzerangaben(1)
        ou = benutzerangaben(0)
		abteil = split(benutzerangaben(0), ",")  
		abt = lcase(abteil(0))
		Vordisp = Vorname
		Nachdisp = Nachname
		'msgbox ou  
		
		Vorname = Replace(Replace(Replace(Replace(Replace(Vorname, "ä", "ae"), "ö", "oe"), "ü", "ue"), "ß", "ss"), " ","")  
		benutzername = lcase(Vorname) & "."  & lcase(Nachname)  
		benutzername = Replace(Replace(Replace(Replace(Replace(benutzername, "ä", "ae"), "ö", "oe"), "ü", "ue"), "ß", "ss"), " ","")  
		'msgbox benutzername  
			do 
			  password = ""  
			  pwd1 = false
			  pwd2 = false
			  pwd3 = false
			  pwd4 = false
			  pwd = true
			  
			  
			  for i = 1 to 10
			  '                              String, Stelle, Anzahl Zeichen  
				password = password & mid(pool,Int(rnd*len(pool))+1,1)

			  next
			  
			  for i = 1 to Len(poolnumb)
				if not (InStr(password, Mid(poolnumb,i,1)) = 0) then
				  pwd1 = true
				  'msgbox "PWD1: " & pwd1  
				  exit for
				end if
			  next

			  for i = 1 to Len(poolsmalletter)
				if not (InStr(password, Mid(poolsmalletter,i,1)) = 0) then
					pwd2 = true
					'msgbox "PWD2: " & pwd2  
				  exit for
				end if
			  next

			  for i = 1 to Len(poolbigletter)
				if not (InStr(password, Mid(poolbigletter,i,1)) = 0) then
				  pwd3 = true
				  'msgbox "PWD3: " & pwd3  
				  exit for
				end if
			  next

			  for i = 1 to Len(poolchar)
				if not (InStr(password, Mid(poolchar,i,1)) = 0) then
				  pwd4 = true
				  'msgbox "PWD4: " & pwd4  
				  exit for
				end if
			  next
			  
			  if ((pwd1 = false) or (pwd2 = false) or (pwd3 = false) or (pwd4 = false)) then
				pwd = false
			  end if
				if pwd = false then
					'msgbox "false"  
				else
					'msgbox "true"  
				end if
			loop while pwd = false

		pass = password	
Zieldatei.WriteLine(password)
        
		'benutzername = benutzerangaben(0)  
        'ou = benutzerangaben(1)  
        'gruppenname = benutzerangaben(2)  
        'pass = benutzerangaben(3)  
		'msgbox benutzername  
		Set Container = GetObject("LDAP://10.0.0.1/OU=" & ou & ",DC=<domainname>,DC=<tld>")  
		'Set Container = GetObject("LDAP://10.0.0.1/OU=" & ou )  
		Set Benutzer = Container.Create("user", "CN=" & Nachname & "\, " & Vorname)   
		Benutzer.Put "sAMAccountName", benutzername  
		Benutzer.Put "displayName", Nachdisp & ", " & Vordisp  
		Benutzer.Put "name", Nachname & "," & Vorname  
		Benutzer.Put "givenName", Vorname  
		Benutzer.Put "sn", Nachname  
		Benutzer.Put "userPrincipalName", benutzername & "@<domainname>.<tld>"  
		Benutzer.SetInfo
		Benutzer.SetPassword(pass)
		Benutzer.Put "pwdLastSet", 0  
        Benutzer.SetInfo
		Benutzer.AccountDisabled = False
		Benutzer.Put "scriptPath", "logon_" & abt & ".bat"  
		Benutzer.SetInfo
		'msgbox abt  
		
		'msgbox "LDAP://10.0.0.1/OU=" & ou & ",DC=<domainname>,DC=<tld>"  
		output = Nachname & ", " &Vorname & ", Benutzer: " & benutzername & " | " & password  
		Zieldatei.WriteLine(output)
		'Zieldatei1.WriteLine("net user " & benutzername & " /activate:yes")  
		Set outputuser = FSO.CreateTextFile(benutzername & ".txt")  
		outputuser.WriteLine(output)
		outputuser.Close
		end if
    Loop
    Zieldatei.Close
	'Zieldatei1.close  
    DateiInhalt.Close
	
	' Bach-File aufrufen  
	Set WshShell = WScript.CreateObject("WScript.Shell")  
	
	' Datei, 1 für Vordergrund, true ist warten  
	test = WShShell.Run("copy.bat",1,true)  
	'test = WShShell.Run("users.bat",1,true)  
	
	'Set Zieldatei1 = FSO.GetFile("batch.txt")  
	'Zieldatei1.Delete  
    
else
  msgbox "Datei nicht gefunden!"  

End If