Script para crear usuario y meterlo en grupo local

27/11/2007 - 10:02 por Javi | Informe spam
Hola a todos, estoy buscando un script para crear un usario local y que me
lo meta en el grupo Administradores automaticamente. NO TENGO NI IDEA DE
.VBS. Lo que he encontrado por la red es uno que me crea el usuario y otro
que me mete usuarios en grupos locales y al intentar unirlos funciona
siempre y cuando meta el nombre de usuario directamente en la sentencia ...
Set objUser = GetObject("WinNT://" & strComputer & "/pepito,user") El
usuario es pepito.
¿Hay alguna manera de que me meta en el grupo "Administradores"el usario que
crea el script sin tener que ponerlo a mano?

Este el script

' - TEXT USED -
Title = "New User Tools v1.1"
strGroup = "Administrators"
' END TEXT USED --
'- RETRIEVE COMPUTER NAME
Dim objNetwork, strComputerName
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
'- END RETRIEVE COMPUTER NAME --
' GET INPUTS FROM USER -
Dim strUserName, strFullName, strPassword
If Msgbox("Would you Like to Add a User?" , vbYesNo, Title) = vbYes then
Call GetInputs
Else Call Rename_Computer
Sub GetInputs
Do
strUserName = InputBox("Please Enter User Name.",Title)
If strUserName = ""Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer()
End If
End if
Loop Until strUserName <> ""
Do
strFullName = InputBox("Please Enter Your Full Name.", Title)
If strFullName = "" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strFullName <> ""
Do
strPassword = InputBox("Please Enter Password.",Title)
If strPassword="" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strPassword<>""
Call AddUser()
End Sub
' END INPUTS
' -- CODE TO ADD USER -
Sub AddUser
Set objSystem = GetObject("WinNT://" & strComputer)
Set objUser = objSystem.Create("user", strUserName)
objUser.FullName = strFullName
objUser.SetPassword strPassword
objUser.SetInfo
Call MsgBox ("User Name: " & strUserName & vbCrLf & "Password: "
&strPassword & VbCrLf & VbCrLf & "Please Write This Information Down.", 64,
Title)
strComputer = "atlas"
Set objGroup = GetObject("WinNT://" & strComputer &
"/Administradores,group")
Set objUser = GetObject("WinNT://" & strComputer & "/pepito,user")
objGroup.Add(objUser.ADsPath)
End Sub
' -- END CODE TO ADD USER -
Sub CleanUp
Call MsgBox ("Click OK To Exit the Program",0, Title)
WScript.quit
End Sub
End If
'-- EXIT


P.D. Si teneis alguno que ya lo haga os agradeceria que me lo pasarais.

Gracias.
 

Leer las respuestas

#1 Rodrigo de los Santos
12/12/2007 - 13:12 | Informe spam
probaste con el comando
http://www.microsoft.com/resources/...x?mfr=true

y luego

set objShell = wscript.createObject("wscript.shell")
objShell.Run("net localgroup bla bla bla")



Saludos

Rodrigo de los Santos



MVP - Windows Server - Group Policy
MCP - CCA - CNA
Miembro del MUG Argentina (suscribite! http://www.mug.org.ar)

Url: http://www.dlssolutions.net
Blog: http://nerdsupport.blogspot.com


"Javi" <javi> wrote in message news:
Hola a todos, estoy buscando un script para crear un usario local y que me
lo meta en el grupo Administradores automaticamente. NO TENGO NI IDEA DE
.VBS. Lo que he encontrado por la red es uno que me crea el usuario y otro
que me mete usuarios en grupos locales y al intentar unirlos funciona
siempre y cuando meta el nombre de usuario directamente en la sentencia
...
Set objUser = GetObject("WinNT://" & strComputer & "/pepito,user") El
usuario es pepito.
¿Hay alguna manera de que me meta en el grupo "Administradores"el usario
que
crea el script sin tener que ponerlo a mano?

Este el script

' - TEXT USED -
Title = "New User Tools v1.1"
strGroup = "Administrators"
' END TEXT USED --
'- RETRIEVE COMPUTER NAME
Dim objNetwork, strComputerName
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
'- END RETRIEVE COMPUTER NAME --
' GET INPUTS FROM USER -
Dim strUserName, strFullName, strPassword
If Msgbox("Would you Like to Add a User?" , vbYesNo, Title) = vbYes then
Call GetInputs
Else Call Rename_Computer
Sub GetInputs
Do
strUserName = InputBox("Please Enter User Name.",Title)
If strUserName = ""Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer()
End If
End if
Loop Until strUserName <> ""
Do
strFullName = InputBox("Please Enter Your Full Name.", Title)
If strFullName = "" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strFullName <> ""
Do
strPassword = InputBox("Please Enter Password.",Title)
If strPassword="" Then
If MsgBox("Are you Sure you want to Quit?" , vbYesNo, Title)= VbNo Then
Else Call Rename_Computer
End If
End If
Loop Until strPassword<>""
Call AddUser()
End Sub
' END INPUTS
' -- CODE TO ADD USER -
Sub AddUser
Set objSystem = GetObject("WinNT://" & strComputer)
Set objUser = objSystem.Create("user", strUserName)
objUser.FullName = strFullName
objUser.SetPassword strPassword
objUser.SetInfo
Call MsgBox ("User Name: " & strUserName & vbCrLf & "Password: "
&strPassword & VbCrLf & VbCrLf & "Please Write This Information Down.",
64,
Title)
strComputer = "atlas"
Set objGroup = GetObject("WinNT://" & strComputer &
"/Administradores,group")
Set objUser = GetObject("WinNT://" & strComputer & "/pepito,user")
objGroup.Add(objUser.ADsPath)
End Sub
' -- END CODE TO ADD USER -
Sub CleanUp
Call MsgBox ("Click OK To Exit the Program",0, Title)
WScript.quit
End Sub
End If
'-- EXIT


P.D. Si teneis alguno que ya lo haga os agradeceria que me lo pasarais.

Gracias.


Preguntas similares