Probleme mit meinem zähler...
Hallo zusammen,
ich habe folgendes Problem mit meinen Skript und zwar beendet das Skript nicht wenn er 5 mal versucht hat das (Netzlaufwerk) zu erreichen!? Warum!?
Anbei das Skript:
for /f "Tokens=1 Delims= " %%i in ('date /t') do set dt=%%i
for /f "Tokens=1" %%i in ('time /t') do set tm=-%%i
set tm=%tm::=-%
set dtt=%dt%%tm%
SET ziel=D:\MP3-Install\Programme
SET LOGFILE=%ziel%\MP3-Update\LogDateien\WAN-IP-%computername%-%dtt%.TXT
rem IP wird ausgelesen
WGET.EXE -O "%Temp%.\index.html" http://checkip.dyndns.org/index.html >NUL 2>&1
FOR /F "tokens=8 delims=<>" %%A IN ('TYPE "%Temp%.\index.html" ^| FIND /I "Current IP Address:"') DO FOR %%B IN (%%A) DO SET WAN_IP_NEW=%%B
DEL "%Temp%.\index.html"
@echo Am %date% um %time% wurde die IP %WAN_IP_NEW% registriert>> %LOGFILE%
:Netzlaufwerk
for /F "tokens=1" %%a IN ('ping 10.1.1.1 ^| FIND "Antwort"') do IF "%%a" == "Antwort" goto copy
set counter=0
set maxcount=5
echo Das Netzlaufwerk ist noch nicht verbunden!
set /a counter=%counter% + 1
if "%counter%" EQU "%maxcount%" goto ERRMAX
goto Netzlaufwerk
:copy
rem Computerbeschreibung in eine Variable schreiben (Computerbs)
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters" /v srvcomment') DO SET Computerbs=%%B
xcopy %ziel%\MP3-Update\LogDateien\*.txt U:\LogDateien\"%Computerbs%"-%computername% /Y
xcopy %ziel%\MP3-Update\LogDateien\*.txt D:\MP3-Install\LogDateien /Y
eventcreate /t INFORMATION /SO WAN-IP /L Application /ID 11 /D "Die IP Adresse wurde an dem Server übermittelt! Am %date% um %time% Uhr."
goto eof
:ERRMAX
eventcreate /t WARNING /SO WAN-IP /L Application /ID 11 /D "Die IP Adresse wurde nicht an dem Server übermittelt! Das Netzlaufwerk ist nicht verfügbar"
Folgende Hintergrundinfos, ich baue im Hintergrund eine VPN Verbindung zu einem Server auf (auch per batch). Wenn das Netzlaufwerk U:\ verbunden ist bzw. die IP 10.1.1.1 erreichbar, dann soll die IP Adresse an den Server übermittelt werden.
Wäre Euch dankbar wenn mir jemand einen Tipp geben könnte.
Gruß Kirus22
ich habe folgendes Problem mit meinen Skript und zwar beendet das Skript nicht wenn er 5 mal versucht hat das (Netzlaufwerk) zu erreichen!? Warum!?
Anbei das Skript:
for /f "Tokens=1 Delims= " %%i in ('date /t') do set dt=%%i
for /f "Tokens=1" %%i in ('time /t') do set tm=-%%i
set tm=%tm::=-%
set dtt=%dt%%tm%
SET ziel=D:\MP3-Install\Programme
SET LOGFILE=%ziel%\MP3-Update\LogDateien\WAN-IP-%computername%-%dtt%.TXT
rem IP wird ausgelesen
WGET.EXE -O "%Temp%.\index.html" http://checkip.dyndns.org/index.html >NUL 2>&1
FOR /F "tokens=8 delims=<>" %%A IN ('TYPE "%Temp%.\index.html" ^| FIND /I "Current IP Address:"') DO FOR %%B IN (%%A) DO SET WAN_IP_NEW=%%B
DEL "%Temp%.\index.html"
@echo Am %date% um %time% wurde die IP %WAN_IP_NEW% registriert>> %LOGFILE%
:Netzlaufwerk
for /F "tokens=1" %%a IN ('ping 10.1.1.1 ^| FIND "Antwort"') do IF "%%a" == "Antwort" goto copy
set counter=0
set maxcount=5
echo Das Netzlaufwerk ist noch nicht verbunden!
set /a counter=%counter% + 1
if "%counter%" EQU "%maxcount%" goto ERRMAX
goto Netzlaufwerk
:copy
rem Computerbeschreibung in eine Variable schreiben (Computerbs)
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters" /v srvcomment') DO SET Computerbs=%%B
xcopy %ziel%\MP3-Update\LogDateien\*.txt U:\LogDateien\"%Computerbs%"-%computername% /Y
xcopy %ziel%\MP3-Update\LogDateien\*.txt D:\MP3-Install\LogDateien /Y
eventcreate /t INFORMATION /SO WAN-IP /L Application /ID 11 /D "Die IP Adresse wurde an dem Server übermittelt! Am %date% um %time% Uhr."
goto eof
:ERRMAX
eventcreate /t WARNING /SO WAN-IP /L Application /ID 11 /D "Die IP Adresse wurde nicht an dem Server übermittelt! Das Netzlaufwerk ist nicht verfügbar"
Folgende Hintergrundinfos, ich baue im Hintergrund eine VPN Verbindung zu einem Server auf (auch per batch). Wenn das Netzlaufwerk U:\ verbunden ist bzw. die IP 10.1.1.1 erreichbar, dann soll die IP Adresse an den Server übermittelt werden.
Wäre Euch dankbar wenn mir jemand einen Tipp geben könnte.
Gruß Kirus22
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 102025
Url: https://administrator.de/contentid/102025
Ausgedruckt am: 26.11.2024 um 16:11 Uhr
2 Kommentare
Neuester Kommentar