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

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

' 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

检测U盘 方法一

'方法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

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！