Ú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
- Asztali PC , R5 5500 , RX 5700 XT , 16GB RAM , 512GB NVME , 500GB HDD
- Gamer PC - RTX 3070, Ryzen 5 5600X, 16gb RAM
- DELL G5 25 5587 Gamer notebook
- Lenovo ThinkPad T14s Gen3 : i5-1240P/16GB/256GB NVMe SSD/14"FHD IPS, Matt/Win 11Pro
- ALKALMI ÁRON! - Vadonatúj állapotú Xbox Elite Series 2 Core Kontroller - 1 Év Alza Garanciával!
- HIBÁTLAN iPhone 14 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3510
- Gamer PC-Számítógép! Csere-Beszámítás! I5 14400F / RX 6900XT 16GB / 32GB DDR5 / 1TB SSD
- AKCIÓ! HP Elitebook 840 G11 üzleti notebook- Intel Core Ultra 5 135U 16GB DDR5 RAM 256GB SSD W11
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- Asus TUF Gaming A15 FA507 - 15,6"FHD 144Hz - Ryzen 7 7435HS - 16GB - 512GB SSD - RTX 4050 -2+ év gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest