53111
Sep 07, 2007, updated at Sep 10, 2007 (UTC)
4624
5
0
per VBS neuen nutzer mit adminrechten anlegen
ich würde gerne per script einen neuen nutzer anlegen lassen und ihm adminrechte zuteilen. ich habe mal versucht das hinzubekommen, allerdings finde ich den fehler nicht (zeile 25?). auch ist mir die zuteilung ("WinNT://" & co & "/Administratoren") nicht klar. nach welchen schema funktioniert das?
gruß saibonaut
Dim netzobjekt, benutzername, computername, becokombination, vorlagenarray
set netzobjekt=wscript.createobject("wscript.network")
benutzername = netzobjekt.UserName
computername = netzobjekt.ComputerName
becokombination = benutzername&computername
vorlagenarray = Array("tobiasSO210", "patrickSO211")
For i = 0 to UBound(vorlagenarray)
If becokombination = vorlagenarray(i) Then
'wscript.Echo benutzername&computername
neuerbenutzer = "testuser"
passwort = "hallo1234"
name = "Test User"
beschreibung = "Test User"
set rechner = GetObject("WinNT://" & computername )
set konto = rechner.Create("User", neuerbenutzer)
konto.SetPassword passwort
konto.fullname = name
konto.description = beschreibung
user = neuerbenutzer
Set userObj = GetObject("WinNT://" & co & "/Administratoren")
Set user = GetObject("WinNT://" & co & "/neuerbenutzer")
userObj.Add user.ADsPath
msgbox("Useraccount " & neuerbenutzer & " wurde angelegt.")
Else
wscript.Echo "nein"
End If
Next
gruß saibonaut
Please also mark the comments that contributed to the solution of the article
Content-Key: 68137
Url: https://administrator.de/contentid/68137
Printed on: April 24, 2024 at 01:04 o'clock
5 Comments
Latest comment
Hallo saibonaut!
Versuch es so:
Grüße
bastla
Versuch es so:
Dim netzobjekt, benutzername, computername, becokombination, vorlagenarray
set netzobjekt=wscript.createobject("wscript.network")
benutzername = netzobjekt.UserName
computername = netzobjekt.ComputerName
becokombination = benutzername&computername
vorlagenarray = Array("tobiasSO210", "patrickSO211")
For i = 0 to UBound(vorlagenarray)
If becokombination = vorlagenarray(i) Then
'wscript.Echo benutzername&computername
neuerbenutzer = "testuser"
passwort = "hallo1234"
name = "Test User"
beschreibung = "Test User"
set rechner = GetObject("WinNT://" & computername)
set konto = rechner.Create("User", neuerbenutzer)
konto.SetPassword passwort
konto.fullname = name
konto.description = beschreibung
konto.SetInfo
Set userObj = GetObject("WinNT://" & computername & "/Administratoren")
Set user = GetObject("WinNT://" & computername & "/" & neuerbenutzer)
userObj.Add user.ADsPath
msgbox("Useraccount " & neuerbenutzer & " wurde angelegt.")
Else
wscript.Echo "nein"
End If
Next
auch ist mir die zuteilung ("WinNT://" & co & "/Administratoren") nicht klar. nach welchen schema funktioniert das?
Gar nicht, weil es keine Variable "co" für den Computernamen gibt - ansonsten erhältst Du damit das Objekt der "Administratoren"-Gruppe, dem Du später mit ".Add" den neuen Benutzer hinzufügst.Grüße
bastla
Hallo saibonaut!
Schau Dich einmal hier um: http://www.activexperts.com/activmonitor/windowsmanagement/scripts/acti ...
Grüße
bastla
Schau Dich einmal hier um: http://www.activexperts.com/activmonitor/windowsmanagement/scripts/acti ...
Grüße
bastla
Hallo saibonaut!
Siehe http://www.rlmueller.net/Name_Attributes.htm (und zu "WinNT vs LDAP": http://www.rlmueller.net/WinNT_LDAP.htm).
Grüße
bastla
dieses "sAMAccountName" verstehe ich als neuen nutzernamen?
Genau: BenutzeranmeldenameOU=Management,dc=fabrikam,dc=com
Der neue Benutzer soll in der Organisationseinheit "Management" der Domäne "fabrikam.com" angelegt und Mitglied der neu erstellten Gruppe "atl-users" werden.Siehe http://www.rlmueller.net/Name_Attributes.htm (und zu "WinNT vs LDAP": http://www.rlmueller.net/WinNT_LDAP.htm).
Grüße
bastla