终极一班3官网,学校风流魔君,越南大学生艳照门
用以返回配置数据（类似于 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
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论