@echo off

rem 2007-05-11 allowing casg.rz.tu-harburg.de (193.174.167.246) permanent access in windows xp sp2 firewall
rem 2008-02-21 added backup vpn server ip (134.28.202.142)

setlocal
set errLev=0
set SP="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"
set DP="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List"
set cvpndexe="%ProgramFiles%\Cisco Systems\VPN Client\cvpnd.exe"

reg.exe ADD %SP% /v %cvpndexe% /t REG_SZ /d "%cvpndexe:"=%:134.28.202.142/255.255.255.255,193.174.167.246/255.255.255.255:Enabled:Cisco VPN Client" /f 1>NUL 2>&1
set /a errLev += %ERRORLEVEL%
reg.exe ADD %DP% /v %cvpndexe% /t REG_SZ /d "%cvpndexe:"=%:134.28.202.142/255.255.255.255,193.174.167.246/255.255.255.255:Enabled:Cisco VPN Client" /f 1>NUL 2>&1
set /a errLev += %ERRORLEVEL%

if %errLev% GTR 0 echo.Error setting registry. & pause & exit /b 1

echo.Done. & pause

exit /b 0