- Elektromos rásegítésű kerékpárok
- Argos: Szeretem az ecetfát
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- NASsoljunk: ZyXEL NSA-310 és az FFP
- sziku69: Fűzzük össze a szavakat :)
- Szevam: „Rendszerleállás” – egy AI képzeletbeli halál utáni élménye
- sziku69: Szólánc.
- Magga: PLEX: multimédia az egész lakásban
Új hozzászólás Aktív témák
-
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
-
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
-
qdak
addikt
Egy kis robocopy.bat:
echo :
echo : ROBOCOPY Batch Process Started
echo :
ROBOCOPY.EXE E:\ "\\HEDOSERVER\Server Save (E)" /J /DCOPY:DAT /PURGE /E /MIR /FFT /XC /XO /IT /R:1 /W:1 /X /V /TS /TEE
echo :
echo : ROBOCOPY Batch Process Complete
echo :
pauseEzeket cseréld:
honnan: E:\
hova: \\HEDOSERVER\Server Save (E)Teszteltem, működik a tükrözés, ha forrás nem változik, nem másol feleslegesen,
ha változik a forrás, felülirja az eredeti cél filet.
Ha törölsz a forrás meghajtóról, a cél meghajtóról is törli.
Ütemezni lehet W10 ben. -
qdak
addikt
-
qdak
addikt
-
qdak
addikt
Köszi, de sajna nem jó, vagy nem indul el ,vagy ugyanúgy ékezet hibás.
(Win 10 en viszont alapból jó)Viszont, a force admin mód, csak az én gépemen működik (Win 7) míg másik gépeken próbálva, folyamatosan újraindult a cmd ki sem tudom kapcsolni? (azóta ki is szedtem belőle)
-
qdak
addikt
Hello,
Ezt meg lehet úgy csinálni, hogy normálisan legyenek ékezetek, vagy szedjem ki simán "á->a" stb...
@echo off
REM --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "cmd.exe", "/C """"%~f0""""", , "runas", 1 >> "%temp%\getadmin.vbs"
cscript "%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
color 0e
chcp 1250
cls
:start
echo.
ECHO -------------------------------------------------------------------------------
echo. Run Programs Script by Hedo
ECHO -------------------------------------------------------------------------------
echo 0. Programok és szolgáltatások
echo 1. Felügyeleti eszközök
echo 2. Fájlkezelő beállításai
echo 3. Számítógép-kezelés
echo 4. Helyicsoportházirend-szerkesztő
echo 5. Helyi biztonsági házirend
echo 6. Helyi felhasználók és csoportok
echo 7. Szolgáltatások
echo 8. Rendszerkonfiguráció
echo 9. Exit.
echo.
echo.
set /p x=Use Number:
IF '%x%' == '%x%' GOTO Item_%x%
:Item_0
cls
echo.
echo Programok és szolgáltatások
echo.
appwiz.cpl
pause
GOTO Item_99
:Item_1
cls
echo.
echo Felügyeleti eszközök
echo.
control admintools
pause
GOTO Item_99
:Item_2
cls
echo.
echo Fájlkezelő beállításai
echo.
control folders
pause
GOTO Item_99
:Item_3
cls
echo.
echo Számítógép-kezelés
echo.
compmgmt.msc
pause
GOTO Item_99
:Item_4
cls
echo.
echo Helyicsoportházirend-szerkesztő
echo.
gpedit.msc
pause
GOTO Item_99
:Item_5
cls
echo.
echo Helyi biztonsági házirend
echo.
secpol.msc
pause
GOTO Item_99
:Item_6
cls
echo.
echo Helyi felhasználók és csoportok
echo.
lusrmgr.msc
pause
GOTO Item_99
:Item_7
cls
echo.
echo Szolgáltatások
echo.
services.msc
pause
GOTO Item_99
:Item_8
cls
echo.
echo Rendszerkonfiguráció
echo.
msconfig
pause
GOTO Item_99
:Item_9
exit
:Item_99
cls
GOTO Start
help vkiÚj hozzászólás Aktív témák
Hirdetés
- AKCIÓ! Apple Macbook Air 13" 2020 M1 8GB 256GB SSD notebook garanciával hibátlan működéssel
- BESZÁMÍTÁS! 2TB Samsung 980 PRO NVMe SSD meghajtó garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5800X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Lenovo ThinkPad X270 (16) - i5-7300U, 16GB, 512GB SSD, 12" FULL HD
- Lejárt a gyártói garancia? Mi tovább támogatjuk az IT infrádat!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest