Script to echo IP address of all adapters

[thec0dy]

I have a script that I am using to show the host name, user name, and ip address of a computer. Now it only will show 1 ip address.I want it to show all of the available ip addresses like the wired and wireless connections.

Here is a script I found online that I have tweaked a little. It gets the ip address from running ipconfig to a text file and stripping out the info needed. It could be better, but it works.

<script>

'==============================================================================
'= Script that will Pop up User Name - Computer Name - IP Address of computer =
'==============================================================================

Set wshShell = WScript.CreateObject("WSCript.shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS In colOSes
strOSVersion = objOS.Caption
Next

If InStr(strOSVersion, "XP") Then

'=====================
'= WINDOWS XP ONLY
'=====================

On Error Resume Next

Dim WSH, FSO, RunIPConfig, TempDir, CMD, OpenFile, AllText, IntStr1, IntCounter
Dim FileExist, IPText, IntStr2, IPStart, IPEnd, IPDiff, IPAddress, StartPos, IntStr3, IPAddress1
Dim strComputerName, FinalIP

Set WSH = WSCript.CreateObject("WScript.Shell")
Set WshNtwk = WScript.CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

TempDir = WSH.ExpandEnvironmentStrings("%TEMP%")
CMD = WSH.ExpandEnvironmentStrings("%Comspec% /C")

StartPos = 1

' Silently run ipconfig; output to temporary file
RunIPConfig = WSH.run(CMD & " Ipconfig > %TEMP%\000001.tmp", 0, True)
WSCript.Sleep 200

FileExist = FSO.FileExists(TempDir & "\000001.tmp")

' Read through ipconfig output in temp file; strip the IP address from the text
StartPos = 1
For IntCounter = 1 to 6
If FileExist = True Then
Set OpenFile = FSO.OpenTextFile(TempDir & "\000001.tmp", 1, False, 0)
OpenFile.Skip(StartPos)
Do While NOT OpenFile.AtEndOfStream
AllText = OpenFile.ReadAll
Loop
IntStr1 = Instr(StartPos, AllText, "IP Address", 1)
IntStr2 = InStr(IntStr1, AllText, ": ", 1)
IPStart = IntStr2 + 2
IPEnd = IPStart + 15
IPDiff = IPEnd - IPStart
IPAddress = Mid(AllText, IPStart, IPDiff)
IntStr3 = InStr(1, IPAddress, "0.0.0.0", 1)
If IntStr3 = "1" Then
StartPos = IPEnd
End If
If NOT IntStr3 = "1" Then
IntCounter = 6
End If
End If
Next

' Remove spacings and carriage returns
IPAddress1 = trim(IPAddress)
FinalIP = Replace(IPAddress1, vbCr, "")

' Display the IP address and computer name in user-friendly message box
MsgBox "User Name:" & vbTab & Ucase(WshNtwk.UserName) & vbCrLf & "Computer Name:" & vbTab & Ucase(WshNtwk.ComputerName) & vbCrLf & "IP Address:" & vbTab & FinalIP, vbOkOnly , "Computer Details"

On Error Goto 0

WScript.Quit

ELSE

'==============================
'= Windows Vista / 7 / 2008 =
'==============================

On Error Resume Next

'Dim WSH, FSO, RunIPConfig, TempDir, CMD, OpenFile, AllText, IntStr1, IntCounter
'Dim FileExist, IPText, IntStr2, IPStart, IPEnd, IPDiff, IPAddress, StartPos, IntStr3, IPAddress1
'Dim strComputerName, FinalIP

Set WSH = WSCript.CreateObject("WScript.Shell")
Set WshNtwk = WScript.CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

TempDir = WSH.ExpandEnvironmentStrings("%TEMP%")
CMD = WSH.ExpandEnvironmentStrings("%Comspec% /C")

StartPos = 1

' Silently run ipconfig; output to temporary file
RunIPConfig = WSH.run(CMD & " Ipconfig > %TEMP%\000001.tmp", 0, True)
WSCript.Sleep 200

FileExist = FSO.FileExists(TempDir & "\000001.tmp")

' Read through ipconfig output in temp file; strip the IP address from the text
StartPos = 1
For IntCounter = 1 to 6
If FileExist = True Then
Set OpenFile = FSO.OpenTextFile(TempDir & "\000001.tmp", 1, False, 0)
OpenFile.Skip(StartPos)
Do While NOT OpenFile.AtEndOfStream
AllText = OpenFile.ReadAll
Loop
IntStr1 = Instr(StartPos, AllText, "IPv4 Address", 1)
IntStr2 = InStr(IntStr1, AllText, ": ", 1)
IPStart = IntStr2 + 2
IPEnd = IPStart + 15
IPDiff = IPEnd - IPStart
IPAddress = Mid(AllText, IPStart, IPDiff)
IntStr3 = InStr(1, IPAddress, "0.0.0.0", 1)
If IntStr3 = "1" Then
StartPos = IPEnd
End If
If NOT IntStr3 = "1" Then
IntCounter = 6
End If
End If
Next

' Remove spacings and carriage returns
IPAddress1 = trim(IPAddress)
FinalIP = Replace(IPAddress1, vbCr, "")

' Display the IP address and computer name in user-friendly message box
MsgBox "User Name:" & vbTab & Ucase(WshNtwk.UserName) & vbCrLf & "Computer Name:" & vbTab & Ucase(WshNtwk.ComputerName) & vbCrLf & "IP Address:" & vbTab & FinalIP, vbOkOnly , "Computer Details"


On Error Goto 0

WScript.Quit

End If

</script



</script>

 

[jges]

You might find something of interest here:
thread329-1651826
or here:
thread329-956809
and possibly here:
thread329-1661182

 

[MasterRacker]

Instead of parsing the output of ipconfig, you could try this approach:

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapterCfgs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
For Each objAdapterCfg In colAdapterCfgs
  Set objAdapter = objWMIService.Get ("Win32_NetworkAdapter.DeviceID=" & objAdapterCfg.Index)
  
  if objAdapter.PhysicalAdapter = True then
	wscript.echo "Physical adapter. Caption: " & objAdapter.Caption & " IP: " & objAdapterCfg.IPAddress(0)
  else	
	wscript.echo "Virtual adapter."
  end if	
Next

Jeff
[small][purple]It's never too early to begin preparing for [/purple]International Talk Like a Pirate Day
"The software I buy sucks, The software I write sucks. It's time to give up and have a beer..." - Me[/small]