VBscript从pc获取信息

你好，我正在写这个脚本，我需要序列号，IP地址，登录用户，从办公室的produkt密钥，自动路由到一个文本文件。我已经开始写剧本，但有一些问题。不是一个完成的脚本，但我有点坚持在这里

以下是脚本：

    On Error Resume Next

    Const wbemFlagReturnImmediately = &h10
    Const wbemFlagForwardOnly = &h20

    arrComputers = Array("localhost")
    For Each strComputer In arrComputers

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService1.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)                         
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService2.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)

    Set objWMIService = GetObject( "winmgmts:\\" & strCoputer & ".\root\CIMV2" )
    Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)

    next

    For Each objItem In colItems2

    Dim fso, tf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.CreateTextFile ("c:\" & objItem.UserName & ".txt", True)
    tf.Write "Username: " & objItem.UserName
    tf.WriteBlankLines(1)
    tf.Write "Hostname: " & objItem.Name
    tf.WriteBlankLines(1)
    tf.Write "Domain: " & objItem.Domain
    tf.WriteBlankLines(2)

    next 

    For Each objItem In colItems1

    tf.Write "Serial: " & objItem.IdentifyingNumber
    tf.WriteBlankLines(1)
    tf.Write "Model: " & objItem.Name
    tf.WriteBlankLines(2)  
    tf.Write "Vendor: " & objItem.Vendor
    tf.WriteBlankLines(1)   
    tf.Write "Version: " & objItem.Version
    tf.WriteBlankLines(2)  

    Next

    For Each objItem In colItems3

    tf.Write "IP Address: " & objItem.IPAddress
    tf.WriteBlankLines(1)
    tf.Close

    next 

---

微软已经创建了一个名为Scriptomatic的免费工具，它可以自动为此类任务创建vbscript代码。您可以从以下位置下载scriptomatic。

---

还有哪些信息需要获取，以及您在哪里仍然需要office的许可证，请自动发送并在文本文件中获取这些信息。安装程序现在无法写入文本文件。请参阅