Cannot get a bat file to work in Windows XP

[eXtremer]

I've got some user that still use Windows XP, for them I made this code below, because at that moment I didn't had a Windows XP machine I've mad the testings on a Windows Server 2003, the code worked without an issue, now when trying the same code on a Windows XP machine unfortunately it doesn't work.

The code:

Code: Select all

@rasdial VPN username password
@setlocal
@for /f "tokens=1-2 delims=:" %%i in ('ipconfig ^| find "IP Address" ^| find "172.23"') do set GETIP=%%j
@route add 172.30.255.0 mask 255.255.255.0 %GetIp%
@endlocal

Host: 172.30.255.22
Gateway: might be any IP in this range 172.23.241.2-172.23.241.2 given by the DHCP server

That's why I need to know IP of the gateway before adding a route, in Windows 7 is much more simple to do it, but XP gives me headaches!

Thank you.

[Squashman]

I fail to see how you are getting the Gateway IP address with that code.

[eXtremer]

I fail to see how you are getting the Gateway IP address with that code.

Can you help me with this one? Thank you.

[Squashman]

If you are trying ascertain the Default Gateway shouldn't the FIND be searching for Default Gateway?

[Matt Williamson]

Here
Try this:

Code: Select all

@echo off
setlocal

call :wmic nicconfig where "IPEnabled=TRUE and IPConnectionMetric>0" get defaultipgateway /format:list
exit /b

:wmic
for /f "delims=" %%A in ('wmic %*') do for /f "delims=" %%B in ("%%A") do (
   for /f "tokens=2 delims==" %%a in ("%%B") do (
      if /i %%a NEQ "" (
         for /f delims^=^"^ tokens^=2 %%b in ("%%a") do (echo %%b)
      )   
   )
)   
exit /b

[Squashman]

Matt, Will not work for XP Home.

[Matt Williamson]

I know but he's working in a producton environment so WinXP pro is just an assumption. If he does need it for xp home, I have another script using ipconfig instead.

[eXtremer]

I have another script using ipconfig instead.

Can you post please? Thank you.

[Compo]

What is the output when this is run on the XP Unit(s)?

Code: Select all

@Echo Off
SetLocal
For /F "Tokens=1*" %%A In (
   'IPConfig^|FindStr "\<[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\>"') Do Call :Sub %%B
Set _
Pause
Exit/B
   :Sub
   Set _=%*
   For /F "Tokens=1-2 Delims=: " %%A in ("%_:. =%") Do Set "_%%A=%%B"
   Set "_="

[Squashman]

I have another script using ipconfig instead.

Can you post please? Thank you.

What did you not understand about my last question that you did not answer?