¿Cómo generar el contenido del siguiente script vbs en un .txt? ¡Esperando en línea ~!
set?ws=wscript.createobject("wscript.shell")?
v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\ceb\gts\version")? p>
Set?Fso?=?CreateObject("Scripting.FileSystemObject")
Set?Output?=?Fso.OpenTextFile("Output.txt", 2)
Output.WriteLine?N()?amp;?" es: "?amp;?v
Output.Close
Función?N() p >
strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?amp;?strComputer?amp;?"\root\cimv2")< / p>
Set?colComputers?=?objWMIService.ExecQuery("Select?*?from?Win32_ComputerSystem")
Para?Cada?objComputer?in?colComputers
N ? =?objComputer.Name
¿Salir?Para
Siguiente
¿Fin?Función