Open elekgeek opened 6 years ago
If IsObj($colItems) Then For $objItem In $colItems FileWriteLine($log, "[" & $objItem.NetConnectionID & "]") FileWriteLine($log, "ProductName=" & $objItem.ProductName) $value = $objItem.NetConnectionID $GUID = $objItem.GUID If StringLen($value) > 1 Then $Output = $Output & $value & "|" $colItems2 = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE SettingID = '" & $GUID & "'", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) For $objItem2 In $colItems2 If $objItem.Index = $objItem2.Index Then FileWriteLine($log, "SettingID=" & $objItem2.SettingID) FileWriteLine($log, "IPAddress=" & $objItem2.IPAddress(0)) FileWriteLine($log, "MACAddress=" & $objItem2.MACAddress) EndIf Next Next Else MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration") EndIf
it works like a charm
If IsObj($colItems) Then For $objItem In $colItems FileWriteLine($log, "[" & $objItem.NetConnectionID & "]") FileWriteLine($log, "ProductName=" & $objItem.ProductName) $value = $objItem.NetConnectionID $GUID = $objItem.GUID If StringLen($value) > 1 Then $Output = $Output & $value & "|" $colItems2 = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE SettingID = '" & $GUID & "'", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) For $objItem2 In $colItems2 If $objItem.Index = $objItem2.Index Then FileWriteLine($log, "SettingID=" & $objItem2.SettingID) FileWriteLine($log, "IPAddress=" & $objItem2.IPAddress(0)) FileWriteLine($log, "MACAddress=" & $objItem2.MACAddress) EndIf Next Next Else MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration") EndIf
it works like a charm