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

博客提供了一段VBS脚本代码,可获取网卡MAC地址、CPUID和硬盘序列号等设备信息。将代码保存为.vbs文件运行后,会把这些信息复制到剪贴板,还利用IE对象实现了信息复制功能。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

大家把下面的代码复制到记事本里保存成一个.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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值