导读 | 这篇文章主要介绍了用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
好了,这里就先介绍到这,需要的朋友可以参考一下。