[WSH] Creare un utente in Windows

Main menu

Links

winPenPack - The Portable Software Collection :: Forums :: Tips & Tricks - Off topic

<< Previous thread | Next thread >>

[WSH] Creare un utente in Windows

Author

Post

icemax

Sun 11 Feb 2007 - 15:27

Registered Member #194

Joined: Sun 21 Jan 2007 - 22:27
Posts: 1371

Come creare un utente in Windows 2000/XP


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

Creare un utente e settare una password :


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

oUser.SetPassword "winpenpack"

Creare un utente e settare una password e disabilitarlo :


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

oUser.SetPassword "winpenpack"

oUser.AccountDisabled = True

script completo :






Set oRoot = GetObject("LDAP://rootDSE")

Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))



Set oOU=oDomain.Create("organizationalUnit", "ou=winpenpack")

oOU.Put "Description", "winpenpack script"

oOU.SetInfo



Set oUser = oOU.Create("User", "cn=winpenpack")

oUser.Put "sAMAccountName", "winpenpack"

oUser.Put "Description", "winpenpack : siamo forti"

oUser.SetInfo



oUser.SetPassword "winpenpack"



oUser.AccountDisabled = True

oUser.SetInfo



Wscript.Echo "Completato"

1 - copiare tutto lo script.
2 - incollarlo dentro notepad o altro editor.
3 - salvare il file con nome Winpenpack.vbs.
Note: ricordare di inserire per bene l'estensione .vbs

-> eseguire il file

adesso se andate in utenti , vi ritroverete con un nuovo utente "Winpenpack"

bye bye

[ Edited Sun 11 Feb 2007 - 15:34 ]

icemax

Sun 11 Feb 2007 - 15:43

Registered Member #194

Joined: Sun 21 Jan 2007 - 22:27
Posts: 1371

in ogni caso volevo segnalarvi un piccolo editor per costrutti
WSH VBS con autocompletamento della sintassi

VBSEditor [portabile]
prelevabile gratuitamente da :
-Link-

in ogni caso allegato a questo msg

1171205002_194_FT848_vbseditor.rar

ed inoltre se avete Office installato ..potete utilizzare
Microsoft Editor

lo trovate in "Strumenti di Office - Modifica origine HTML - Microsoft Script Editor"
o nelle seguenti posizioni :
mse.exe (office 2000): Programmi\Microsoft Visual Studio\Common\IDE\IDE98\
mse7.exe (office 2003): Programmi\Microsoft Office\OFFICE11

Si tratta di un programma per disegnare semplici pagine web, ma funziona
benissimo anche per vbScript. L'unico accorgimento è di iniziare il programma
con '<% in modo da attivare il controllo della sintassi

[ Edited Sun 11 Feb 2007 - 15:50 ]

sicili2007

Sun 27 Jul 2008 - 18:57

Registered Member #11323

Joined: Tue 20 May 2008 - 21:06
Posts: 31

ciao,

curiosando ho provato anchio a far partire creando un il file vbs
purtroppo mi da un'errore :

"il dominio specificato non esiste o è impossibile contattarlo"

In effetti non ho dominio ma sono in un gruppo di lavoro : MSHOME
Ho provato pure in un pc con dominio es: "PIPPO" ma mi da lo stesso errore.

ma quando lo crea CHE diritti ha l'utente: User, PowerUser o Aministrator?
devo modificare qualcosa nel file?

lo script è questo:

Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))

Set oOU=oDomain.Create("organizationalUnit", "ou=winpenpack")
oOU.Put "Description", "winpenpack script"
oOU.SetInfo

Set oUser = oOU.Create("User", "cn=winpenpack")
oUser.Put "sAMAccountName", "winpenpack"
oUser.Put "Description", "winpenpack : siamo forti"
oUser.SetInfo

oUser.SetPassword "winpenpack"

oUser.AccountDisabled = True
oUser.SetInfo

Wscript.Echo "Completato"

grazie ciao

[ Edited Sun 27 Jul 2008 - 19:00 ]

AlexF.RS3

Mon 28 Jul 2008 - 12:03

Registered Member #5104

Joined: Mon 11 Jun 2007 - 10:21
Location: Latina
Posts: 450

icemax wrote ...

Come creare un utente in Windows 2000/XP


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

Creare un utente e settare una password :


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

oUser.SetPassword "winpenpack"

Creare un utente e settare una password e disabilitarlo :


Set oUser = oOU.Create("User", "cn=Winpenpack User")

oUser.Put "sAMAccountName", "Winpenpack"

oUser.SetPassword "winpenpack"

oUser.AccountDisabled = True

script completo :






Set oRoot = GetObject("LDAP://rootDSE")

Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))



Set oOU=oDomain.Create("organizationalUnit", "ou=winpenpack")

oOU.Put "Description", "winpenpack script"

oOU.SetInfo



Set oUser = oOU.Create("User", "cn=winpenpack")

oUser.Put "sAMAccountName", "winpenpack"

oUser.Put "Description", "winpenpack : siamo forti"

oUser.SetInfo



oUser.SetPassword "winpenpack"



oUser.AccountDisabled = True

oUser.SetInfo



Wscript.Echo "Completato"

Non ho capito bene a cosa serve e soprattutto che differenza c'è creando un utente in questo modo o dal pannello di controllo. Questo è un account portatile? Grazie

sicili2007

Mon 28 Jul 2008 - 14:46

Registered Member #11323

Joined: Tue 20 May 2008 - 21:06
Posts: 31

ciao il problema è questo, questo script dovrebbe creare in autiomatico un utente locale del pc

sicili2007

Mon 28 Jul 2008 - 14:48

Registered Member #11323

Joined: Tue 20 May 2008 - 21:06
Posts: 31

errore in allegato

sicili2007

Mon 28 Jul 2008 - 14:49

Registered Member #11323

Joined: Tue 20 May 2008 - 21:06
Posts: 31

in allegato

err.zip

icemax

Tue 29 Jul 2008 - 08:51

Registered Member #194

Joined: Sun 21 Jan 2007 - 22:27
Posts: 1371

Ciao Sicili2007

non puoi creare un utente nel dominio se .."non" hai un dominio

per la creazione di un utente in "locale" NON devi specificare il dominio ma la "macchina"
locale .. e + esattamente
...ti serve la variabile :

strComputer = "."

Quindi per aggiungere un utente (winpenpack) al gruppo Administrators del pc "."




strComputer = "."

Set oDomain = GetObject("WinNT://" & strComputer & "/Administrators,group")



Set objUser = GetObject("WinNT://" & strComputer & "/winpenpack,user")

oRoot.Add(oDomain.ADsPath)

spero di esserti stato d'aiuto

ciao

sicili2007

Tue 29 Jul 2008 - 17:39

Registered Member #11323

Joined: Tue 20 May 2008 - 21:06
Posts: 31

grazie molto semplice ed intuitivo il tuo file che e in allegato sono riuscito a creare un utente llocale del pc con cRedenziali di amministratore.

ma volevo dirti se si puo creare un file che crea in autiomatiico l'utente, PASSWORD è DA LE cRedenziali di amministratore...GRAZIE CIAO

Moderators: Danix, Taf, Rcs, Energy, zandet2, ZioZione, Admin, LordJim60