用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

' Assign a Static IP AddressstrComputer = "."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 IfNext

'方法1Sub 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 QueryOtherEnd Sub'方法2Sub 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 QueryOtherEnd SubSub 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