WSH Version 5.6で確認済です。
下のテキストをコピーし、【ファイル名.vbs】として保存し、実行して下さい。

『Windows Script Hostのバージョン』
WScript.Echo ScriptEngineMajorVersion() & "." & ScriptEngineMinorVersion()

システム情報

『OS』・『サービスパック』
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems Wscript.Echo objItem.Caption 'OS Wscript.Echo objItem.CSDVersion 'サービスパック Next

『コンピュータ名』・『ドメイン名』・『ユーザー名』・『メモリ容量』
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems Wscript.Echo objItem.Name 'コンピュータ名 Wscript.Echo objItem.Domain 'ドメイン名 Wscript.Echo objItem.UserName 'ユーザー名(現在ログインしているユーザー) Wscript.Echo fix(objItem.TotalPhysicalMemory /1024 /1024) & "MB" 'メモリ容量 Next

『ベンダー』・『機種名』・『シリアルナンバー』
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48) For Each objItem in colItems WScript.Echo objItem.Vendor 'ベンダー WScript.Echo objItem.Name '機種名 WScript.Echo objItem.IdentifyingNumber 'シリアルナンバー Next

ネットワーク情報

『IPアドレス』・『MACアドレス』
Set objShell = WScript.CreateObject("WScript.Shell") Set objExec = objShell.Exec("ipconfig.exe /all") Do Until objExec.StdOut.AtEndOfStream strLine = LCase(objExec.StdOut.ReadLine) If InStr(strLine, "dhcp enabled") <> 0 Then iColon = Instr(strLine, ":") strDhcp = Mid(strLine, iColon + 2) If InStr(strDhcp, "yes") <> 0 Then strDhcp="DHCP" End If If InStr(strLine, "ip address") <> 0 Then iColon = Instr(strLine, ":") strIPAddress = Mid(strLine, iColon + 2) End If If InStr(strLine, "physical address") <> 0 Then iColon = Instr(strLine, ":") strMACAddress = Replace(Mid(strLine, iColon + 2),chr(&H0D0A),"") End If Loop IPAdress=Replace(strIPAddress,chr(&H0D0A),"") if strDhcp = "DHCP" Then IPAdress=strDhcp & "(" & IPAdress & ")" Wscript.Echo IPAdress Wscript.Echo strMACAddress

ソフトウェア情報

IE(Internet Explorer)
Set objShell = WScript.CreateObject("WScript.Shell") WScript.Echo objShell.RegRead("HKLM\SOFTWARE\MICROSOFT\Internet Explorer\Version")

その他インストール
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colApps = objWMIService.ExecQuery("Select * from Win32_Product") For Each objApp in colApps Wscript.Echo objApp.Caption & vbNewLine & objApp.Version Next