Lokalen User anlegen

Norman Bates

Hallo zusammen,

Ich probiere gerade das folgende VB Script für Autoit abzuändern komme aber ab "set rechner" nicht mehr weiter.

Weiß einer wie ich weiter machen muss damit alle Felder ausgefüllt werden und der Flag für "Password never Expired" gesetzt wird?

Danke und Gruß

Norman

Code

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
userid = "John"
passwort = "jonny"
name = "Admin"
beschreibung = "Admin"
Set wn = CreateObject("Wscript.Network")
pc = wn.Computername
set rechner = GetObject("WinNT://" & pc )
set konto = rechner.Create("User", userid)
konto.SetPassword passwort
konto.fullname = name
konto.description = beschreibung
objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD
konto.Put "userFlags", objPasswordExpirationFlag
konto.SetInfo 'Daten werden aus Cache in Objekt geschrieben.
Set userObj = GetObject("WinNT://" & pc & "/Administrators")
Set user = GetObject("WinNT://" & pc & "/" & userid)
userObj.Add user.ADsPath
msgbox("Useraccount " & userid & " wurde angelegt.")

Alles anzeigen

**water**

Auf dem engl. Forum gibt's ein schönes Skript um einen lokalen User einzurichten.

Norman Bates

Danke für deine Antwort hat wunderbar funktioniert.

Wenn man erstmal den code vor Augen hat sieht dieser so einfach aus aber ich wäre nie drauf gekommen.

Weiß einer wo ich sowas nachlesen kann?

$objUser.Put

$objUser.SetPassword ...usw.

Ich möchte halt nur wissen wann und wo ich sowas anwenden kann.

Gruß

Norman

**water**

MSDN hilft da weiter. Ich habe nicht viel Ahnung vom WINNT Provider aber bei MSDN solltet Du mit den richtigen Suchbegriffen fündig werden,

Surfy

Machts doch bitte nicht so überladen...

[autoit]

RunWait(@COMSPEC & ' /c net user /add "MyUser" MyPassword /Comment:"My First User" /expires:never /passwordchg:no /Y ', "", @SW_HIDE)

[/autoit]

Oder startet ein Batchfile:

net user /add "MyUser" MyPassword /Comment:"My First User" /expires:never /passwordchg:no /Y

Wie man hier aus einem Einzeiler einen ganzen Script generiert, finde ich übertrieben, angesichts der Anforderungen...