'============================================================== ' Get IP script v1.0 Created by: Jim Parsons 10/19/05 ' Purpose: Get active IP address(s) on a computer ' Required: Win XP / 2000 ' Free to use and abuse '============================================================== On Error Resume Next Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ipconfig /all ") STR_IP_CONFIG = LCase(objExec.StdOut.ReadAll) STR_IP_ADDRESS = "ip address" STR_SUBNET = "subnet" 'CHECK TO SEE IF MORE THAN ONE IP ADDRESS STR_IP_COUNT = HOW_MANY_IP(STR_IP_CONFIG, STR_IP_ADDRESS, False) 'IF THERE IS MORE THAN ONE IP, MARK FOR HARVESTING LATER 'REPLACE IP ADDRESS AND SUBNET TEXT IN STRING If STR_IP_COUNT > 1 Then 'REPLACE "IP ADDRESS" TEXT IP_ADD_ONE = 1 STR_IP_TEMP = STR_IP_CONFIG For IP_COUNTER = 1 to STR_IP_COUNT STR_NEW_NAME = "IP" & IP_ADD_ONE STR_IP_HOLD_BF = REPLACE_IP_ADDRESS(STR_IP_TEMP, STR_IP_ADDRESS, STR_NEW_NAME) STR_IP_TEMP = STR_IP_HOLD_BF IP_ADD_ONE = IP_ADD_ONE + 1 Next STR_IP_FINAL = STR_IP_HOLD_BF 'REPLACE "SUBNET" TEXT SUB_ADD_ONE = 1 STR_IP_FROM_REPLACE_TEXT = STR_IP_FINAL SUB_ADD_ONE = 1 For IP_COUNTER2 = 1 to STR_IP_COUNT STR_NEW_SUB_NAME = "SUBN" & SUB_ADD_ONE STR_IP_HOLD_SUBNET = REPLACE_SUBNET(STR_IP_FROM_REPLACE_TEXT, STR_SUBNET, STR_NEW_SUB_NAME) STR_IP_FROM_REPLACE_TEXT = STR_IP_HOLD_SUBNET SUB_ADD_ONE = SUB_ADD_ONE + 1 Next STR_IP_TEMP5 = STR_IP_FROM_REPLACE_TEXT IP_ARRAY_SPOT = 1 IP_ARRAY_FINAL_TEXT = "" For SECOND_COUNTER = 1 to STR_IP_COUNT STR_NEW_NAME = "IP" & IP_ARRAY_SPOT STR_NEW_SUB = "SUBN" & IP_ARRAY_SPOT IP_RESULT1 = InStr(1, STR_IP_TEMP5, STR_NEW_NAME) IP_RESULT2 = InStrRev(STR_IP_TEMP5, STR_NEW_SUB) IP_RESULT_TEXT = Mid(STR_IP_TEMP5, IP_RESULT1, IP_RESULT2 - IP_RESULT1) IP_RESULT3 = InStr(1, IP_RESULT_TEXT, ":") IP_RESULT_FINAL = Mid(IP_RESULT_TEXT, IP_RESULT3, 17) IP_ARRAY_SPOT = IP_ARRAY_SPOT + 1 IP_ARRAY_FINAL_TEXT = IP_ARRAY_FINAL_TEXT & "IP ADDRESS " & IP_RESULT_FINAL & vbcrlf Next 'wscript.echo IP_ARRAY_FINAL_TEXT FINAL_MESSAGE = objShell.Popup(IP_ARRAY_FINAL_TEXT,,"GET IP SCRIPT v1.0 © Jim Parsons", 0 + 64) Else IP_RESULT1 = InStr(1, STR_IP_CONFIG, STR_IP_ADDRESS) IP_RESULT2 = InStrRev(STR_IP_CONFIG, STR_SUBNET) IP_RESULT_TEXT = Mid(STR_IP_CONFIG, IP_RESULT1, IP_RESULT2 - IP_RESULT1) IP_RESULT3 = InStr(1, IP_RESULT_TEXT, ":") +1 IP_RESULT_FINAL = Mid(IP_RESULT_TEXT, IP_RESULT3, 17 ) 'wscript.echo "IP ADDRESS: " & IP_RESULT_FINAL FINAL_MESSAGE = objShell.Popup(IP_RESULT_FINAL,,"GET IP SCRIPT v1.0 © Jim Parsons", 0 + 64) End If '--------------------------------------------------------------------------------- Function REPLACE_SUBNET(STR_TO_SEARCH3, STR_SUBNET_TEXT, STR_NEW_SUB_NAME) REPLACE_SUBNET = Replace(STR_TO_SEARCH3, STR_SUBNET_TEXT, STR_NEW_SUB_NAME, 1, 1, 1) End Function '--------------------------------------------------------------------------------- Function REPLACE_IP_ADDRESS(STR_TO_SEARCH2, STR_IP_ADDRESS2, STR_NEW_NAME2) REPLACE_IP_ADDRESS = Replace(STR_TO_SEARCH2, STR_IP_ADDRESS2, STR_NEW_NAME2, 1, 1, 1) End Function '-------------------------------------------------------------------------------- Function HOW_MANY_IP(STR_TO_SEARCH, STR_WANT_TO_FIND, CASE_SENSITIVE) If CASE_SENSITIVE then HOW_MANY_IP = UBound(split(STR_TO_SEARCH, STR_WANT_TO_FIND)) Else HOW_MANY_IP = UBound(split(UCase(STR_TO_SEARCH), UCase(STR_WANT_TO_FIND))) End If End Function '-------------------------------------------------------------------------------- Set objshell = nothing Set objExec = nothing wscript.quit