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

• #1178 qdak addikt

  Új Válasz 2024-06-01 18:51:58 #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