wmic命令表达式表达非空

小白龙

下面的表达式是gpt推理的, 十几轮下来都不能跑通, 应该是 DefaultIPGateway is not null 这个表达有误, 用ds推理改为了"IPEnabled=TRUE AND DefaultIPGateway<>'NULL'" 但仍跑不通, 求路过大佬支招

1. wmic nicconfig where "IPEnabled=true and DefaultIPGateway is not null" get Description,IPAddress,IPSubnet,DefaultIPGateway /format:csv

复制代码

flashercs

无解.DefaultIPGateway 是数组
不要用wmic,如果为了快,用jscript
因为 vbs/wmic 都快退休了

holley

1. On Error Resume Next
   
2. 
   
3. Dim objWMIService, colAdapters, objNetworkAdapter
   
4. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   
5. Set colAdapters = objWMIService.ExecQuery("SELECT Description, IPAddress, IPSubnet, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   
6. 
   
7. For Each objNetworkAdapter In colAdapters
   
8.     Dim message
   
9.     message = "Description: " & objNetworkAdapter.Description & vbNewLine
   
10.     If IsArray(objNetworkAdapter.IPAddress) Then
    
11.         For Each ip In objNetworkAdapter.IPAddress
    
12.             message = message & "IP Address: " & ip & vbNewLine
    
13.         Next
    
14.     ElseIf objNetworkAdapter.IPAddress <> "" Then
    
15.         message = message & "IP Address: " & objNetworkAdapter.IPAddress & vbNewLine
    
16.     End If
    
17.     If IsArray(objNetworkAdapter.IPSubnet) Then
    
18.         For Each subnet In objNetworkAdapter.IPSubnet
    
19.             message = message & "IP Subnet: " & subnet & vbNewLine
    
20.         Next
    
21.     ElseIf objNetworkAdapter.IPSubnet <> "" Then
    
22.         message = message & "IP Subnet: " & objNetworkAdapter.IPSubnet & vbNewLine
    
23.     End If
    
24.     If IsArray(objNetworkAdapter.DefaultIPGateway) Then
    
25.         For Each gateway In objNetworkAdapter.DefaultIPGateway
    
26.             message = message & "Default Gateway: " & gateway & vbNewLine
    
27.         Next
    
28.     ElseIf objNetworkAdapter.DefaultIPGateway <> "" Then
    
29.         message = message & "Default Gateway: " & objNetworkAdapter.DefaultIPGateway & vbNewLine
    
30.     End If
    
31.     MsgBox message
    
32. Next
    

复制代码