Ú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
- Truecam M5 GPS WiFi autós menetrögzítő kamera + CPL Polarizációs szűrő + 64Gb Endurance kártya
- Infinity SM 155 3-utas passzív hangszórópár /Pioneer A-656 Mark II/Pioneer F-447L
- iPad 11th 2025 128 GB (Jegelve beencee8)
- Eladó Intel Core i7-14700KF kifogástalan állapot, GARANCIA 2027.06.07
- Eladó G pro superlight 2 se Unusual way sports UHWM skate talpakkal.
- Apple iPhone 15 Black 128GB használt szép állapot 100% akku 6 hónap garancia
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- iPhone 11 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS4305, 100% Akksi
- AKCIÓ! LENOVO ThinkPad P15 Gen2 munkaállomás - i7 11800H 64GB DDR4 1TB SSD RTX A2000 4GB W
- ÚJ akksi! GigaAKCIÓ! Lenovo ThinkPad P15 Gen 2 Intel i7-11850H 32GB 512GB Nvidia RTX A3000 1 év gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest