蛙蛙推荐:用脚本获取网卡MAC,CPUID,硬盘序列号大家把下面的代码复制到记事本里保存成一个.vbs文件,然后双击后把剪贴板的内容贴上来看看。strComputer = "."
strOut = ""
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\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
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另外推荐篇帖子:http://community.csdn.net/Expert/topic/3989/3989705.xml?temp=.4669611
strOut = ""
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\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
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另外推荐篇帖子:http://community.csdn.net/Expert/topic/3989/3989705.xml?temp=.4669611
Set objWMIService = GetObject("winmgmts:.............
而硬盘序号是没有用的,建议大家不要去浪费时间了
hchxxzx(NET?摸到一点门槛)
另外关于WSH脚本编程有个.chm下载,大家可以参考一下,很实用的。
http://www.microsoft.com/downloads/ThankYou.aspx?familyId=b4cb2678-dafb-4e30-b2da-b8814fe2da5a&displayLang=en
还有微软的脚本中心也不错
http://www.microsoft.com/china/technet/community/scriptcenter/resources/qanda/default.mspx
hchxxzx(NET?摸到一点门槛)
---------------------
xp-sp2