- sziku69: Fűzzük össze a szavakat :)
- Klaus Duran: Youtube AI szinkron
- bambano: Bambanő háza tája
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- gban: Ingyen kellene, de tegnapra
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- GoodSpeed: AMD Ryzen 9 9900X (100-100000662WOF)+ Samsung 990 PRO 2TB MZ-V9P2T0BW
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
Hirdetés
Ú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
- Azonnali fotós kérdések órája
- OLED TV topic
- Honor Magic V5 - méret a kamera mögött
- Nintendo Switch 2
- Szuperkijelzővel készül a Huawei Mate 80 RS
- Vírusirtó topic
- Kerékpárosok, bringások ide!
- 5.1, 7.1 és gamer fejhallgatók
- Az NVIDIA és az AMD leadja a kínai chipeladásokból érkező bevétel 15 százalékát
- HDD probléma (nem adatmentés)
- További aktív témák...
- REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ)
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- GYÖNYÖRŰ iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3082
- HIBÁTLAN iPhone 15 Pro Max 256GB White Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3006, 90% Akksi
- Wacom Cintiq DTK-2260 digitális rajztábla
Állásajánlatok
Cég: FOTC
Város: Budapest