Hallo,
ich hab mal wieder ein neues problem. Ich habe mir ein script gebastelt um User im Active Directory auf einem Windows 2003 Server anzulegen. Dies funktioniert soweit ganz gut, nur hab ich folgende parameter nicht gefunden:
'Set User cannot change Password
'Set Password never expires
'Set User Logon Script
'Add Member Of Domain Admins
Hier ist mein Script, vielleicht kann mir jemand weiterhelfen um diese dinge zu verfollständigen.
Gruss
Björn
Option Explicit
on error resume next
'Get Text File
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run ("D:\tmp\httpcopy http://10.135.196.46/sw/clisupp/swtoday/user.csv D:\tmp\user.csv",,True)
'Open Text File
Const ForReading = 1
Const Dateiname = "user.csv"
Dim FSO, Datei, Benutzer
Dim TextZeile
Set FSO=CreateObject("Scripting.FileSystemObject")
Set Datei = FSO.OpenTextFile(Dateiname, ForReading, False)
While not Datei.AtEndOfStream
TextZeile=Datei.Readline()
Benutzer=Split(TextZeile,";")
Dim Container
Dim BenutzerName
BenutzerName = Benutzer(2) & " " & Benutzer(3)
'User Anlegen
Dim Container2
Dim Benutzer2
Set Container2 = GetObject("LDAP://OU=WTSUser,DC=support,DC=ap2ps,DC=com")
Set Benutzer2 = Container2.Create("user", "CN=" & BenutzerName)
Benutzer2.Put "samAccountName", Benutzer(1)
Benutzer2.SetInfo
Benutzer2.AccountDisabled = False
Benutzer2.SetInfo
'Set Password
Benutzer2.SetPassword "Dalian2004"
'Set FirstName
Benutzer2.Put "givenName", Benutzer(2)
'Set LastName
Benutzer2.Put "sn", Benutzer(3)
'Set User cannot change Password
'Set Password never expires
'Set User Logon Script
'Add Member Of Domain Admins
Benutzer2.SetInfo
end if
Wend
Datei.Close