个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' 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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
'方法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

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

最后此篇关于用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码的文章就讲到这里了,如果你想了解更多关于用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

26 4 0
文章推荐： 基于spring实现websocket实时推送实例
文章推荐： VBS读取配置文件配置项的实现代码
文章推荐： vbs实现的tasklist效果代码
文章推荐： vbs 自制数字益智游戏实现代码
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com