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

1. ' Assign a Static IP Address
   
2. 
   
3. 
   
4. strComputer = "."
   
5. Set objWMIService = GetObject("winmgmts:" _
   
6.   & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
7. 
   
8. Set colNetAdapters = objWMIService.ExecQuery _
   
9.   ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   
10. 
    
11. strIPAddress = Array("192.168.6.98")
    
12. strSubnetMask = Array("255.255.255.0")
    
13. strGateway = Array("192.168.6.1")
    
14. strGatewayMetric = Array(1)
    
15. 
    
16. For Each objNetAdapter in colNetAdapters
    
17.   errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    
18.   errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    
19.   If errEnable = 0 Then
    
20.     WScript.Echo "The IP address has been changed."
    
21.   Else
    
22.     WScript.Echo "The IP address could not be changed."
    
23.   End If
    
24. Next

复制代码

检测U盘 方法一

1. '方法1
   
2. Sub Auto_Open()
   
3. On Error Resume Next
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     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"
   
6.     StrDriveArray = Split(StrDrive, ",")
   
7.     For StartPos = 1 To UBound(StrDriveArray)
   
8.         Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos) & ":\")))
   
9.         If d.DriveType = 1 Then
   
10.             s = d.SerialNumber
    
11.             Exit For
    
12.         End If
    
13.     Next
    
14.     If s <> "" Then
    
15.         Range("Sheet1!d8") = s
    
16.     Else
    
17.         Range("Sheet1!d8") = "系统未检测到U盘！"
    
18.    End If
    
19.    Set d = Nothing
    
20.    Set fs = Nothing
    
21.    Call QueryOther
    
22. End Sub
    
23. '方法2
    
24. Sub DetectUdisk()
    
25. On Error Resume Next
    
26.     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
27.     Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 2")
    
28.     For Each objDisk In colDisks
    
29.        RemovableDrive = objDisk.DeviceID
    
30.         If CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReady Then
    
31.             s = CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumber
    
32.             Exit For
    
33.         End If
    
34.     Next
    
35.     If s <> "" Then
    
36.         Range("Sheet1!d8") = s
    
37.     Else
    
38.         Range("Sheet1!d8") = "系统未检测到U盘！"
    
39.    End If
    
40.    Call QueryOther
    
41. End Sub
    
42. Sub QueryOther()
    
43.    '2007.1.19 更新，获取主板序列号, CPUID, 网卡MAC地址
    
44.     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
45.     Set colItems = objWMIService.ExecQuery("Select   SerialNumber   From   Win32_BIOS")
    
46.     For Each objItem In colItems
    
47.         Range("Sheet1!E8") = objItem.SerialNumber
    
48.         Exit For
    
49.     Next
    
50.     Set colItems = Nothing
    
51.     
    
52.     Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
    
53.     For Each objItem In colItems
    
54.         Range("Sheet1!F8") = objItem.ProcessorId
    
55.         Exit For
    
56.     Next
    
57.     Set colItems = Nothing
    
58.     
    
59.     Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
    
60.     For Each objItem In colItems
    
61.         Range("Sheet1!G8") = objItem.MACAddress
    
62.         Exit For
    
63.     Next
    
64.     Set colItems = Nothing
    
65.    
    
66. End Sub

复制代码

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

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！