• O nás
  • Služby
    • Servis PC domácnosti
    • Servis PC firmy
    • Požičovňa PC
    • Správa serverov a sietí
    • Audit webstránok
    • Tvorba webstránok
    • Monitoring konkurencie
    • Jazykové korektúry
    • Audit IT techniky
    • Archivácia dát
    • Likvidácia dát
    • Produktové fotografie
  • Články
  • Cenník
  • Referencie
  • Kontakt

+421 910 221 112

 

#
online servis pc
  • O nás
  • Služby
    • Servis PC domácnosti
    • Servis PC firmy
    • Správa serverov a sietí
    • Audit webstránok
    • Tvorba webstránok
    • Jazykové korektúry
    • Viac služieb...
  • Články
  • Cenník
  • Referencie
    • Servis PC
    • Webdesign
  • Kontakt
Menu

IT ČLÁNKY A NÁVODY - PORADŇA - IT MAGAZÍN





Ďakujeme za hodnotenie článkov. Hodnotením prispievate k ich pravidelnej aktualizácii a zvyšovaniu ich kvality.

Kvalita článku: 0 ***  Celkové hodnotenie 0* z počtu 0 návštevníkov.

(Čím viac hviezd, tým lepšie hodnotený článok)

            



Podporte nás:
  


06.07.2016

Ako zistiť Windows Product Key?



Skript je funkčný vo verziách Windows 7, Windows 8, 8.1 a Windows 10.

product_key_win

Skopírujte skript do textového súboru a uložte súbor napr. winkey.vbs

Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKey.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

Spustením skriptu sa zobrazí verzia Windows, ID produktu a produktový kľúč (Product Key).

backup_windows_key

Skript ponúka možnosť uloženia údajov do textového súboru na plochu počítača.

Na začiatok stránky

ŽIADEN OBSAH NA TEJTO STRÁNKE NIE JE SPOPLATNENÝ! Na zverejnený článok sa však vzťahuje autorské právo. Akékoľvek kopírovanie tohto textového obsahu, fotografií, audio-video záznamov je bez písomného súhlasu autora zakázané! Článok nemusí korešpondovať s názormi čitateľov. Autor si vyhradzuje právo kedykoľvek, bez upozornenia a výlučne podľa vlastného uváženia zmeniť, alebo upraviť obsah článku, ako aj uskutočniť jeho zmazanie. Autor článkov: © A.O. pre ITAZ s. r. o.
Nové články


  SrtTrail.txt



  XOPY



  Odblokovanie hesla konta .\administrator vo Windows XP



  0x00000016



  BOOT DEVICE NOT FOUND



  A disk read error occurred



  Blikanie obrazovky



  LAN a WAN problém



  Poškodený HDD



  Poliaty počítač



  Premenovanie konta



  Automatické spustenie pri štarte OS



  Sledovanie iOS a Android



  Android - Odblokovanie



  Outlook chyby



  Windows prieskumník



  Windows Defender



  Obnova dát z RAM



  Tlačiareň tlačí testovaciu stranu



  Záchrana dát pri zlyhaní OS Windows



  Ethernet káble



  Núdzový režim Safe mode



  Licenčný audit



  Dáta z macOS do Windows



  Šifrovanie



  Gmail konto v Outlook



  Modrá obrazovka (BSOD)



  Obnova systému



  Flash BIOS



  Info o systéme Windows



  Zmena jazyka vo WIN 10



  Bios fasttrack



  32 vs 64 bit Windows



  GDPR



  Zmena klávesnice Z na Y



  PC nereaguje - zamrzol



  Bezplatná antivírusová kontrola



  Beep kódy - Ak PC pípa



  Čierna obrazovka



  Ochrana proti zápisu



  PC sa vypína



  Zlyhalo prihlásenie sa do profilu



  Núdzový režim WIN 10



  Ransomware WannaCry



  Ochrana pred hackerom



  Ochrana počítača pred vírusmi



  Windows 10 Creators Update



  Modrá veľryba



  Phishing ochrana



  Dešifrovanie ftp hesla v TC



  WORD



  Hyper-V



  Windows 10 update ban



  NumLock zapnutie pri štarte Windows



  BOOT WINDOWS 7 USB 3 UEFI



  Facebook Like Box



  Vianočný akože výpredaj



  Info o HW a SW



  Hotspot Windows



  CMD Príkazový riadok



  Facebook



  Rýchlejší internet



  Reset BIOS hesla



  POMALÝ ŠTART PC



  PC stôl - Moderné dizajnové trendy



  Elektronická schránka



  BOOT USB - RUFUS



  Total Commander



  Odinštalovanie aplikácií z Windows 10



  Záloha WiFi sietí z PC



  Toolbar



  Ako vypnúť UPC Free WiFi?



  http na https



  Prepis dát nulami a náhodnými číslami



  Automatický reštart pri zlyhaní systému



  Guttmanova metóda 35x



  Oracle virtual box - Ako vytvoriť virtuálny harddisk? - návod SK



  Ransomware - prejavy, ochrana, odstránenie



  Stop Windows 10



  Pomalá WiFi sieť



  Uvolnenie miesta na disku



  Ochrana osobných údajov Windows 10



  Bios, Boot menu, Recovery, Odblokovanie



  Ako zobraziť heslo k pripojenej WiFi sieti?



  Očíslovanie strán dokumentu



  Anonymné surfovanie po internete



  Winbox verzia 2.2.16



  Windows 10 vstup bez hesla



  Odblokovanie hesla konta .\administrator vo Windows 7



  Tlačiareň HP - PIN kódy pre vstup do servisného menu



  Predvolený priečinok



  Ako vypnúť heslo pri štarte Windows 10?



  Ako zistiť Windows Product Key?



  Odblokovanie .\administrator vo Windows 10



  Počítače a vplyv na zdravie



  Starosti s myšou



  Otočená obrazovka



  Bezpečnosť detí na internete a netiketa



  Nové konto Windows 10



  Archivačný a šifrovací nástroj



  Záloha ovládačov



  Textový editor



  Obraz systému Windows



  Editor programov



  Dokumenty do PDF



  .htaccess



IT články A - Z


  .htaccess



  0x00000016



  32 vs 64 bit Windows



  A disk read error occurred



  Ako vypnúť UPC Free WiFi?



  Ako vypnúť heslo pri štarte Windows 10?



  Ako zistiť Windows Product Key?



  Ako zobraziť heslo k pripojenej WiFi sieti?



  Android - Odblokovanie



  Anonymné surfovanie po internete



  Archivačný a šifrovací nástroj



  Automatické spustenie pri štarte OS



  Automatický reštart pri zlyhaní systému



  BOOT DEVICE NOT FOUND



  BOOT USB - RUFUS



  BOOT WINDOWS 7 USB 3 UEFI



  Beep kódy - Ak PC pípa



  Bezpečnosť detí na internete a netiketa



  Bezplatná antivírusová kontrola



  Bios fasttrack



  Bios, Boot menu, Recovery, Odblokovanie



  Blikanie obrazovky



  CMD Príkazový riadok



  Dešifrovanie ftp hesla v TC



  Dokumenty do PDF



  Dáta z macOS do Windows



  Editor programov



  Elektronická schránka



  Ethernet káble



  Facebook



  Facebook Like Box



  Flash BIOS



  GDPR



  Gmail konto v Outlook



  Guttmanova metóda 35x



  Hotspot Windows



  Hyper-V



  Info o HW a SW



  Info o systéme Windows



  LAN a WAN problém



  Licenčný audit



  Modrá obrazovka (BSOD)



  Modrá veľryba



  Nové konto Windows 10



  NumLock zapnutie pri štarte Windows



  Núdzový režim Safe mode



  Núdzový režim WIN 10



  Obnova dát z RAM



  Obnova systému



  Obraz systému Windows



  Ochrana osobných údajov Windows 10



  Ochrana počítača pred vírusmi



  Ochrana pred hackerom



  Ochrana proti zápisu



  Odblokovanie .\administrator vo Windows 10



  Odblokovanie hesla konta .\administrator vo Windows 7



  Odblokovanie hesla konta .\administrator vo Windows XP



  Odinštalovanie aplikácií z Windows 10



  Oracle virtual box - Ako vytvoriť virtuálny harddisk? - návod SK



  Otočená obrazovka



  Outlook chyby



  Očíslovanie strán dokumentu



  PC nereaguje - zamrzol



  PC sa vypína



  PC stôl - Moderné dizajnové trendy



  POMALÝ ŠTART PC



  Phishing ochrana



  Poliaty počítač



  Pomalá WiFi sieť



  Počítače a vplyv na zdravie



  Poškodený HDD



  Predvolený priečinok



  Premenovanie konta



  Prepis dát nulami a náhodnými číslami



  Ransomware - prejavy, ochrana, odstránenie



  Ransomware WannaCry



  Reset BIOS hesla



  Rýchlejší internet



  Sledovanie iOS a Android



  SrtTrail.txt



  Starosti s myšou



  Stop Windows 10



  Textový editor



  Tlačiareň HP - PIN kódy pre vstup do servisného menu



  Tlačiareň tlačí testovaciu stranu



  Toolbar



  Total Commander



  Uvolnenie miesta na disku



  Vianočný akože výpredaj



  WORD



  Winbox verzia 2.2.16



  Windows 10 Creators Update



  Windows 10 update ban



  Windows 10 vstup bez hesla



  Windows Defender



  Windows prieskumník



  XOPY



  Zlyhalo prihlásenie sa do profilu



  Zmena jazyka vo WIN 10



  Zmena klávesnice Z na Y



  Záchrana dát pri zlyhaní OS Windows



  Záloha WiFi sietí z PC



  Záloha ovládačov



  http na https



  Čierna obrazovka



  Šifrovanie






[Motto]

Kód ktorý sa ťažko píše, sa ešte ťažšie číta.

[Náhodný počítačový vtip]

Polovicu problémov užívateľov v IT je možné vyriešiť tak, že si treba v kľude spraviť kávu a oni medzitým znova zavolajú, že všetko začalo fungovať.

Na začiatok stránky

Úvod  |  Projekt  |  Affiliate  |  Ochrana os. údajov  |  Právne upozornenie |  Garancia |  Aktíva |  VOP(PDF)  |  Kariéra |  Site map |  FAQ

© ITAZ s. r. o. 2016 - 2018  Dizajn: www.itaz.sk   © A.O.  Všetky práva vyhradené.
Ekvivalent - preklepy: itas, itas.sk, itassk, itazsk, izat, uzat, ozat, itay, itaysk, itay.sk, izaz, izat, itaz.com, itaz.eu, itaz.cz, itaz.net, itáz, ytaz, ytas
Dnes je:17-Feb-2019|  Aktuálny čas:11:00:37pm pocitadlo