vbs获取计算机mac地址,用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

这里先给大家分享一个分配静态ip地址的代码

' Assign a Static IP Address

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.6.98")

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.6.1")

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

If errEnable = 0 Then

WScript.Echo "The IP address has been changed."

Else

WScript.Echo "The IP address could not be changed."

End If

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

好了，这里就先介绍到这，需要的朋友可以参考一下。