vbscript - PCから情報を取得するVBscript

Question

こんにちは、シリアル番号、IP アドレス、ログイン ユーザー、オフィスからの製品キー、テキスト ファイルへの自動ルートが必要なこのスクリプトを書いています。スクリプトを書き始めましたが、いくつか問題があります。完成したスクリプトではありませんが、ちょっとここにこだわっています。

スクリプトは次のとおりです。

    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