[gelöst] Internetverbindungsfreigabe: Unzuverlässiger DNS Proxy

@echo off  && setlocal enabledelayedexpansion
rem *****************************************
rem * Startup Script for UMTS WLAN Hotspot  *
rem *****************************************
rem * creates a WLAN hotspot sharing UMTS   *
rem *****************************************
rem * Testversion 27.01.2015  (C) GR 2015   *
rem *****************************************
cd /d %~dp0

rem Here you can configure a different IP address for the access point
rem Default is 192.168.137.1
set APADDRESS=

rem Connection which provides Internet Access (to be shared)
set SHCONN1="Vodafone Mobile Broadband"
set SHCONN2="Mobile Broadband Connection"

rem Test which one of the mobile connections to be used
set NW=Down
call :GetStatus %SHCONN1% NW
rem echo %SHCONN1% is %NW%
set SHCONN=%SHCONN1%
if "%NW%" EQU "Down" (
     echo trying alternative...
     call :GetStatus %SHCONN2% NW
     rem echo %SHCONN2% is %NW%
)else goto :connect 

if "%NW%" EQU "Down" (
   echo both mobile interfaces down
   goto :end
) else (
   
   set SHCONN=%SHCONN2%
)
:connect
echo using %SHCONN% ...
rem WLAN Connection (Virtual WiFi Miniport) which should serve as hotspot
set APCONN="Wireless Network Connection 2"

rem reset WLAN adapter
echo Shutting down WLAN adapter
netsh interface set interface "name=Wireless Network Connection" admin = DISABLED
sleep 2

netsh interface set interface "name=Wireless Network Connection" admin = ENABLED
<nul set /p =Restarting WLAN adapter
:WAIT1
sleep 2
<nul set /p =.
netsh interface show interface "name=Wireless Network Connection" | find "Aktiviert" > nul
if errorlevel 1 goto WAIT1
echo.

for /F "tokens=3 delims=: " %%H in ('sc query SharedAccess ^| findstr "        STATE"') do (
  if /I "%%H" NEQ "RUNNING" (
   REM Put your code you want to execute here
   echo starting Internet Connection Sharing service...
   net start SharedAccess
   sleep 10
  )
)

rem Set the IP address for the access point (if configured)
if defined APADDRESS (
    for %%i in (ScopeAddress ScopeAddressBackup StandaloneDHCPAddress) do (
        REG ADD "HKLM\System\CurrentControlSet\Services\SharedAccess\Parameters" /t REG_SZ /v %%i /d %APADDRESS% /f
    )
)

rem Switch off company proxy in case it was switched on
start "Proxy" regedit.exe /s proxy_biotest_aus.reg

rem set up virtual network adapter
netsh wlan set hostednetwork mode=allow ssid=PrivateNet key=myverysecretkey keyUsage=persistent

rem Enable Internet Connection Sharing
icsmanager enable %SHCONN% %APCONN%  force

rem Enable the hotspot
netsh wlan start hostednetwork
goto :end

rem Subroutines here
:GetStatus

set foundadapter=
for /f "tokens=1,2 delims=:" %%i in ( ' icsmanager info ' ) do (
    rem remove leading space from interface name
    set n=%%j
    set n=!n:~1%!
    if "!n!" EQU %1 set foundadapter=Y
  
    if defined foundadapter (
        set prf=%%i
        set prf=!prf:~0,6!
        
        if "!prf!" == "Status" (
            set st=%%j
            set st=!st:~1%!
            set %2=!st!
            echo %1 is !st!
            set foundadapter=
            exit /b
        )
    ) 
)

exit /b

:end