strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set IPConfigSet = objWMIService.ExecQuery _ ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i) Next End IfNext

(885) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的