» Poradna » Windows (a jiné OS)

Pomoc s powershellem

 |   |  Microsoft Windows 7 Firefox 52.0

snažím se o export Windows keymám VBSko, které ho krásně vypíšeSet WshShell = CreateObject("WScript.Shell")MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))Function ConvertToKey(Key)Const KeyOffset = 52i = 28Chars = "BCDFGHJKMPQRTVWXY2346789"DoCur = 0x = 14DoCur = Cur * 256Cur = Key(x + KeyOffset) + CurKey(x + KeyOffset) = (Cur \ 24) And 255Cur = Cur Mod 24x = x -1Loop While x >= 0i = i -1KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutputIf (((29 - i) Mod 6) = 0) And (i <> -1) Theni = i -1KeyOutput = "-" & KeyOutputEnd IfLoop While i >= 0ConvertToKey = KeyOutputEnd Functionz toho vím, že klíč je v registru HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductIdnyní v PSku chci ten klíč exportovat do txt souboru, ale čitelnýmám aktuálně:Get-Itemproperty "HKLM:\Software\Microsoft\Windows NT\CurrentVersion" | Select-Object DigitalProductID | Format-Table -Property * -Autosize | Out-String -Width 4096 | Out-File -Filepath "C:\Users\$env:UserName\Desktop\test.txt"ten mi ale vyexportuje klíč v podobě, jak jej vidím v registrujak v PSku na tu konverzi do readable?díky

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 62.0.3175.3
 |   |  Microsoft Windows 7 Firefox 52.0

tento postup sice funguje, v pořádku klíč zkonvertuje do čitelné podoby, ale mnoho mi platný nenímusím mít soubor ps1, spustit PS a v něm až pak spustit skript a neumí ten export do txtsamozřejmě si můžu vystačit s exportem digitalproductid a zkonvertovat to manuálně třeba na http://www.ed.scherer.name/Tools/MicrosoftDigitalPro... rád bych skript, který prostě spustím a dostanu klíč v txt souborucelé to pak natluču do cmd jako powershell -command

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 60.0.3112.90

Šablona je správně1. Zkopíruj komplet šablonu do nového textového dokumentu 2. Klepni na soubor a dej uložit jako: a) Název souboru např.: Key.vbs b) Uložit jako typ: Všechny soubory -ponech kódování: ANSI * ulož třeba na plochu - poté dvakrát klepni na uložený soubor: Key.vbsZde je šablona: -------------------------------------------------------------------------------------------------------Set WshShell = CreateObject("WScript.Shell")MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))Function ConvertToKey(Key)Const KeyOffset = 52i = 28Chars = "BCDFGHJKMPQRTVWXY2346789"DoCur = 0x = 14DoCur = Cur * 256Cur = Key(x + KeyOffset) + CurKey(x + KeyOffset) = (Cur \ 24) And 255Cur = Cur Mod 24x = x -1Loop While x >= 0i = i -1KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutputIf (((29 - i) Mod 6) = 0) And (i <> -1) Theni = i -1KeyOutput = "-" & KeyOutputEnd IfLoop While i >= 0ConvertToKey = KeyOutputEnd Function ------------------------------------------------------------------------------------------------------

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 52.0

řve chybu kompilace, řádek 22chybí v něm Donavíc toto je VB, nikoli PS

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 60.0.3112.90

Můžeš použít i toto, Lazesoft Windows Key Finder: http://www.lazesoft.com/lazesoft-windows-key-find... Klíč z té utilitky můžeš uložit jako textový soubor..

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Microsoft Windows, Loop, Property


Určitě si přečtěte

České Rajče je stále plné dětských nahotin. Student pomocí A.I. analyzoval miliony fotek

České Rajče je stále plné dětských nahotin. Student pomocí A.I. analyzoval miliony fotek

** Rajče.net má odjakživa problémy s choulostivými fotkami dětí ** Student zlínské univerzity analyzoval jeho katalog ** Neuronová síť doposud prozkoumala 6 milionů snímků

Jakub Čížek, Filip Šedivý | 73

10 mýtů a polopravd o bateriích, kterým možná ještě věříte

10 mýtů a polopravd o bateriích, kterým možná ještě věříte

** Kolem baterií a akumulátorů koluje řada mýtů, nepravd a polopravd ** Dnes vám devět z nich zkusíme vyvrátit na základě faktů ** Většina z nich totiž neplatí pro moderní lithiové baterie

Karel Kilián, David Polesný | 102

Chyba roku 2038 způsobí problémy, počítače dnes totiž stárnou příliš pomalu

Chyba roku 2038 způsobí problémy, počítače dnes totiž stárnou příliš pomalu

** Loni ajťáky vystrašilo přetečení GPS čítače týdnů ** Nemělo se stát vůbec nic, ale svět opět nebyl připravený ** Za 18 let nás ale čeká ještě něco mnohem většího

Jakub Čížek | 62

Dnes nastal konec Windows 7. Ale nepropadejte panice, počítač vám nastartuje i zítra

Dnes nastal konec Windows 7. Ale nepropadejte panice, počítač vám nastartuje i zítra

** Dnes končí podpora Windows 7 a systém formálně umírá ** Co to ale znamená v praxi a bude mi PC fungovat i zítra? ** A mohu i v lednu 2020 zdarma přejít na Windows 10?

Jakub Čížek | 120

Co všechno se spouští se startem Windows a proč by vás to mělo zajímat

Co všechno se spouští se startem Windows a proč by vás to mělo zajímat

** Společně s operačním systémem se spouští řada aplikací a služeb ** Mohou mít negativní dopad na celkovou dobu startu Windows ** Jak získat kontrolu nad automaticky spouštěnými programy?

Karel Kilián | 60



Aktuální číslo časopisu Computer

Test 9 bezdrátových reproduktorů

Jak ovládnout Instagram

Test levných 27" herních monitorů

Jak se zbavit nepotřebných věcí na internetu