DDR爱好者之家 Design By 杰米
描述信息
用以返回配置数据(类似于 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 
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米

P70系列延期,华为新旗舰将在下月发布

3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。

而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?

根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。