盗墓笔记小说下载,好看的历史书籍推荐,完美世界小说下载

主頁(yè) > 知識(shí)庫(kù) > 用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼

用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼

用以返回配置數(shù)據(jù)（類似于 IPCONFIG 命令返回信息）的 WMI 腳本。
' Returning IP Configuration Data
' WMI script that returns configuration data similar to that returned by IpConfig.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer  "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
n = 1
WScript.Echo
For Each objAdapter in colAdapters
   WScript.Echo "Network Adapter "  n
   WScript.Echo "================="
   WScript.Echo "  Description: "  objAdapter.Description
   WScript.Echo "  Physical (MAC) address: "  objAdapter.MACAddress
   WScript.Echo "  Host name:              "  objAdapter.DNSHostName
   If Not IsNull(objAdapter.IPAddress) Then
      For i = 0 To UBound(objAdapter.IPAddress)
         WScript.Echo "  IP address:             "  objAdapter.IPAddress(i)
      Next
   End If
   If Not IsNull(objAdapter.IPSubnet) Then
      For i = 0 To UBound(objAdapter.IPSubnet)
         WScript.Echo "  Subnet:                 "  objAdapter.IPSubnet(i)
      Next
   End If
   If Not IsNull(objAdapter.DefaultIPGateway) Then
      For i = 0 To UBound(objAdapter.DefaultIPGateway)
         WScript.Echo "  Default gateway:        "  objAdapter.DefaultIPGateway(i)
      Next
   End If
   WScript.Echo
   WScript.Echo "  DNS"
   WScript.Echo "  ---"
   WScript.Echo "    DNS servers in search order:"
   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
      For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
         WScript.Echo "      "  objAdapter.DNSServerSearchOrder(i)
      Next
   End If
   WScript.Echo "    DNS domain: "  objAdapter.DNSDomain
   If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then
      For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)
         WScript.Echo "    DNS suffix search list: "  objAdapter.DNSDomainSuffixSearchOrder(i)
      Next
   End If
   WScript.Echo
   WScript.Echo "  DHCP"
   WScript.Echo "  ----"
   WScript.Echo "    DHCP enabled:        "  objAdapter.DHCPEnabled
   WScript.Echo "    DHCP server:         "  objAdapter.DHCPServer
   If Not IsNull(objAdapter.DHCPLeaseObtained) Then
      utcLeaseObtained = objAdapter.DHCPLeaseObtained
      strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)
   Else
      strLeaseObtained = ""
   End If
   WScript.Echo "    DHCP lease obtained: "  strLeaseObtained
   If Not IsNull(objAdapter.DHCPLeaseExpires) Then
      utcLeaseExpires = objAdapter.DHCPLeaseExpires
      strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)
   Else
      strLeaseExpires = ""
   End If
   WScript.Echo "    DHCP lease expires:  "  strLeaseExpires
   WScript.Echo
   WScript.Echo "  WINS"
   WScript.Echo "  ----"
   WScript.Echo "    Primary WINS server:   "  objAdapter.WINSPrimaryServer
   WScript.Echo "    Secondary WINS server: "  objAdapter.WINSSecondaryServer
   WScript.Echo
   n = n + 1
Next
Function WMIDateStringToDate(utcDate)
   WMIDateStringToDate = CDate(Mid(utcDate, 5, 2)   "/"  _
                               Mid(utcDate, 7, 2)   "/"  _
                               Left(utcDate, 4)     " "  _
                               Mid (utcDate, 9, 2)  ":"  _
                               Mid(utcDate, 11, 2)  ":"  _
                               Mid(utcDate, 13, 2))
End Function

您可能感興趣的文章:

ASP、vbscript編碼模板
ASP中一個(gè)用VBScript寫(xiě)的隨機(jī)數(shù)類
利用vbscript腳本修改文件內(nèi)容，此適用于自動(dòng)化的操作中
asp,VBscript語(yǔ)法錯(cuò)誤,史上最全最詳細(xì)最精確
vbscript腳本編程教程2利用fso來(lái)進(jìn)行文件操作
使用vbscript腳本在表單中進(jìn)行選擇的代碼
ASP里面令人震撼地Debug類（VBScript）
調(diào)試JavaScript/VBScript腳本程序（IE篇）
JavaScript/VBScript腳本程序調(diào)試（Wscript篇）
枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）
ASP/VBScript中CHR(0)的由來(lái)以及帶來(lái)的安全問(wèn)題分析
ASP(VBScript)中整除和取余
ASP基礎(chǔ)知識(shí)VBScript基本元素講解
ASP基礎(chǔ)入門(mén)第四篇(腳本變量、函數(shù)、過(guò)程和條件語(yǔ)句)

標(biāo)簽：六安漳州周口臺(tái)灣廣安嘉興玉林延安

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼》，本文關(guān)鍵詞用,vbscript,腳本,實(shí)現(xiàn),返回,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。