Question

如何将下列vbs脚本的内容输出到一个.txt里啊？在线等~！

set ws=wscript.createobject("wscript.shell")
v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\ceb\gts\version")
wscript.echo v

注：假如本机的机器名是comp1，那么输出的txt呈现结果最好是：comp1的gts版本号是：114 在线等，急急急~~~

Answer 1

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() & "的gts版本号是：" & v
Output.Close

Function N()
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For Each objComputer in colComputers
        N = objComputer.Name
        Exit For
    Next
End Function

追问

你好，结果得到了 非常感谢，还继续请教下：现在我有30台服务器，我怎么使用一个vbs得到30台服务器的gts版本号啊？也就是说 在一台服务器上我只要双击一个vbs脚本就能收集到30台服务器的gts版本号。如果上述行不通，那么我将每一台服务器放此脚本，然后统一将结果也就是output.txt输出到一台服务器上的txt怎么实现呢？由于我是实施的，对脚本完全不懂啊？！！望您帮忙，谢谢！

追答

类似问题没研究过，抱歉

追问

没事，谢谢了！