Skript pro přepnutí Public/Private wifi

Amigo Ventero 10

Nechal jsem si na ChatGPT udělat skript a po nějakém doladění jsem se dostal k funkčnímu přepínači, akorát, že po stisknutí klávesy po oznámení ERRORLEVEL se už neprovede kontrola a výpis konečného stavu:

@echo off
setlocal
set "IFNAME=Wi-Fi"
echo IFNAME="%IFNAME%"
echo Overeni adapteru...
powershell -NoProfile -Command "if(-not (Get-NetAdapter -Name '%IFNAME%' -ErrorAction SilentlyContinue)) { Write-Output '>>PS: NOADAPTER' ; exit 2 } ; if((Get-NetAdapter -Name '%IFNAME%').Status -ne 'Up') { Write-Output '>>PS: NOTUP' ; exit 3 } ; Write-Output '>>PS: ADAPTER_OK'; exit 0"
echo ERRORLEVEL=%ERRORLEVEL%
echo Ziskavam aktualni kategorii...
for /f "usebackq delims=" %%C in (`powershell -NoProfile -Command "Try { $p = Get-NetConnectionProfile -InterfaceAlias '%IFNAME%' -ErrorAction SilentlyContinue; if(-not $p){ Write-Output '' ; exit 3 } ; Write-Output $p.NetworkCategory ; exit 0 } Catch { exit 1 }"`) do set "CUR_CAT=%%C"
echo CUR_CAT="%CUR_CAT%"
if "%CUR_CAT%"=="" (
  echo Neexistujici nebo prazdny connection profile pro "%IFNAME%".
  pause
  exit /b 1
)
if /i "%CUR_CAT%"=="Private" (
  set "NEW_CAT=Public"
) else (
  set "NEW_CAT=Private"
)
echo Nastavuji "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"...
powershell -NoProfile -Command "Try { Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT% ; Write-Output '>>PS: SET_OK' ; exit 0 } Catch { Write-Output ('>>PS: SET_ERR ' + $_.Exception.Message) ; exit 1 }"
echo Po nastavovani: ERRORLEVEL=%ERRORLEVEL%
pause
if %ERRORLEVEL% EQU 0 (
  echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%".
) else (
  echo Chyba pri nastavovani. Spustte PowerShell (Admin) a overte: Get-NetAdapter ; Get-NetConnectionProfile
)
echo KONEC. Okno zustane otevrene.
pause
endlocal

Toto už nedělá nic - okno se po stisku klávesy ukončí a žádný výpis:

if %ERRORLEVEL% EQU 0 (   echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%". ) else (   echo Chyba pri nastavovani. Spustte PowerShell (Admin) a overte: Get-NetAdapter ; Get-NetConnectionProfile )  echo KONEC. Okno zustane otevrene.
pause
endlocal

Další varianta se stejným výsledkem:

~~
powershell -NoProfile -Command "Try { Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT% ; Write-Output '>>PS: SET_OK' ; exit 0 } Catch { Write-Output ('>>PS: SET_ERR ' + $_.Exception.Message) ; exit 1 }" set "PSRC=%ERRORLEVEL%" echo Po nastavovani: ERRORLEVEL=%PSRC% pause
if "%PSRC%"=="0" ( echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%". ) else ( echo Chyba pri nastavovani. Spustte PowerShell (Admin) a overte: Get-NetAdapter ; Get-NetConnectionProfile )
echo KONEC. Okno zustane otevrene.
pause
endlocal

Nebo jiná varianta, taktéž se stejným výsledkem:

~~
powershell -NoProfile -Command "Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT%"
set "PSRC=%ERRORLEVEL%"
if "%PSRC%"=="0" (
echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%".
) else (
echo Chyba pri nastavovani. Spustte PowerShell (Admin) a overte: Get-NetAdapter ; Get-NetConnectionProfile
)
echo KONEC. Okno zustane otevrene.
pause
endlocal

Prosím o revizi, příp. optimalizaci a radu, jak udělat tu kontrolu s příslušným výpisem.

Jinak nemělo by být endlocal před pause?

Miroslav Pragl 78,941 Reputační body Dobrovolný moderátor

2026-02-14T07:48:14.12+00:00

Uber uvozvky, nejak jima plytvas. Vsechny pryc.

A pridej si treba

set PSRC=%ERRORLEVEL%

echo %PSRC%

PAUSE

if %PSRC%==0 (

jaky vidis prinos v setlocal? stejne se batch ukonci, shell ukonci ...

MP

Amigo Ventero 10

setlocal a endlocal mi tvrdil AI chat, že je potřeba, aby se nastavená proměnná nezachovala pro jiné aplikace a skripty.

Moc nechápu - když pominu ty uvozovky, tak to v tom skriptu takhle je a chovalo se to stejně i bez nich v
if %PSRC% ~.
Nakonec jsem to vyřešil po basicovsku pomocí goto:

@echo off
setlocal
set "IFNAME=Wi-Fi"
echo IFNAME="%IFNAME%"
echo Overeni adapteru...
powershell -NoProfile -Command "if(-not (Get-NetAdapter -Name '%IFNAME%' -ErrorAction SilentlyContinue)) { Write-Output '>>PS: NOADAPTER' ; exit 2 } ; if((Get-NetAdapter -Name '%IFNAME%').Status -ne 'Up') { Write-Output '>>PS: NOTUP' ; exit 3 } ; Write-Output '>>PS: ADAPTER_OK'; exit 0"
echo ERRORLEVEL=%ERRORLEVEL%
echo Ziskavam aktualni kategorii...
for /f "usebackq delims=" %%C in (`powershell -NoProfile -Command "Try { $p = Get-NetConnectionProfile -InterfaceAlias '%IFNAME%' -ErrorAction SilentlyContinue; if(-not $p){ Write-Output '' ; exit 3 } ; Write-Output $p.NetworkCategory ; exit 0 } Catch { exit 1 }"`) do set "CUR_CAT=%%C"
echo CUR_CAT="%CUR_CAT%"
if "%CUR_CAT%"=="" (
  echo Neexistujici nebo prazdny connection profile pro "%IFNAME%"
  pause
  exit /b 1
)
if /i "%CUR_CAT%"=="Private" (
  set "NEW_CAT=Public"
) else (
  set "NEW_CAT=Private"
)
echo Nastavuji "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"
powershell -NoProfile -Command "Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT%"
set "PSRC=%ERRORLEVEL%"
echo ERRORLEVEL = %ERRORLEVEL%, PSRC = %PSRC%
if "%ERRORLEVEL%"=="0" goto :OK
goto :ERR
:OK
echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%"
goto :Konec
:ERR
echo Chyba pri nastavovani. Spustte PowerShell (Admin) a overte: Get-NetAdapter ; Get-NetConnectionProfile
goto :Konec
:Konec
powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Nyni jste v rezimu %NEW_CAT%','Zmena Wifi site',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
endlocal

Ještě pak tedy odstraním ty uvozovky - je to takhle správně, nebo se to dá optimalizovat?
A ještě dotazy:
Mohu docílit, aby se při výkonu neotevřelo CMD a až do messageboxu to proběhlo na pozadí?
Nebo aspoň aby CMD nečekal na na OK v MsgBox a rovnou skript doběhl, cmd se uzavřel a viselo by tam jen to okno MsgBoxu?

A aby to po dvoukliku rovnou proběhlo jako správce (v Linuxu normál, tady jsem tu možnost našel jenom u zástupce)?

A nebo by bylo lepší pro mé cíle to rovnou přepsat do PS? Tam by to šlo udělat jak si přeji?

Amigo Ventero 10 Reputační body

2026-02-15T14:15:32.6333333+00:00

Zase mi to odstranilo komentář. Zdá se, že jakmile vložíš cokoliv do bloku kódu, tak se to automaticky odstraní.

Odpověď doporučená moderátorem

Amigo Ventero 10

Funkční skript vypadá takto, ale zaboha nemůžu do messageboxu dostat češtinu. Když to spustím samostatně v cmd jen ten příkaz, tak korektně, ale jakmile to spustím ve skriptu .cmd, tak jsou tam nesmyslné znaky:

@echo off
setlocal
rem Rucni nastaveni:
rem set IFNAME=Wi-Fi
rem echo IFNAME="%IFNAME%"
rem Zjisteni a nastaveni dle MediaType:
rem for /f "usebackq delims=" %%A in (`powershell -NoProfile -Command "Get-NetAdapter | Where-Object {($_.MediaType -eq 'Native 802.11' -or $_.MediaType -eq '802.3') -and $_.Status -eq 'Up'} | Select-Object -ExpandProperty Name | Select-Object -First 1"`) do set IFNAME=%%A
rem Zjisteni a nastaveni dle nazvu:
for /f "usebackq delims=" %%A in (`powershell -NoProfile -Command "Get-NetAdapter | Where-Object {($_.Name -like '*Wi-Fi*' -or $_.Name -like '*Ethernet*') -and $_.Status -eq 'Up'} | Select-Object -ExpandProperty Name | Select-Object -First 1"`) do set IFNAME=%%A
if %IFNAME%=="" (
    echo Nebyl nalezen aktivni WiFi nebo Ethernet adapter
    goto :ERR
)
echo Nalezen aktivni sitovy adapter "%IFNAME%"
echo Overeni adapteru...
powershell -NoProfile -Command "if(-not (Get-NetAdapter -Name '%IFNAME%' -ErrorAction SilentlyContinue)) { Write-Output '>>PS: NOADAPTER' ; exit 2 } ; if((Get-NetAdapter -Name '%IFNAME%').Status -ne 'Up') { Write-Output '>>PS: NOTUP' ; exit 3 } ; Write-Output '>>PS: ADAPTER_OK'; exit 0"
echo ERRORLEVEL=%ERRORLEVEL%
echo Ziskavam aktualni kategorii...
for /f "usebackq delims=" %%C in (`powershell -NoProfile -Command "Try { $p = Get-NetConnectionProfile -InterfaceAlias '%IFNAME%' -ErrorAction SilentlyContinue; if(-not $p){ Write-Output '' ; exit 3 } ; Write-Output $p.NetworkCategory ; exit 0 } Catch { exit 1 }"`) do set CUR_CAT=%%C
echo CUR_CAT="%CUR_CAT%"
if %CUR_CAT%=="" (
  echo Neexistujici nebo prazdny connection profile pro "%IFNAME%"
  goto :ERR
)
if /i %CUR_CAT%==Private (
  set NEW_CAT=Public
) else (
  set NEW_CAT=Private
)
echo Nastavuji "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"
powershell -NoProfile -Command "Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT%"
set PSRC=%ERRORLEVEL%
echo ERRORLEVEL = %ERRORLEVEL%, PSRC = %PSRC%
if %PSRC%==0 goto :OK
  echo Chyba pri nastavovani "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"
  echo Spustte jako Admin, popr. v PowerShell (Admin) overte: Get-NetAdapter ; Get-NetConnectionProfile
goto :ERR
:OK
echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%"
powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Nyni jste v rezimu %NEW_CAT%','Zmena rezimu internetove site',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
endlocal
exit
:ERR
powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Chyba - zmena %IFNAME% z %CUR_CAT% neprobehla','Zmena rezimu internetove site',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
rem chcp 1250
rem set ERR_MSG="Chyba - změna neproběhla"
rem set TIT_MSG="Změna režimu internetové sítě"
rem echo %TIT_MSG%: %ERR_MSG%
rem powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('%ERR_MSG%','%TIT_MSG%',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
rem powershell -NoProfile -Command "$text = [System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neproběhla')); Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show($text,'Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
rem chcp 1250 && powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Chyba - změna neproběha','Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
rem powershell -NoProfile -Command "$text = [System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neprobíhá')); Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show($text,'Změna režimu WiFi sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
rem powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show([System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neproběhla')),'Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"
endlocal
exit

Amigo Ventero 10 Reputační body

2026-02-18T08:32:38.3733333+00:00

Čeština je vyřešena jiným editorem a uložením s kódováním CP 852 Latin 2, které je nativní pro CMD.
Amigo Ventero 10 Reputační body

2026-02-18T09:10:55.66+00:00

Prosím označit toto, jako odpověď.

Počet dalších odpovědí: 6

L. - 530 Reputační body

2026-02-18T05:58:14.9766667+00:00

Um. int. nesnáší když se o ní mluví (o kterékoliv). Tak se tomu vyhni.
Byla tato odpověď užitečná?

Počet komentářů: 0 Žádné komentáře
Přihlásit se a komentovat

Pomocí komentářů můžete požádat o vysvětlení, další informace nebo vylepšení otázky.
Amigo Ventero 10 Reputační body

2026-02-17T09:45:07.34+00:00

Funkční skript vypadá takto, ale zaboha nemůžu do messageboxu dostat češtinu. Když to spustím samostatně v cmd jen ten příkaz, tak korektně, ale jakmile to spustím ve skriptu .cmd, tak jsou tam nesmyslné znaky:

@echo off

setlocal

rem Rucni nastaveni:

rem set IFNAME=Wi-Fi

rem echo IFNAME="%IFNAME%"

rem Zjisteni a nastaveni dle MediaType:

rem for /f "usebackq delims=" %%A in (`powershell -NoProfile -Command "Get-NetAdapter | Where-Object {($_.MediaType -eq 'Native 802.11' -or $_.MediaType -eq '802.3') -and $_.Status -eq 'Up'} | Select-Object -ExpandProperty Name | Select-Object -First 1"`) do set IFNAME=%%A

rem Zjisteni a nastaveni dle nazvu:

for /f "usebackq delims=" %%A in (`powershell -NoProfile -Command "Get-NetAdapter | Where-Object {($_.Name -like '*Wi-Fi*' -or $_.Name -like '*Ethernet*') -and $_.Status -eq 'Up'} | Select-Object -ExpandProperty Name | Select-Object -First 1"`) do set IFNAME=%%A

if %IFNAME%=="" (

echo Nebyl nalezen aktivni WiFi nebo Ethernet adapter

goto :ERR

)

echo Nalezen aktivni sitovy adapter "%IFNAME%"

echo Overeni adapteru...

powershell -NoProfile -Command "if(-not (Get-NetAdapter -Name '%IFNAME%' -ErrorAction SilentlyContinue)) { Write-Output '>>PS: NOADAPTER' ; exit 2 } ; if((Get-NetAdapter -Name '%IFNAME%').Status -ne 'Up') { Write-Output '>>PS: NOTUP' ; exit 3 } ; Write-Output '>>PS: ADAPTER_OK'; exit 0"

echo ERRORLEVEL=%ERRORLEVEL%

echo Ziskavam aktualni kategorii...

for /f "usebackq delims=" %%C in (`powershell -NoProfile -Command "Try { $p = Get-NetConnectionProfile -InterfaceAlias '%IFNAME%' -ErrorAction SilentlyContinue; if(-not $p){ Write-Output '' ; exit 3 } ; Write-Output $p.NetworkCategory ; exit 0 } Catch { exit 1 }"`) do set CUR_CAT=%%C

echo CUR_CAT="%CUR_CAT%"

if %CUR_CAT%=="" (

echo Neexistujici nebo prazdny connection profile pro "%IFNAME%"

goto :ERR

)

if /i %CUR_CAT%==Private (

set NEW_CAT=Public

) else (

set NEW_CAT=Private

)

echo Nastavuji "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"

powershell -NoProfile -Command "Set-NetConnectionProfile -InterfaceAlias '%IFNAME%' -NetworkCategory %NEW_CAT%"

set PSRC=%ERRORLEVEL%

echo ERRORLEVEL = %ERRORLEVEL%, PSRC = %PSRC%

if %PSRC%==0 goto :OK

echo Chyba pri nastavovani "%IFNAME%" z "%CUR_CAT%" na "%NEW_CAT%"

echo Spustte jako Admin, popr. v PowerShell (Admin) overte: Get-NetAdapter ; Get-NetConnectionProfile

goto :ERR

:OK

echo Hotovo: "%IFNAME%" zmeneno z "%CUR_CAT%" na "%NEW_CAT%"

powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Nyni jste v rezimu %NEW_CAT%','Zmena rezimu internetove site',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

endlocal

exit

:ERR

powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Chyba - zmena %IFNAME% z %CUR_CAT% neprobehla','Zmena rezimu internetove site',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

rem chcp 1250

rem set ERR_MSG="Chyba - změna neproběhla"

rem set TIT_MSG="Změna režimu internetové sítě"

rem echo %TIT_MSG%: %ERR_MSG%

rem powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('%ERR_MSG%','%TIT_MSG%',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

rem powershell -NoProfile -Command "$text = [System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neproběhla')); Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show($text,'Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

rem chcp 1250 && powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show('Chyba - změna neproběha','Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

rem powershell -NoProfile -Command "$text = [System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neprobíhá')); Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show($text,'Změna režimu WiFi sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

rem powershell -NoProfile -Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show([System.Text.Encoding]::GetEncoding(1250).GetString([System.Text.Encoding]::UTF8.GetBytes('Chyba - změna neproběhla')),'Změna režimu internetové sítě',[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Information)"

endlocal

exit
Byla tato odpověď užitečná?
L. - 530 Reputační body

2026-02-17T11:23:34.2733333+00:00

Musíš do vkládat jako blok kódu a to správný...

Amigo Ventero 10 Reputační body

2026-02-17T16:03:08.9366667+00:00

To jsem dělal a to mi vždy odstranilo příspěvek, ale takto taky - vždy, když vložím skript, tak mi cenzorbot odstraní příspěvek, že jsem porušil pravidla a Míra to pak opravuje. Zasedl si na mě ten cenzorbot ..
Přihlásit se a komentovat

Pomocí komentářů můžete požádat o vysvětlení, další informace nebo vylepšení otázky.

Skript pro přepnutí Public/Private wifi

Počet dalších odpovědí: 6

Vaše odpověď