Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Te hány éves vagy?
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Mr Dini: Mindent a StreamSharkról!
- lezso6: Kvaterner szégyen
Ú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
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Aim training (Aimlabs, Kovaak's, Aimbeast stb.)
- Milyen billentyűzetet vegyek?
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- BestBuy topik
- Vezeték nélküli fülhallgatók
- AMD vs. INTEL vs. NVIDIA
- CES 2026: Ez lehet a legjobb gamer notebook
- További aktív témák...
- Bomba ár! HP EliteBook 840 G6 - i7-8GEN I 16GB I 512GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Bomba ár! Lenovo X13 G2i - i5-1135G7 I 16GB I 256SSD I 13,3" WUXGA Touch I W11 I Cam I Gari!
- Bomba ár! Lenovo X1 Carbon G7: i5-8265U I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- Bomba ár! HP EliteBook 845 G7 - Ryzen 5 4650U I 16GB I 512SSD I 14" FHD I Cam I W11 I Gari
- Bomba ár! Dell Latitude 5510 - i7-10G I 16GB I 512SSD I HDMI I 15,6" FHD I Cam I W11 I Gari!
- www.stylebolt.hu - Apple eszközök és tartozékok!
- Dell Latitude E7470. Olcsó üzleti kategóriás laptop! Új akkumulátor!
- ÚJ Lenovo ThinkPad T16 Gen 4 - 16" WUXGA - Ultra 7 255U - 32GB - 1TB SSD - Win11 - 3 év garancia
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával! Upd. 01.13
- GYÖNYÖRŰ iPhone 12 64GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3858
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest