請問批次檔的問題! - Windows

爬google找的

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array(".")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

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

For Each objItem In colItems
WScript.Echo "UUID: " & objItem.UUID
Next
Next

不知道是不是要這個

--
本音を見せちゃ負けだとか
電卓はじく人生だとか
心を偽るくらいなら
七転八倒　馬鹿正直も空前絶後！

--