- One mobilszolgáltatások
- iPhone topik
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy A55 - új év, régi stratégia
- Apple iPhone 16 Pro - rutinvizsga
- Honor Magic6 Pro - kör közepén számok
- Dobja a kapszulát és 8000 mAh fölé lő a Honor kompaktja
- Instagram közösségi fényképezés
- Honor 200 Pro - mobilportré
- Garmin topik
Új hozzászólás Aktív témák
-
ArchElf
addikt
@ECHO OFF
REM masol.cmd "\\honnan\folder\*" "\\hova\foler\" "kivetelfajl"
IF [%3]==[] (
ECHO %~fx0 "\\honnan\folder\*" "\\hova\foler\" "kivetelfajl"
GOTO:eof
)
SET SRC=%1
SET DST=%2
SET XCL=%3
SET TMPFILE=%TEMP%\xctemp
XCOPY %SRC% %DST% /E /U /Y /L /EXCLUDE:%XCL% >%TMPFILE%
XCOPY %SRC% %DST% /E /Y /EXCLUDE:%XCL%+%TMPFILE%
DEL /Q %TMPFILE%AE
-
ArchElf
addikt
-
-
-
ArchElf
addikt
válasz
RootRulez
#333
üzenetére
Sehova.... Elnevezed mondjuk sign.cmd-nek és meghívod vele:
sign.cmd akarmi.apk
vagy
sign.cmd akarmiVagy akár kiteszed az asztalra a cmd fájlt és "ráhúzod" az aláírandó fjlt.
Kicsit javítottam rajta, hogy a "macskakörömbe rakott" fájlneveket is megegye

@ECHO OFF
IF [%1]==[] (
ECHO Usage:
ECHO %~nx0% apk_file
GOTO end
)
SET a=%~1
SET _a=%a:.apk=%
SET alap="%_a%.apk"
SET signed="%_a%_signed.apk"
java-jar signapk.jar certificate.pem key.pk8 %alap% %signed%
:endAE
-
ArchElf
addikt
válasz
RootRulez
#331
üzenetére
Ehhez csak egy változót kell megadnod...
Csináltam neked egy olyat is, ami megeszi apk-val és anélkül is:
@ECHO OFF
IF [%1]==[] (
ECHO Usage:
ECHO %~nx0% apk_file
GOTO end
)
SET a=%1
SET _a=%a:.apk=%
SET alap=%_a%.apk
SET signed=%_a%_signed.apk
java-jar signapk.jar certificate.pem key.pk8 %alap% %signed%
:endJa és .cmd-nek nevezd el, ne .bat-nak
AE
-
ArchElf
addikt
válasz
bulanjoe
#253
üzenetére
Közvetlenül nincs, mivel a registryben van a beállítás...
De az alábbi néhány sorból csinálsz egy regread.vbs fájlt, futtatod a következő módon, akkor vissza tudod kapni a beállítást (fájlba). Onnan már csak a fájlt kell feldolgoznod (mondjuk for-ral parancssorból):
cscript //nologo regread.vbs >tempfile123456AE
-
ArchElf
addikt
válasz
bulanjoe
#251
üzenetére
VBScript:
Set oShell = WScript.CreateObject ("WScript.Shell")
strTestReg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop"
strReg = oShell.RegRead(strTestReg)
Wscript.Echo strReg
Set oShell = Nothingcscript.exe-vel indítva tudsz a konzolba is iríni, ekkor a Wscript.Echo helyett Wscript.StdOut.WriteLine-t kell használni. Konzolba íva fel tudod használni a szkript kimenetét bemenetként.
AE
-
ArchElf
addikt
Ezt csak akkor lehet megcsinálni a felhasználók belépgetése nélkül, ha domain környezetben dolgozol. Erre az esetre van egy migráló szkript, ami szimpla local profile-ból roaming profile-t csinál. Ám ez nem jó, ha te nem egy fájlszerverre, hanem ugyanazon gép másik meghajtójára szeretnéd átrakni.
A felhasználók bejentkezését szerintem nem lehet megúszni (illetve lehet, de arról majd később), mert azok nem a registry állandó részében vannak, hanem a user saját könyvtárában az ntuser.dat fájlban a c:\documents and settings\%user%\ könyvtárban közvetlenül. A legegyszerűbb megoldás az, ha a HKLM-alá a Run-ba (hklm\software\Micrososft\windows\current version\run) teszel egy szkriptet, ami leellenőrzi, hogy a felhasználó könyvtáárai migrálva lettek-e, ha nem akkor másol, majd módosítja a registry-t. Viszont ilyenkor csak azokra fut le a migráció, aki legalább egyszer belép.
A másik lehetőség az, hogy közvetlenül módosítod az ntuser.dat-ot a registry editor megkerülésével - ez még veszélyesebb, mint magának a registry-nek a turkálása, hiszen ha bármi probléma felmerül, a felhasználó már biztos nem fog tudni belépni. Másrészt, ha felhasználó könyvtára titkosítva van, úgy az admin sem fog tudni belépni oda és módosítani a fájl tartalmát. Ehhez segítség: itt.
AE
-
ArchElf
addikt
Volt benne pár hiba...
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set fslog = fso.OpenTextFile("c:\temp\dellog.txt", 8, True, -1)
'4 nappal korábbi dátum
DelDate = DateAdd("d", -4, Date)
For Each fF In objArgs
On Error Resume Next
Set Folder = fso.GetFolder(fF)
If (Err.Number > 0) Then
fslog.WriteLine Date & " " & Time & " Hibás könyvtárnév: " & fF
Err.Clear
End If
Set fFiles = folder.Files
For Each file In fFiles
If (file.DateLastModified < DelDate) Then
fslog.WriteLine Date & " " & Time & " Törlés: " & file.Path
file.Delete(True)
End If
Next
Next
fslog.CloseAE
mod: ráadásul 4 hónap volt, nem négy nap, ja és a kiiratás is a tényleges törlés elött legyen... no meg egy kis formázási gond is volt vele.
-
ArchElf
addikt
VBS jóval egyszerűbb volna, mint a sima batch.
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set fslog = fso.OpenTextFile("c:\dellog.txt", 8, True, -1)
'4 nappal korábbi dátum
DelDate = DateAdd("m", -4, Date)
For Each fF In objArgs
On Error Goto eh:
Set Folder = fso.GetFolder(fF)
Set fFiles = folder.Files
For Each file In fFiles
If (file.DateLastModified < DelDate) Then
file.Delete(True)
fslog.WriteLine "Törölve: "& file.Path
End If
Next
Goto ehe:
eh:
fslog.WriteLine "Hibás könyvtárnév: " & fF
ehe:
Next
fslog.CloseRemélem nincs benne hiba...
AE
-
ArchElf
addikt
Én pskill-el próbálkoznék (vagy .bat helyett vbscriptet kellene írni, ott kicsit több process kezelő lehetőség van). Meg megnézném, hogy a telepítőnek nincs-e olyan kapcsolója, ami vagy silent intall-t csinál (általában /q), vagy olyan, ami megakadályozza a telepített program futtatását.
Egyébként a #106-ot nem értettem...
AE
Új hozzászólás Aktív témák
Hirdetés
- Lenovo ThinkPad T14 Gen 1 i5-10210 / 16GB RAM/ 256GB NVMe SSD világítós EU bill, kiváló állapotban
- vizes GAMER PC - RYZEN 5 7600X / 32GB DDR5 / RTX 5070 12GB
- HP EliteBook 840 G7 i5-10210U / 16GB RAM / 256GB SSD Szép állapot, EU bill, gyári töltő
- A KINCS ! Új HP EliteBook 860 G10 Profi Fémházas Laptop -50% 16" i7-1355U 32/1TB FHD+ IPS MATT
- Dobozos DELL Inspiron 16 Fémházas Multimédiás Laptop 16" -30% Ryzen 7 8840U 8mag 16/1TB FHD+ IPS
- Nvidia Quadro M2000/ P2000/ P4000/ RTX 4000/ RTX 5000/ RTX A2000
- Bialetti kézi kávéőrlő
- Xiaomi 17 Ultra Starlit Green 512GB használt karcmentes garancia 2029.03.05.-ig + Photographer Kit
- AKCIÓ! ÚJ ASUS TUF GAMING Geforce RTX 5080 OC Edition 16GB VRAM Ray Tracing DLSS4
- AZONNALI SZÁLLÍTÁSSAL Eladó Windows 8 / 8.1 Pro
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



