WMI 應用——用 VBScript 編寫類似 ipconfig 的工具_終南的IT空間

chief1985發表於2008-10-12

導讀：

WMI 應用——用 VBScript 編寫類似 ipconfig 的工具

作者：終南 <li.zhongnan@hotmail.com>

在Windows下，WSH的功能是非常強大的。WMI 則提供了非常豐富的介面，可以與系統進行互動，獲取系統相關資訊，並能對系統中的裝置和物件進行有效管理。

Windows中的ipconfig 工具提供了與系統網路裝置的介面，WMI 中同樣有相同的介面，因此可以利用 VBScript 編寫指令碼來實現類似 ipconfig 的功能。利用 WMI 介面可以實現的網路管理功能非常之多，此處僅以顯示IP地址、釋放和獲取DHCP地址為例做一說明：

1、顯示IP地址

通過 Win32_NetworkAdapterConfiguration 獲取網路配置資訊，判斷網路介面卡是否支援IP協議。然後利用Win32_NetworkAdapter 物件或取網路卡資訊，Win32_NetworkAdapter有很多屬性，重要的包括NetConnectionStatus、NetConnectionID、MACAddress、IPAddress等。所有ipconfig顯示出的資訊都能夠獲取得到，那麼需要做的工作就是按照 ipconfig 顯示格式來排列一下這些資訊，使其看起來好看些。

2、釋放和獲取DHCP地址

呼叫Win32_NetworkAdapterConfiguration物件的ReleaseDHCPLease()和RenewDHCPLease()方法來實現。

3、新增上幫助說明、整理一下指令碼的結構，於是就有了：

'******************************************************************************
' 程式名: ipconfig.vbs
' 功能: 類似ipconfig的 WSH 指令碼程式, 提供了 ipconfig 的一部分功能,可以用來顯示
' IP地址資訊, 釋放和獲取DHCP地址
' 作者: li.zhongnan@hotmail.com (http://hi.baidu.com/li_zhongnan)
' 參考: http://www.reskit.net/monad/net1.htm
'******************************************************************************

On Error Resume Next

isShowHelp = False
isShowIpConfig = True
isRelease = False
isRenew = False

isShowAll = False

'處理命令列引數，如果帶引數 /all 則顯示較為詳細的資訊
Set objArgs = WScript.Arguments
If objArgs.Count > 0 Then
If objArgs(0) = "/all" Then
    isShowAll = True
End If
If objArgs(0) = "/?" Then
    isShowHelp = True
    isShowIpConfig = False
End If
If objArgs(0) = "/release" Then
    isRelease = True
    isShowIpConfig = False
End If
If objArgs(0) = "/renew" Then
    isRenew = True
    isShowIpConfig = False
End If
End If

If isShowHelp Then
ShowHelp()
End If
If isShowIpConfig Then
ShowIpConfig(isShowAll)
End If
If isRelease Then
ReleaseDHCP()
ShowIpConfig(False)
End If
If isRenew Then
RenewDHCP()
ShowIpConfig(False)
End If

'******************************************************************************
' 函式: ShowHelp
' 顯示幫助資訊
'******************************************************************************
Function ShowHelp
WScript.Echo
WScript.Echo "USAGE:"
WScript.Echo "    ipconfig [/? /all /release]"
WScript.Echo "where"
WScript.Echo "    Options:"
WScript.Echo "       /?         Display this help message"
WScript.Echo "       /all       Display full configuration information"
WScript.Echo "       /release   Release the IP address for the specified adapter"
WScript.Echo "       /renew     Renew the IP address for the specified adapter"
WScript.Echo
WScript.Echo "The default is to display only the IP address, subnet mask and"
WScript.Echo "default gateway for each adapter bound to TCP/IP"
End Function

'******************************************************************************
' 函式: ShowHelp
' 顯示幫助資訊
'******************************************************************************
Function ShowHelp
WScript.Echo
WScript.Echo "USAGE:"
WScript.Echo "    ipconfig [/? /all /release]"
WScript.Echo
WScript.Echo "where"
WScript.Echo
WScript.Echo "    Options:"
WScript.Echo "       /?           Display this help message"
WScript.Echo "       /all         Display full configuration information"
WScript.Echo "       /release     Release the IP address for the specified adapter"
WScript.Echo
WScript.Echo "The default is to display only the IP address, subnet mask and"
WScript.Echo "default gateway for each adapter bound to TCP/IP."
End Function

'******************************************************************************
' 函式: ShowIpConfig(showAll)
' 顯示網路配置資訊
'******************************************************************************
Function ShowIpConfig(showAll)
'準備獲取全域性資訊
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
strKeyPath1 = "SYSTEM/CurrentControlSet/Services/Tcpip/Parameters"
strKeyPath2 = "SYSTEM/CurrentControlSet/Services/NetBT/Parameters"
strHostEntry = "Hostname"
strDomainEntry = "Domain"
strNodeEntry = "DhcpNodeType"
strRoutingEntry = "IPEnableRouter"

'通過登錄檔獲取主機名稱、域名、節點型別、是否支援IP路由、是否支援WINS代理、DNS搜尋字首等資訊
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
   strComputer & "/root/default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strDomainEntry,strDomain
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strNodeEntry,dwNodeType
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strRoutingEntry,dwIPRouting

Select Case dwNodeType
    Case 4 strNodeType = "Mixed"
    Case 8 strNodeType = "Hybrid"
    Case Else strNodeType = "Unknown"
End Select
If dwIPRouting = 0 Then
    strIPRouting = "No"
ElseIf dwIPRouting = 1 Then
    strIPRouting = "Yes"
Else
    strIPRouting = "?"
End If


'通過WMI Win32_NetworkAdapterConfiguration物件獲取支援IP功能的網路介面卡配置資訊
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")

Set colFirstNicConfig = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objFirstNicConfig In colFirstNicConfig
    strDnsWins = objFirstNicConfig.DNSEnabledForWINSResolution
Next
If strDnsWins = False Then
    strWinsProxy = "No"
ElseIf strDnsWins = True Then
    strWinsProxy = "Yes"
Else
    strWinsProxy = "?"
End If

'顯示全域性資訊
WScript.Echo VbCrLf & "Windows IP Configuration" & VbCrLf
If showAll Then
    WScript.Echo "        Host Name . . . . . . . . . . . . : " & strHostname
    WScript.Echo "        Primary DNS Suffix . . . . . . . : " & strDomain
    WScript.Echo "        Node Type . . . . . . . . . . . . : " & strNodeType
    WScript.Echo "        IP Routing Enabled. . . . . . . . : " & strIPRouting
    WScript.Echo "        WINS Proxy Enabled. . . . . . . . : " & strWinsProxy
    WScript.Echo "        DNS Suffix Search List. . . . . . : " & strDomain
End If

Set colNicConfigs = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
sngOsVer = GetOsVer

'先是每個網路卡的網路配置資訊
For Each objNicConfig In colNicConfigs
    intIndex = objNicConfig.Index
    Set objNic = objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & intIndex)

    strAdapterType = objNic.AdapterType
    If IsEmpty(strAdapterType) Or IsNull(strAdapterType) Or _
     (strAdapterType = "") Then
      strAdapterType = "Network"
    End If

    If sngOsVer > 5 Then
      strNetConn = objNic.NetConnectionID
    Else
      strNetConn = intIndex
    End If

    WScript.Echo VbCrLf & strAdapterType & " adapter " & strNetConn
    WScript.Echo
    If objNic.NetConnectionStatus <> 2 Then 'not connected
      Select Case objNic.NetConnectionStatus
        Case 0 strConnStatus = "Disconnected"
        Case 1 strConnStatus = "Connecting"
        Case 3 strConnStatus = "Disconnecting"
        Case 4 strConnStatus = "Hardware not present"
        Case 5 strConnStatus = "Hardware disabled"
        Case 6 strConnStatus = "Hardware malfunction"
        Case 7 strConnStatus = "Media disconnected"
        Case 8 strConnStatus = "Authenticating"
        Case 9 strConnStatus = "Authentication succeeded"
        Case 10 strConnStatus = "Authentication failed"
        Case 11 strConnStatus = "Invalid address"
        Case 12 strConnStatus = "Connecting"
        Case Else strConnStatus = "Credentials required"
      End Select
      ' 如果 NetConnectionStatus 的值為 7, 說明網線被拔掉了, 因此通過迴圈檢測 Win32_NetworkAdapter 物件的 NetConnectionStatus 屬性, 就可以判斷網線是否被拔掉
      WScript.Echo "        Connection Status . . . . . . . . : " & _
       strConnStatus
      If showAllInfo Then
        WScript.Echo "        Description . . . . . . . . . . . : " & _
         objNicConfig.Description
        WScript.Echo "        Physical Address. . . . . . . . . : " & _
         objNicConfig.MACAddress
      End If
    Else
      WScript.Echo "        Connection-specific DNS Suffix . : " & _
       objNicConfig.DNSDomain
      If showAll Then
        WScript.Echo "        Description . . . . . . . . . . . : " & _
         objNicConfig.Description
        WScript.Echo "        Physical Address. . . . . . . . . : " & _
         objNicConfig.MACAddress
        WScript.Echo "        DHCP Enabled. . . . . . . . . . . : " & _
         objNicConfig.DHCPEnabled
      End If

      strIPAddresses = ""
      If Not IsNull(objNicConfig.IPAddress) Then
        For Each strIPAddress In objNicConfig.IPAddress
          strIPAddresses = strIPAddresses & strIPAddress & " "
        Next
      End If
      WScript.Echo "        IP Address. . . . . . . . . . . . : " & strIPAddresses
      strIPSubnets = ""
      If Not IsNull(objNicConfig.IPSubnet) Then
        For Each strIPSubnet In objNicConfig.IPSubnet
          strIPSubnets = strIPSubnets & strIPSubnet & " "
        Next
      End If
      WScript.Echo "        Subnet Mask . . . . . . . . . . . : " & strIPSubnets
      strDefaultIPGateways = ""
      If Not IsNull(objNicConfig.DefaultIPGateway) Then
        For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
          strDefaultIPGateways = strDefaultIPGateways & strDefaultIPGateway & " "
        Next
      End If
      WScript.Echo "        Default Gateway . . . . . . . . . : " & _
       strDefaultIPGateways
      If showAll Then
        WScript.Echo "        DHCP Server . . . . . . . . . . . : " & _
         objNicConfig.DHCPServer
        strDNSServerSearchOrder = ""
        If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
          For Each strDNSServer In objNicConfig.DNSServerSearchOrder
            strDNSServerSearchOrder = strDNSServerSearchOrder & VbCrLf & _
            "                                            " & strDNSServer
          Next
        End If
        WScript.Echo "        DNS Servers . . . . . . . . . . . :" & _
         strDNSServerSearchOrder
        If Not IsNull(objNicConfig.WINSPrimaryServer) Then
          WScript.Echo "        Primary WINS Server . . . . . . . : " & _
           objNicConfig.WINSPrimaryServer
        End If
        If Not IsNull(objNicConfig.WINSSecondaryServer) Then
          WScript.Echo "        Secondary WINS Server . . . . . . : " & _
           objNicConfig.WINSSecondaryServer
        End If
        If objNicConfig.DHCPEnabled Then
          dtmRawLeaseObtainedDate = objNicConfig.DHCPLeaseObtained
          strFormattedLeaseObtainedDate = WMIDateToString(dtmRawLeaseObtainedDate)
          WScript.Echo "        Lease Obtained. . . . . . . . . . : " & _
           strFormattedLeaseObtainedDate
          dtmRawLeaseExpiresDate = objNicConfig.DHCPLeaseExpires
          strFormattedLeaseExpiresDate = WMIDateToString(dtmRawLeaseExpiresDate)
          WScript.Echo "        Lease Expires . . . . . . . . . . : " & _
          strFormattedLeaseExpiresDate
        End If
      End If
    End If
Next
End Function

'******************************************************************************
' 函式: RenewDHCP
' 獲取DHCP地址
'******************************************************************************
Function RenewDHCP
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
   Set colNicConfigs = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration " _
        & "Where IPEnabled = True")
For Each objNicConfig in colNicConfigs
    objNicConfig.RenewDHCPLease()
Next
End Function

'******************************************************************************
' 函式: ReleaseDHCP
' 釋放DHCP地址
'******************************************************************************
Function ReleaseDHCP
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
   Set colNicConfigs = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration " _
        & "Where IPEnabled = True")
For Each objNicConfig in colNicConfigs
    objNicConfig.ReleaseDHCPLease()
Next
End Function

'******************************************************************************
' 函式: WMIDateStringToDate(dtmDate)
' 將 WMI 日期轉換成字串
'******************************************************************************
Function WMIDateToString(dtmDate)
    WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
                      Mid(dtmDate, 7, 2) & "/" & _
                      Left(dtmDate, 4) & " " & _
                      Mid(dtmDate, 9, 2) & ":" & _
                      Mid(dtmDate, 11, 2) & ":" & _
                      Mid(dtmDate, 13, 2))
End Function

'******************************************************************************
' 函式: GetOsVer
' 獲取作業系統版本號
'******************************************************************************
Function GetOsVer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
    GetOSVer = CSng(Left(objOperatingSystem.Version, 3))
Next
End Function

本文轉自
http://hi.baidu.com/li_zhongnan/blog/item/8a3f8dad1696280f4a36d628.html

Wez：Rust編寫的類似Powershell的終端模擬器
2021-12-13
Rust
WMI技術的應用 (轉)
2007-12-14
應用系統按表空間的應用方式使用，表空間的配置
2013-02-25
關於工作當中系統引擎到底是用手寫還是用類似yacc工具編寫？
2015-07-17
編寫高效的MySQL應用(轉)
2007-08-11
MySql
【Java8新特性】Optional類在處理空值判斷場景的應用迴避空指標異常編寫健壯的應用程式
2022-02-24
Java指標
gmcache一個用go寫的分散式快取，類似memcached
2017-01-19
Go分散式快取
編寫友好的命令列應用程式
2020-08-05
命令列
Go 編寫 Web 應用
2019-04-03
GoWeb
如何在struts模式中設定類似Application的應用？
2003-11-25
模式APP
用PHP編寫Android應用程式
2019-05-11
PHPAndroid
用LoadRunner編寫socket應用的測試指令碼
2009-10-02
指令碼
JS時間軸效果(類似於qq空間時間軸效果)
2013-11-04
JS
[Appium] Ios 有類似 Andriod 的 noReset 來清掉應用的快取嗎
2020-10-19
APPiOS快取
[譯] 介紹一款 Flutter 的 Widget 生成器：用 Flutter 編寫的應用構建工具
2019-02-24
Flutter
java工具類編寫思考
2018-09-06
Java
用Vue仿了一個類似抖音的App
2024-04-03
VueAPP
ORACLE應用經驗(5)-表空間
2007-05-14
Oracle
Datafaker是用於生成類似生產資料的工具 – jworks.io
2022-01-15
Calendar 類的應用
2016-09-29
Canvas類的應用
2005-03-25
Canvas
【臨時表空間組】臨時表空間組的建立、維護及應用
2018-02-08
用RecyclerView實現類似支付寶應用圖示拖拽排序以及增刪管理的功能
2021-03-16
View排序
使用Golang的Gin框架和vue編寫web應用
2018-12-02
Golang框架VueWeb
編寫執行緒安全的JSP應用程式
2020-12-29
執行緒JS
如何編寫簡單的應用window視窗程式
2016-10-07
編寫安全PHP應用程式的七個習慣
2015-04-13
PHP
編寫 iPhone Friendly 的 Web 應用程式 (Part 6 - iUI)
2008-01-07
iPhoneWebUI
用 golang 去實現類似 swoole 的 websocket 服務 ?
2020-05-11
GolangWeb
Redis 地理空間(geospatial)介紹及應用
2020-04-04
Redis
ORACLE應用經驗(5)-表空間（轉）
2007-08-10
Oracle
空間向量變換，以及OpenGL的glm庫簡單應用
2020-09-24
【安卓筆記】硬碟快取工具類的編寫
2015-02-16
安卓筆記硬碟快取
[譯] 如何編寫全棧 JavaScript 應用
2019-09-25
全棧JavaScript
編寫iOS應用程式有何不同
2012-03-28
iOS
用PYTHON初次編寫小工具心得
2019-04-14
Python
最終資訊模式：終結夏農極限，語義通訊的另類空間
2022-03-23
模式
如何使Xcode佔用更少的空間 Xcode佔用空間太大解決方法
2021-05-26
XCode

WMI 應用——用 VBScript 編寫類似 ipconfig 的工具_終南的IT空間

相關文章