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

• qdak addikt

  #1179 2024-06-02 10:27:02

  Új Válasz

  Ú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

  

  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