Posted on 2011-04-20 11:49
S.l.e!ep.￠% 閱讀(543)
評論(0) 編輯 收藏 引用 所屬分類:
VBScript
strOut = ""?
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")?
'獲取網卡的MAC地址?
Set colItems = objWMIService.ExecQuery _?
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")?
For Each objItem in colItems?
strOut = strOut & "MAC Address: " & objItem.MACAddress &vbcrlf?
msgbox strout
Next
'獲取CPUID
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
strOut = strOut & "Processor ID: " & objItem.ProcessorId&vbcrlf
Next
'獲取硬盤序列號
Set colDiskDrives = objWMIService.ExecQuery _?
("Select * from Win32_DiskDrive")
For each objDiskDrive in colDiskDrives
strOut = strOut & "Signature: " & vbTab & objDiskDrive.Signature
Next
'建立一個IE對象,并利用它的功能巧妙的把輸出字符串復制到剪貼版里.
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strOut
objIE.Quit
Wscript.Echo strOut