Avatar of jqgoode

asked on 

Need VBscipt to pull IP Address from both Wireless card AND Wired interface in XP PC


I need a VBscript that is able to pull the IP address from both a  Wired and wireless connection. on a XP workstation  If a person is connected to both, I need those IP address.   If I find one, then that becomes the IP address . If I do not find either, I want to exit

I have something that will work for just the LAN interface - attached

Any ideas?
Dim Strcomputer, strIPAddress
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
	("Select IPAddress From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
	'Go through the IP addresses
	For Each IPAddress In colItems
		If IPAddress.IPaddress(0) <> "" Then
			strIPAddress = IPAddress.IPAddress(0)
			Exit For
			Sendmessage "Info", "The computer is not connected to the  Network" & vbNewLine &_
			"Please attach to a connection on the Network and Rerun the program"
		End If
	Wscript.echo "The IP Address Is " & "[ " & strIPAddress & " ]"

Open in new window

VB ScriptScripting LanguagesVisual Basic Classic

Avatar of undefined
Last Comment

8/22/2022 - Mon