Script Change Gateway and DNS (Winxp,Win7,)

@ECHO OFF
setLocal EnableDelayedExpansion
SET vargw=192.168.0.51
SET xdns1=192.168.0.13
SET xdns2=192.168.0.1
FOR /F "Tokens=1,2,3,4,* delims= " %%i in ('ver') DO set VCHK=%%l
IF %VCHK%==6 SET IPVxS=ipv4
SET IPVxS=ip
FOR /F "Tokens=2 delims==" %%z in ('WMIC NIC where "NetConnectionStatus='2' and NetConnectionID like 'Local Area Connection%%'" GET NetConnectionID /VALUE') DO SET LCON1=%%z
FOR /F "Tokens=1,2,3,4 delims==: " %%a in ('netsh interface %IPVxS% show addresses "%LCON1%" ^| Find /i "IP Address:"') do set MYIP=%%c
netsh interface %IPVxS% set address name = "%LCON1%" source = static addr = %MYIP% mask = 255.255.255.0 gateway = %vargw% gwmetric = 1 1>&2>nul
netsh interface %IPVxS% set dns "%LCON1%" static %xdns1% primary 1>&2>nul
netsh interface %IPVxS% add dns "%LCON1%" %xdns2% 1>&2>nul
Endlocal
pause
exit