Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set oArgs = Wscript.Arguments

Rem für Anlage von mehreren Usern per Textfile
Set f = fso.OpenTextFile ("User.txt",1,0)
Rem Do while not f.AtEndOfLine
Rem Zeile = f.readLine
Rem Feld = split(Zeile,",")

If Wscript.Arguments.Count = 4 Then
	Benutzer = oArgs.item(0)
	Vorname = oArgs.item(1)
	Nachname = oArgs.item(2)
	ABT = oArgs.item(3)
	Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,ABT)
else
	wscript.echo " Syntax: xxx.vbs Username ( 1. Buchstabe Vorname + Nachname) Vorname Nachname Geschäftsfeld"
End If 

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,ABT)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=Container,DC=Firma,DC=de")
Set b = ouo.Create("User", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "UserPrincipalName", Benutzer & "@Firma.de"
b.Put "scriptPath", "logon.bat"
b.Put "homeDirectory", "\\dfs\shares\User\" & Benutzer
b.Put "homeDrive", "H:"
b.Put "description", ABT
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "displayName", Vorname & " " & Nachname
b.Put "physicalDeliveryOfficeName", "Ort"
b.Put "telephoneNumber", "+49 xxxxxxx"
b.Put "wWWHomePage", "www.Firma.de"
b.Put "company", "Firma"
b.Put "c", "DE"
b.Put "co", "DEUTSCHLAND"
b.Put "postalCode", "xxxxxx"
b.Put "l","Ort"
b.Put "st", "Ort"
b.Put "streetAddress", "Gasse"
b.Put "facsimileTelephoneNumber", "+49 (xxx) xxxxx"
b.Put "department", ABT
Rem Mailaktivierung per RUS
b.Put "mail", Benutzer &"@Firma.com"
b.Put "mailNickname", Benutzer
b.Put "homeMTA","CN=Microsoft MTA,CN=Server,CN=Servers,CN=Container,CN=Administrative Groups,CN=Firma,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=Firma,dc=de"
b.Put "homeMDB","CN=Externe,CN=First Storage Group,CN=InformationStore,CN=Server,CN=Servers,CN=Ort,CN=Administrative Groups,CN=Firma,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=Firma,dc=de"
b.Put "msExchHomeServerName", "/O=Firma/OU=Container/cn=Configuartion/cn=Servers/cn=Server"
b.SetInfo
b.SetPassword "xxxxx"
b.AccountDisabled = False
b.SetInfo

WScript.Sleep(1000)
mit="c:\windows\system32\dsmod.exe group " & Chr(34) &"CN=Verteiler,OU=Verteilerlisten,OU=Container,DC=Firma,dc=de" & Chr(34) &" -addmbr "& Chr(34) & "CN=" & Vorname & Chr(32)& Nachname & ",OU=Container,DC=Firma,DC=de" & Chr(34)
pw="c:\windows\system32\dsmod.exe User " & Chr(34) &"CN=" & Vorname & Chr(32)& Nachname & ",OU=Container,DC=Firma,DC=de" & Chr(34)&" -mustchpwd yes"
Dim FSO
Dim datei
Set FSO = CreateObject("Scripting.FileSystemObject")
	Set datei = fso.CreateTextFile("gruppe.cmd",true)
	datei.WriteLine (mit)
	datei.WriteLine (pw)
	datei.Close()
	Set fso=nothing		

WScript.Sleep(1000)	
ret = WshShell.Run ("gruppe.cmd")
WScript.Sleep(1000)

Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.DeleteFile("gruppe.cmd")

WScript.Sleep(1000)
 ret = WshShell.Run ("verzeichnis.cmd " & Benutzer,0,1)

Wscript.echo " Benutzer " & Vorname & Chr(32)& Nachname &" wurde erfolgreich angelegt"



Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Registrierung bei Firma "
objMessage.From = "root@Firma.com"
objMessage.To = "empfänger@Firma.com"
objMessage.TextBody = "Folgender User wurde angelegt:"& vbCRLF & vbCRLF & "Anmeldename: " & Benutzer & vbCRLF & "Name: " & Vorname & " " & Nachname & vbCRLF & "E-Mailadresse: " & Benutzer & "@Firma.com"

'==This section provides the configuration information für the remote SMTP server.
'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Server"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

End Sub