Red de conocimiento informático - Material del sitio web - ¿Cómo generar el contenido del siguiente script vbs en un .txt? ¡Esperando en línea ~!

¿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")?

Set?Fso?=?CreateObject("Scripting.FileSystemObject")

Set?Output?=?Fso.OpenTextFile("Output.txt", 2)

Output.WriteLine?N()?amp;?" es: "?amp;?v

Output.Close

Función?N()

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