VBSに関して質問です｡ｲﾝﾍﾞﾝﾄﾘ情報を取得後に､現在ﾛｸﾞｲﾝしているﾕｰｻﾞｰのﾃﾞｽｸﾄｯﾌﾟにｲﾝﾍﾞﾝﾄﾘ情報を保存したい｡ ※ﾌｧｲﾙ名は､｢yyyymmddﾛｸﾞｲﾝ…

VBSに関して質問です｡
ｲﾝﾍﾞﾝﾄﾘ情報を取得後に､
現在ﾛｸﾞｲﾝしているﾕｰｻﾞｰのﾃﾞｽｸﾄｯﾌﾟにｲﾝﾍﾞﾝﾄﾘ情報を保存したい｡
※ﾌｧｲﾙ名は､｢yyyymmddﾛｸﾞｲﾝﾕｰｻﾞｰ名.txt｣
------------------------------
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
Set colItems3 = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)

For Each objItem in colItems1
Wscript.Echo objItem.Caption 'OS
Wscript.Echo objItem.CSDVersion 'ｻｰﾋﾞｽﾊﾟｯｸ
Next
For Each objItem in colItems2
Wscript.Echo objItem.Name 'ｺﾝﾋﾟｭｰﾀ名
Wscript.Echo objItem.Domain 'ﾄﾞﾒｲﾝ名
Wscript.Echo objItem.UserName 'ﾕｰｻﾞｰ名
Next
For Each objItem in colItems3
WScript.Echo objItem.Vendor 'ﾍﾞﾝﾀﾞｰ
WScript.Echo objItem.Name '機種名
WScript.Echo objItem.IdentifyingNumber 'ｼﾘｱﾙﾅﾝﾊﾞｰ
Next
---------------------------------------

こんな感じでしょうか｡

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
Set colItems3 = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)

ret = ""
For Each objItem in colItems1
 ret = ret & "OS = " & objItem.Caption & vbNewLine
 ret = ret & "ｻｰﾋﾞｽﾊﾟｯｸ = " & objItem.CSDVersion & vbNewLine
Next

For Each objItem in colItems2
 ret = ret & "ｺﾝﾋﾟｭｰﾀ名 = " & objItem.Name & vbNewLine
 ret = ret & "ﾄﾞﾒｲﾝ名 = " & objItem.Domain & vbNewLine
 ret = ret & "ﾕｰｻﾞｰ名 = " & objItem.UserName & vbNewLine
 userName = objItem.UserName 'ﾕｰｻﾞｰ名
Next

For Each objItem in colItems3
 ret = ret & "ﾍﾞﾝﾀﾞｰ = " & objItem.Vendor & vbNewLine
 ret = ret & "機種名 = " & objItem.Name & vbNewLine
 ret = ret & "ｼﾘｱﾙﾅﾝﾊﾞｰ = " & objItem.IdentifyingNumber & vbNewLine
Next

FilePath = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop") _
 & "\" & Replace(FormatDateTime(Now, 2),"/","") _
 & Replace(userName, "\", "_") & ".txt"
CreateObject("Scripting.FileSystemObject").CreateTextFile( FilePath ).Write ret

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
Set colItems3 = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)

str = ""
For Each objItem in colItems1
 str = str & "OS：" & objItem.Caption
 str = str & "ｻｰﾋﾞｽﾊﾟｯｸ：" & objItem.CSDVersion
Next
For Each objItem in colItems2
 str = str & "ｺﾝﾋﾟｭｰﾀ名：" & objItem.Name
 str = str & "ﾄﾞﾒｲﾝ名：" & objItem.Domain
 str = str & "ﾕｰｻﾞｰ名：" & objItem.UserName
Next
For Each objItem in colItems3
 str = str & "ﾍﾞﾝﾀﾞｰ：" & objItem.Vendor
 str = str & "機種名：" & objItem.Name
 str = str & "ｼﾘｱﾙﾅﾝﾊﾞｰ：" & objItem.IdentifyingNumber
Next

path = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
fname = Replace(FormatDateTime(Now, 2), "/", "") & Replace(userName, "\", "_") & ".txt"
CreateObject("Scripting.FileSystemObject").CreateTextFile(path & fname).Write str