• Miércoles 22 de Marzo de 2017, 23:10

Autor Tema:  Help para un VBSScript por favor!  (Leído 763 veces)

ike555

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Help para un VBSScript por favor!
« en: Miércoles 17 de Marzo de 2010, 01:12 »
0

Publicidad 
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:

Citar
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í:

Citar
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  :ph34r:

Bueno,si decidis a hecharme un cable recordad que soy medio lelo así que si está explicado de forma básica mucho mejor :hola: , muchas gracias de antemano.

posman

  • Miembro MUY activo
  • ***
  • Mensajes: 119
    • Ver Perfil
Re: Help para un VBSScript por favor!
« Respuesta #1 en: Miércoles 17 de Marzo de 2010, 15:47 »
0