Jump to content
Sign in to follow this  
Frauke Rieken

Fehlermeldung in WSH

Recommended Posts

Hallo,

ich möchte über WSH Benutzer anlegen und verschiedene Eigenschaften, z.B. den Vor- und Zunamen an AD übergeben.

Das habe ich zunächst mit dem Objekt WinNT versucht, dann aber gesehen, dass die Eigenschaften nicht unterstützt werden. Nun versuche ich es mit LDAP, aber dort sind wohl einige Sachen anders.

Wenn ich versuche, mit user.setinfo die Informationen zu übergeben, bekomme ich folgende Fehlermeldung:

 

"Das angegebene Verzeichnisattritbut bzw. der angegebene Verzeichnisdienstwert ist bereits vorhanden.

Code 8007200A"

 

Die Skriptsprache ist VBS. Kann mir jemand helfen?

Vielen Dank,

Frauke

Share this post


Link to post
Share on other sites

Hi!

 

Evtl. ein Hinweis darauf, das solch ein Eintrag schon existiert!?

 

Hast Du´s schonmal mit anderen "userPrincipalName" probiert?

 

Funktioniert vorher das "create" ohne Probleme?

 

Gruß

 

flexxxen

Share this post


Link to post
Share on other sites

Hallo,

dies müßte der entscheidende Teil des Skripts sein:

 

Dim oUser

set oUser = oADSI.Create("user", "cn=strUser")

oUser.Put "Description", InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

oUser.Put "FirstName", "sn=strFirstName"

oUser.Put "LastName", "strUser"

oUser.Put "FullName", "strFirstname" & " " & "strUser"

oUser.Put "Password", InputBox("Password:", "Eingabe", "")

oUser.Put "Profile", "userProfile"

oUser.Put "HomeDirDrive", "userDrive"

oUser.Put "homedirectory", "\\" & shareServer & "\" & shareName & "\" & strUser

oUser.Put "LoginScript", "strUser" & ".cmd"

oUser.setinfo

 

 

Weiter oben sind die variablen deklariert. Bin leider Neuling und der Dozent hat uns in der letzten Woche nur mit WinNT vertraut gemacht, aber LDAP verschwiegen.

 

Danke,

Frauke

Share this post


Link to post
Share on other sites

Hallo,

dies müßte der entscheidende Teil des Skripts sein:

 

Dim oUser

set oUser = oADSI.Create("user", "cn=strUser")

oUser.Put "Description", InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

oUser.Put "FirstName", "sn=strFirstName"

oUser.Put "LastName", "strUser"

oUser.Put "FullName", "strFirstname" & " " & "strUser"

oUser.Put "Password", InputBox("Password:", "Eingabe", "")

oUser.Put "Profile", "userProfile"

oUser.Put "HomeDirDrive", "userDrive"

oUser.Put "homedirectory", "\\" & shareServer & "\" & shareName & "\" & strUser

oUser.Put "LoginScript", "strUser" & ".cmd"

oUser.setinfo

 

 

Weiter oben sind die variablen deklariert. Bin leider Neuling und der Dozent hat uns in der letzten Woche nur mit WinNT vertraut gemacht, aber LDAP verschwiegen.

 

Danke,

Frauke

Share this post


Link to post
Share on other sites

strTLD = "com"

strDOM = "company"

strCN = "users"

strFirstName = "Willi"

strUser = "Mustermann"

shareServer = "server"

shareName = "home"

userDrive = "u:"

userProfile = "profiles"

 

Dim workOU

Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDOM & ",DC=" & strTLD)

Dim oUser

Set oUser = workOU.Create("user", "CN=" & strUser)

oUser.Put "sAMAccountName", strUser

oUser.Put "userPrincipalName", strUser & "@" & strDOM & "." & strTLD

oUser.Put "givenName", strFirstName

oUser.Put "sn", strUser

oUser.Put "profilePath", "\\" & shareServer & "\" & userProfile & "\" & strUser

oUser.Put "homeDrive", userDrive

oUser.Put "homeDirectory", "\\" & shareServer & "\" & shareName & "\" & strUser

oUser.Put "scriptPath", strUser & ".cmd"

oUser.setinfo

strPwd = InputBox("Password:", "Eingabe", "")

oUser.SetPassword strPwd

oUser.AccountDisabled = False

oUser.SetInfo

 

Kleine Besonderheit wenn du nicht den original Usercontainer Users benutzt hinter LDAP OU statt CN benutzen.

 

________

thorgood

Share this post


Link to post
Share on other sites
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...