2. Fórumok
  3. Szoftverfejlesztés
  4. Batch programozás

Új hozzászólás Aktív témák

  • #1179 qdak addikt
    Új Válasz #1179
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    qdak

    addikt

    Kis frissítés:

    @echo off
    chcp 65001 >nul
    cls
    :menu
    echo ------------------------------
    echo Network Devices Online
    echo ------------------------------
    arp -a
    echo.
    echo Valassz egy IP-cimet, amelyre uzenetet szeretnel kuldeni:
    echo ------------------------------
    echo 0. Szukseges beallitasok!
    echo ------------------------------
    echo.
    setlocal enabledelayedexpansion
    set count=0
    for /f "tokens=1" %%A in ('arp -a ^| find "dynamic"') do (
    ping -n 1 -w 1000 %%A >nul
    if not errorlevel 1 (
    set /a count+=1
    for /f "tokens=1,* delims= " %%B in ('nbtstat -A %%A ^| find "<00>"') do (
    set Name=%%C
    set Name=!Name:~0,-1!
    )
    set IP_!count!=%%A
    set Name_!count!=!Name!
    echo !count!. %%A (!Name!)
    )
    )
    if %count% equ 0 (
    echo Nincs online gep talalva.
    pause
    goto exit
    )
    set /a count+=1
    echo ------------------------------
    echo %count%. Kilepes
    echo ------------------------------
    echo.
    set /p choice=Kerlek add meg a valasztott szamot (0-%count%):
    if %choice% equ 0 goto settings
    if %choice% equ %count% goto exit
    if %choice% lss 1 goto menu
    if %choice% gtr %count% goto menu
    set IP=!IP_%choice%!
    set Name=!Name_%choice%!
    goto sendmsg
    :sendmsg
    cls
    set /p message=Kerlek ird be az uzenetet, amit kuldeni szeretnel:
    msg /SERVER:%IP% * %message%
    echo.
    echo Uzenet elkuldve a kovetkezo IP-cimre: %IP% (!Name!)
    echo.
    echo 1. Uj uzenet kuldese ugyanarra a gepre
    echo 2. Vissza a gepek valasztasahoz
    echo 3. Kilepes
    echo.
    set /p nextchoice=Kerlek add meg a valasztott szamot (1-3):
    if "%nextchoice%"=="1" goto sendmsg
    if "%nextchoice%"=="2" goto menu
    if "%nextchoice%"=="3" goto exit
    :settings
    cls
    reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v AllowRemoteRPC /t REG_DWORD /d 1 /f >nul
    echo ------------------------------
    echo AllowRemoteRPC = 1
    reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t REG_DWORD /d 0 /f >nul
    echo ------------------------------
    echo fDenyTSConnections = 0
    reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v LocalAccountTokenFilterPolicy /t REG_DWORD /d 1 /f >nul
    echo ------------------------------
    echo LocalAccountTokenFilterPolicy = 1
    echo ------------------------------
    dism /online /Enable-Feature /FeatureName:"SMB1Protocol" /All
    echo SMB1Protocol
    echo ------------------------------
    netsh advfirewall firewall add rule name="TCP Port 445" dir=in action=allow protocol=TCP localport=445
    echo TCP Port 445 = Open
    echo ------------------------------
    echo Beallitasok befejezve.
    pause
    goto menu
    :exit
    exit

    így csak a 0 pontot választva állítja be a beállításokat.

    [link] msg windows network 1.1.bat

Új hozzászólás Aktív témák