作者junorn (威廉华勒斯)
看板Windows
标题Re: [问题] 请问批次档的问题!
时间Mon Oct 26 10:11:37 2009
爬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
1F：→ junorn :补充这是vbs 不是bat 10/26 10:12