Hi - I'm trying to use WMI to obtain the IP address using
select IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE' AND Index=1
But an array is returned - how do I pull the IP address from this in AHM?
Many thanks,
Gavin.
WMI returning arrays
Shell Script to get single WMI value from array
Option Explicit
const statusAlive = "scriptRes:Host is alive:"
const statusDead = "scriptRes:No answer:"
const statusUnknown = "scriptRes:Unknown:"
const statusNotResolved = "scriptRes:Unknown host:"
const statusOk = "scriptRes:Ok:"
const statusBad = "scriptRes:Bad:"
const statusBadContents = "scriptRes:Bad contents:"
'---- entry point ----
dim objWMIService, wbemObjectSet,wbemObject, strIPAddresses
Set objWMIService = GetObject("winmgmts:")
Set wbemObjectSet = objWMIService.ExecQuery("SELECT * FROM " & _
"Win32_NetworkAdapterConfiguration WHERE Index=1 AND IPEnabled = True")
For Each wbemObject In wbemObjectSet
If Not IsNull(wbemObject.IPAddress) Then
strIPAddresses = Join(wbemObject.IPAddress)
Else
strIPAddresses = ""
End If
wscript.stdout.write statusOk
WScript.StdOut.Write strIPAddresses
next
const statusAlive = "scriptRes:Host is alive:"
const statusDead = "scriptRes:No answer:"
const statusUnknown = "scriptRes:Unknown:"
const statusNotResolved = "scriptRes:Unknown host:"
const statusOk = "scriptRes:Ok:"
const statusBad = "scriptRes:Bad:"
const statusBadContents = "scriptRes:Bad contents:"
'---- entry point ----
dim objWMIService, wbemObjectSet,wbemObject, strIPAddresses
Set objWMIService = GetObject("winmgmts:")
Set wbemObjectSet = objWMIService.ExecQuery("SELECT * FROM " & _
"Win32_NetworkAdapterConfiguration WHERE Index=1 AND IPEnabled = True")
For Each wbemObject In wbemObjectSet
If Not IsNull(wbemObject.IPAddress) Then
strIPAddresses = Join(wbemObject.IPAddress)
Else
strIPAddresses = ""
End If
wscript.stdout.write statusOk
WScript.StdOut.Write strIPAddresses
next