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

看板Windows作者junorn (威廉華勒斯)時間16年前 (2009/10/26 10:11)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串2/2 (看更多)

爬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

10/26 10:12, , 1^F

10/26 10:12, 1^F

‣ 返回看板[ Windows ] 系統

‣ 更多 junorn 的文章

文章代碼(AID): #1AvGLS7C (Windows)