[WSH] Creare un utente in Windows

Menù Principale

Cerca

Link

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

<< Discussione precedente | Discussione successiva >>

[WSH] Creare un utente in Windows

Autore

Messaggio

icemax

dom 11 feb 2007 - 15:27

Utente registrato #194

Registrato il: dom 21 gen 2007 - 22:27
Messaggi: 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

[ Modificato dom 11 feb 2007 - 15:34 ]

Torna ad inizio pagina

icemax

dom 11 feb 2007 - 15:43

Utente registrato #194

Registrato il: dom 21 gen 2007 - 22:27
Messaggi: 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

[ Modificato dom 11 feb 2007 - 15:50 ]

Torna ad inizio pagina

sicili2007

dom 27 lug 2008 - 18:57

Utente registrato #11323

Registrato il: mar 20 mag 2008 - 21:06
Messaggi: 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

[ Modificato dom 27 lug 2008 - 19:00 ]

Torna ad inizio pagina

AlexF.RS3

lun 28 lug 2008 - 12:03

Utente registrato #5104

Registrato il: lun 11 giu 2007 - 10:21
Provenienza: Latina
Messaggi: 450

icemax ha scritto ...

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

Torna ad inizio pagina

sicili2007

lun 28 lug 2008 - 14:46

Utente registrato #11323

Registrato il: mar 20 mag 2008 - 21:06
Messaggi: 31

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

Torna ad inizio pagina

sicili2007

lun 28 lug 2008 - 14:48

Utente registrato #11323

Registrato il: mar 20 mag 2008 - 21:06
Messaggi: 31

errore in allegato

Torna ad inizio pagina

sicili2007

lun 28 lug 2008 - 14:49

Utente registrato #11323

Registrato il: mar 20 mag 2008 - 21:06
Messaggi: 31

in allegato

err.zip

Torna ad inizio pagina

icemax

mar 29 lug 2008 - 08:51

Utente registrato #194

Registrato il: dom 21 gen 2007 - 22:27
Messaggi: 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

Torna ad inizio pagina

sicili2007

mar 29 lug 2008 - 17:39

Utente registrato #11323

Registrato il: mar 20 mag 2008 - 21:06
Messaggi: 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

Torna ad inizio pagina

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