[megaloman]

Код:

@Echo off
Set "Arc="%ProgramFiles%\WinRar\Rar.exe" e -y"

Call :UnArc "Z:\Soft_Arc\GeoLiteCity.dat.gz" "GeoLiteCity.dat" "Z:\"
Call :UnArc "Z:\Soft_Arc\GeoIP.dat.gz" "GeoIP.dat" "Z:\"

GoTo :Eof

:UnArc
	If Not Exist %1 (Echo %1 Not Exist &Exit /B 404) 
	Pushd %3 ||(Echo %3 &Exit /B 404)
	%Arc% %1 %2
	Set /A Out=%ErrorLevel%
	Popd
Exit /B %Out%

Пропишите свои пути файлов Call :UnArc "Путь к архиву" "имя файла" "куда извлекаем"
Попутно вопросы:
В архиве 1 файл?
Почему Вы извлекаете файл в C:\1\GeoIP.dat а не сразу в D:\