Batch für neuen Benutzer

[pouli 10]

Also mein Problem...

Ich habe eine Batch-Datei die einen neuen Benutzer erstellt.

Ich möchte jetz, dass dieser benutzer in der Gruppe der Administratoren hinzugefügt wird und das der Batch versteckt ausgeführt wird....

kann jemand helfen

[Flam3h3ad 10]

Ich nehme mal an, dass du den Befehl Net User verwendet hast.

Mit Net User ist es nicht möglich, einem neuen Benutzer direkt Admin Rechte zu verpassen !!!

 

Mit welchem Befehl dies aber geht, ist mir auch nicht bekannt :suspect:

[pouli 10]

Ja genau das ist mein Problem

ich warte jetzt mal eine Antwort ab die mir weiter hilft

thx dave

[the_brayn 10]

Hiho,

 

net group ist dein Freund. Oder willst du das in einer Domäne machen?

 

Gruß Guido

[thorgood 10]

Hallo pouli,

 

http://www.mcseboard.de/showthread.php?s=&threadid=51478&perpage=10&pagenumber=2

[buccaneer2003 10]

Wo legst Du den den User an?

Lokal auf der Maschine oder im Active Directory?

 

Fürs AD könnte ein VBScript so aussehen:

Dim strFirstname, strLastname,strName, strContainer, strGroupContainer, strGroupAdmin
strContainer = "OU=Benutzer"
strGroupContainer = "OU=Users"
strGroupAdmin = "Domänen Administratoren"

Const ADS_PROPERTY_CLEAR = 1
Const ADS_PROPERTY_UPDATE = 2
Const ADS_PROPERTY_APPEND = 3
Const ADS_PROPERTY_DELETE = 4

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strContainer & "," & _
    objRootDSE.Get("defaultNamingContext"))

strName = strLastName & "\, " & strFirstname
Set objUser = objContainer.Create("User", "cn=" & strName)
objUser.SetInfo

strDN = "cn=" & strName & "," & strContainer & "," & objRootDSE.Get("defaultNamingContext")
objUser.Put "givenName", strFirstname
objUser.Put "sn", strLastname
objUser.Put "displayName", strLastname & ", " & strFirstname
objUser.SetInfo

Set objGroup = GetObject("LDAP://cn=" & strGroupAdmin & "," & strGroupContainer & "," & objRootDSE.Get("defaultNamingContext"))
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array(strDN)
objGroup.SetInfo [/Code]