Hola gente,encantado de conoceros,tengo un problemilla con un vbscript,ya que me dedico a sistemas y tengo bastante dejado de lado el tema,aunque se que es muy útil para ciertos momentos,bueno ahí va.
El código origen que tengo es este,lo que hace,está probado,es crearte un usuario en local de dominio en el grupo admin de la máquina local,podeis probarlo si quereis:
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject("WScript.Network")
local = net.ComputerName
DomainName = "dominioX"
UserAccount = "usuarioX"
set group = GetObject("WinNT://"& local &"/Administradores")
on error resume next
group.Add "WinNT://"& DomainName &"/"& UserAccount &""
CheckError
sub CheckError
if not err.number=0 then
set ole = CreateObject("ole.err")
MsgBox ole.oleError(err.Number), vbCritical
err.clear
else
MsgBox "Usuario local creado"
end if
end sub
El problema es que yo lo que quiero es que una vez se ejecuta ese script salte un messagebox en el que se pueda introducir el nombre sin tener que entrar en el texto y poner específicamente el nombre editando el script,ya que es para alguien que no ha de entrar en él,según sé,poco la verdad ,quedaría algo así:
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject("WScript.Network")
local = net.ComputerName
DomainName ="dominioX"
UserAccount=InputBox("Enter a name") <-- Aquí está el tema ya que si le paso este valor,salta el box,pero luego no sé como utilizar el valor introducido.
set group = GetObject("WinNT://"& local &"/Administradores")
on error resume next
group.Add "WinNT://"& DomainName &"/"& UserAccount &""
CheckError
sub CheckError
if not err.number=0 then
set ole = CreateObject("ole.err")
MsgBox ole.oleError(err.Number), vbCritical
err.clear
else
MsgBox "Usuario local creado"
end if
end sub
La entrada del inputbox la he puesto porque no se ocurría como hacerlo,espero que no me apedreeis jeje
Bueno,si decidis a hecharme un cable recordad que soy medio lelo así que si está explicado de forma básica mucho mejor
, muchas gracias de antemano.
