strComputer = inputbox (“incorporar por favor el nombre de la computadora: ")
'Comprobar que el usuario incorporó un valor
si strComputer = "" después
wscript.quit
terminar si
EN del ERROR del CURRICULUM VITAE errores de la manija DESPUÉS 'que conectan con la computadora (no encendida, error etc de los permisos)
fijar el objWMI = GetObject (“winmgmts: ¡{impersonationLevel=impersonate}! /” y strComputer y "")
si yerra <> 0 entonces 'comprobar para saber si hay error
error de wscript.echo “que conecta con la computadora especificada: ” y err.description
wscript.quit
terminar si
EN EL ERROR 0 INDICADO 'apagar el tratamiento de errores siguiente del curriculum vitae
fijar el colOS = objWMI.ExecQuery (“seleccionar * de Win32_ComputerSystem”)
Para cada objItem en colOS
si "" <> de los strUsers entonces
strUsers = strUsers y “,” y objItem.UserName
strUsers = objItem.UserName
Terminar si
Después
se abren una sesión wscript.echo “los usuarios siguientes” y strComputer y “: ” y strUsers
|