Új hozzászólás Aktív témák
-
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
exitEgy üzenet küldő hálózaton belül

Új hozzászólás Aktív témák
- Hajtókar, sor, AXS, középrész, pedál, MRP Új
- Samsung Galaxy A35 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- RITKA ASUS ROG Strix G15 Electro Punk gamer laptop, i7-10750H, GTX 1660 Ti, szép állapotban,dobozzal
- Xiaomi Redmi Note 12 Pro 5G - 6/128 - fekete
- Tablet felvásárlás!! Samsung Galaxy Tab A8, Samsung Galaxy Tab A9, Samsung Galaxy Tab S6 Lite
- Samsung Galaxy S21 Ultra / 12GB RAM 256GB / Gyárifüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3139, 95% Akkumulátor
- HIBÁTLAN iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3732, 91% Akkumulátor
- Apple iPhone 14 Pro / Gyárifüggetlen / 128GB / 12Hó Garancia / 88% akku
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő




