- Milyen joysticket vegyek?
- Amazon Kindle
- VR topik (Oculus Rift, stb.)
- Végre elkezdődik a DGX Spark gépek szállítása
- Négy nagy x86-os újítással készül a jövőre az AMD és az Intel
- HiFi műszaki szemmel - sztereó hangrendszerek
- Apple MacBook
- Milyen billentyűzetet vegyek?
- Kormányok / autós szimulátorok topikja
- Milyen asztali (teljes vagy fél-) gépet vegyek?
Ú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
- AKCIÓ ÚJ Bontatlan Macbook Pro 14 M4 MAX 14 32GPU 36GB 1TB Magyar billentyűzet Azonnal átvehető Deák
- BONTATLAN Új Ipad 9th 10th 11 gen. Air 6 7 , Ipad Pro Mini 7 IPADEK Azonnal DEÁK Térnél Átvehető.
- BONTATLAN Új iPhone 17 PRO MAX 256-512GGB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Dell Precision 7740 Workstation 17,3", i9-9980HQ, 32GB, RTX3000 6GB
- Gamer PC - i5 14600k, RTX 3080 és 32gb RAM + GARANCIA
- Apple iPhone 15 128 GB Kék 12 hónap Garancia Beszámítás Házhozszállítás
- GYÖNYÖRŰ iPhone 11 Pro Max 64GB Midnight Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3253,100% Akkumulá
- GYÖNYÖRŰ iPhone 12 mini 256GB Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3625
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Bomba ár! HP EliteBook 745 G6 - Ryzen PRO 5 I 8GB I 256GB SSD I HDMI I 14" FHD I Cam I W10 I Gari!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest