Windows VBS

Windowsでメーカー、機種、製造番号を取得してテキストに保存する。

###PCのメーカー、機種、製造番号を取得

メーカー、機種、製造番号を取得.vbs

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)

dim fso
dim myc
dim f

set fso = CreateObject("Scripting.FileSystemObject")

myc = fso.getParentFolderName(WScript.ScriptFullName)

set f = fso.OpenTextFile(myc & "\メーカ・機種・製造番号.txt", 8, True)

For Each objItem in colItems
 f.WriteLine("メーカー  :" & objItem.Vendor & vbCrLf)
 f.WriteLine("機種名   :"   & objItem.Name & vbCrLf)
 f.WriteLine("製造番号:" & objItem.IdentifyingNumber)
Next

f.Close