Usage: Save as a .vbs file, double click to run. Set ipconfigset = getObject ("WinMgmts: {ImpersonationLevel = Impersonate}"). 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
