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

Hirdetés

!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!

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

  • #1178 qdak addikt
    Új Válasz #1178
    Ú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


    @echo off
    chcp 65001 >nul
    cls

    echo Registry, SMB1, TCP Port 445, beállítások
    reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v AllowRemoteRPC /t REG_DWORD /d 1 /f >nul
    reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t REG_DWORD /d 0 /f >nul
    reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v LocalAccountTokenFilterPolicy /t REG_DWORD /d 1 /f >nul
    ::dism /online /Enable-Feature /FeatureName:"SMB1Protocol" /All
    ::netsh advfirewall firewall add rule name="TCP Port 445" dir=in action=allow protocol=TCP localport=445

    :menu
    echo ------------------------------
    echo Network Devices Online
    echo ------------------------------
    arp -a
    echo.
    echo Valassz egy IP-cimet, amelyre uzenetet szeretnel kuldeni:
    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 %count%. Kilepes
    echo.

    set /p choice=Kerlek add meg a valasztott szamot (1-%count%):

    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

    :exit
    exit

    Egy üzenet küldő hálózaton belül :)

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