Forum WinISO.pl

Kod: Zaznacz cały

@echo off

if "%PROCESSOR_ARCHITECTURE%" equ "amd64" (
    >nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
) else (
    >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
)
if %ERRORLEVEL% neq 0 (
    echo Requesting administrative privileges...
    goto UACPrompt
) else (
    goto gotAdmin
)

:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%TEMP%\getadmin.vbs"
set params= %*
echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params:"=""%", "", "runas", 1 >> "%TEMP%\getadmin.vbs"

wscript.exe "%TEMP%\getadmin.vbs"
del "%TEMP%\getadmin.vbs"
exit /b

:gotAdmin
:loop
:: Sprawdź, czy jesteśmy połączeni z dowolną siecią Wi-Fi
netsh wlan show interfaces | findstr /C:"SSID" >nul
if errorlevel 1 (
    echo Wi-Fi nie jest połączone z żadną siecią.
    :: Włącz automatyczną konfigurację sieci Wi-Fi
    netsh wlan set autoconfig enabled=yes interface="Wi-Fi"
) else (
    echo Wi-Fi jest połączone z przynajmniej jedną siecią.
    :: Wyłącz automatyczną konfigurację sieci Wi-Fi
    netsh wlan set autoconfig enabled=no interface="Wi-Fi"
)

:: Oczekuj przez kilka sekund, a następnie ponownie sprawdź
ping -n 5 127.0.0.1 >nul
goto loop