用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码
这里先给大家分享一个分配静态ip地址的代码
'AssignaStaticIPAddress
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolNetAdapters=objWMIService.ExecQuery_
("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")
strIPAddress=Array("192.168.6.98")
strSubnetMask=Array("255.255.255.0")
strGateway=Array("192.168.6.1")
strGatewayMetric=Array(1)
ForEachobjNetAdapterincolNetAdapters
errEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask)
errGateways=objNetAdapter.SetGateways(strGateway,strGatewaymetric)
IferrEnable=0Then
WScript.Echo"TheIPaddresshasbeenchanged."
Else
WScript.Echo"TheIPaddresscouldnotbechanged."
EndIf
Next
检测U盘方法一
'方法1
Sub Auto_Open()
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
StrDrive = "B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
StrDriveArray = Split(StrDrive, ",")
For StartPos = 1 To UBound(StrDriveArray)
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos) & ":\\")))
If d.DriveType = 1 Then
s = d.SerialNumber
Exit For
End If
Next
If s <> "" Then
Range("Sheet1!d8") = s
Else
Range("Sheet1!d8") = "系统未检测到U盘！"
End If
Set d = Nothing
Set fs = Nothing
Call QueryOther
End Sub
'方法2
Sub DetectUdisk()
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 2")
For Each objDisk In colDisks
RemovableDrive = objDisk.DeviceID
If CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReady Then
s = CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumber
Exit For
End If
Next
If s <> "" Then
Range("Sheet1!d8") = s
Else
Range("Sheet1!d8") = "系统未检测到U盘！"
End If
Call QueryOther
End Sub
Sub QueryOther()
'2007.1.19 更新，获取主板序列号, CPUID, 网卡MAC地址
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
For Each objItem In colItems
Range("Sheet1!E8") = objItem.SerialNumber
Exit For
Next
Set colItems = Nothing
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Range("Sheet1!F8") = objItem.ProcessorId
Exit For
Next
Set colItems = Nothing
Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
For Each objItem In colItems
Range("Sheet1!G8") = objItem.MACAddress
Exit For
Next
Set colItems = Nothing
End Sub
好了，这里就先介绍到这，需要的朋友可以参考一下。
热门推荐
3 祝福语简短的微信
10 幼儿祝福语大全简短贺卡
11 感谢教官文案祝福语简短
12 鼠年同事祝福语简短创意
13 元旦祝福语 简短独特群发
14 妈咪跟我生日祝福语简短
15 给儿子新婚祝福语简短
16 伴娘祝福语长文案简短
17 恭喜高考完祝福语简短
18 生日祝福语送老公简短