Benutzer anlegen und anschließend zu einer Gruppe hinzufügen

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const ADS_PROPERTY_APPEND = 3 

strKHs = "PräfixA,PräfixB,PräfixC,PräfixD"  
strCount = "20,30,15,20"  
strGrpPfx = "Alle"  
strHomeDrive = "U:"  
strDesc = "Schulungskonto"  
strScript = "logon.bat"  
strOUPfx = ""  
strDomain = "@domain.loc"  
strDC = "dc=domain,dc=loc"  

arrKHs = Split(strKhs,",")  
arrCount = Split(strCount,",")  

Set objRootDSE = GetObject("LDAP://rootDSE")  

For j = 0 To UBound(arrKHs)
	For i = 1 To arrCount(j)
	If Len(i) = 1 Then i = "0" & i  
	strUser = arrKHs(j) & "-Schul" & i  
	strGroup = strGrpPfx & arrKHs(j)
	strOU = strOUPfx & arrKHs(j)
	strProfilePath = "\\Server\" & arrKHs(j) & "Profiles$\" & strUser  
	strTSProfilePath = "\\Server\" & arrKHs(j) & "TSProfiles$\" & strUser  
	strHomePath = "\\Server\" & arrKHs(j) & "Homes$\" & strUser  
	CreateUser strUser, strGroup, strOU, strProfilePath, strTSProfilePath, strHomePath
	Next
Next
Wscript.Echo "Fertig!"  

Sub CreateUser(UName, UGrp, UOU, UProfPath, UTSProfPath, UHomePath)

Set objContainer = GetObject("LDAP://ou=" & UOU & "," & strDC)  
Set objUser = objContainer.Create("User", "cn=" & UName)  
	With objUser
		.sAMAccountName = UName
		.userPrincipalName = UName & strDomain
		.displayName = UName
		.description = strDesc
		.scriptPath = strScript
		.ProfilePath = UProfPath
		.HomeDirectory = UHomePath
		.HomeDrive = strHomeDrive
		.TerminalServicesProfilePath = UTSProfPath
		.TerminalServicesHomeDirectory = UHomePath
		.TerminalServicesHomeDrive = strHomeDrive
		.SetInfo
		.AccountDisabled = FALSE
		.SetPassword UName
		intUAC = objUser.Get("userAccountControl")  
		.userAccountControl = intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD
		.SetInfo
	End With
Set objGroup = GetObject("LDAP://cn=" & UGrp & ",cn=Users," & strDC)  
	objGroup.PutEx ADS_PROPERTY_APPEND, "member",Array("cn=" & UName & ",ou=" & UOU & "," & strDC)  
objGroup.SetInfo
End Sub