這里先給大家分享一個分配靜態(tài)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")?=?"系統(tǒng)未檢測到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")?=?"系統(tǒng)未檢測到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

好了，這里就先介紹到這，需要的朋友可以參考一下。

時間： 2019-04-28

總結

以上是生活随笔為你收集整理的html文档php 取mac地址_cpu序列号_硬盘序列号,用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。