Jump to content

ADS VBS Parameter


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

Hallo zusammen

 

Ich möchte gerne das Passwort von einem Benutzer im AD über ein Script ändern, wenn ich den Benutzer und das Passwort im Script angebe funktioniert es. Kann mir jemand zeigen wie ich den Benutzer und das Passwort als Parameter übergeben kann.

 

 

***Script***

Dim objUser

 

set objUser = GetObject("LDAP://CN=Hans Meier ,OU=Users,OU=Produktion,DC=domain,DC=local ")

objUser.SetPassword "test"

objUser.SetInfo

 

Gruss h2o

Link to comment

Hallo h2o,

 

Aufruf: script.vbs "Hans Meier" "test"

Wenn keine Leerzeichen im Parameter kannst du die "" auch weglassen.

Geht natürlich nicht mit Redirection (<<).

 

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

Dim aArgs
Set aArgs = WScript.Arguments

Dim objUser

set objUser = GetObject("LDAP://CN=" & aArgs(0) & " ,OU=Users,OU=Produktion,DC=domain,DC=local ")
objUser.SetPassword aArgs(1)
objUser.SetInfo

 

thorgood

Link to comment

Also ich weiß zwar immer noch nicht was du wegen nem batch redest da nach deiner Beschreibung nach nur nen vbs Script und ne textdatei im Spiel ist aber um das so zu machen wie du im 2 post sagst sollte dies hier funzen.

 

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("test.txt",1,0)

 

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzername = Feld(0)

Passwort = Feld(1)

 

Dim objUser

 

set objUser = GetObject("LDAP://CN=" & Feld(0) & " ,OU=Users,OU=Produktion,DC=domain,DC=local ")

objUser.SetPassword Feld(1)

objUser.SetInfo

 

Loop

f.Close

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

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.   Paste as plain text instead

  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.

×
×
  • Create New...