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
