Re: [問題] 請問批次檔的問題!

[junorn (威廉華勒斯)]

爬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

不知道是不是要這個

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

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.68.130.155
→ junorn      :補充這是vbs　不是bat