品味开发乐趣

寒雨连江夜入吴 平明送客楚山孤 洛阳亲友如相问 一片冰心在玉壶

用脚本获取网卡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

阅读更多
文章标签: 脚本 each ie
个人分类: 开发笔记
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

用脚本获取网卡MAC,CPUID,硬盘序列号(转)

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭