Πώς να προβάλετε τον αριθμό-κλειδί προϊόντος στα Windows 10, Windows 8 και Windows 7

Εάν χάσατε ή ξεχάσατε πού είχατε αποθηκεύσει τον αριθμό-κλειδί προϊόντος των Windows, έχω μια λύση για εσάς. Σήμερα θα δούμε πώς μια απλή δέσμη ενεργειών VBS μπορεί να χρησιμοποιηθεί για να μας δείξει τον αριθμό-κλειδί προϊόντος ενός εγκατεστημένου αντιγράφου των Windows 10, Windows 8 ή Windows 7. Είναι μια απλή λύση για να εξαγάγετε τον αριθμό-κλειδί προϊόντος από το λειτουργικό σύστημα που είναι εγκατεστημένο στον υπολογιστή σας χωρίς τη χρήση λογισμικού τρίτων. Ορίστε.

Στην πραγματικότητα, νωρίτερα δημοσίευσα ένα παρόμοια λύση που χρησιμοποιούσε το PowerShell. αλλά πολλοί χρήστες παραπονέθηκαν ότι αποτυγχάνει για αυτούς. Το PowerShell ενδέχεται να απαιτεί πρόσθετες δεξιότητες χρήστη και επιπλέον προσαρμογές για την εκτέλεση μη υπογεγραμμένων cmdlet.

Σε σύγκριση με το PowerShell, αυτή η λύση VBScript είναι σχεδόν τέλεια. Το μόνο που χρειάζεται να κάνετε είναι απλώς να κάνετε κλικ στο αρχείο. Προς το δείτε τον αριθμό-κλειδί προϊόντος των Windows 10

1. Ανοίξτε το Σημειωματάριο.
2. Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο στο παράθυρο Σημειωματάριο

   Επιλογή ρητή. Dim objshell, path, DigitalID, Result. Set objshell = CreateObject("WScript. Shell") 'Ορισμός διαδρομής κλειδιού μητρώου Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Τιμή κλειδιού μητρώου DigitalID = objshell. RegRead (Διαδρομή & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Λήψη ProductName, ProductID, ProductKey ProductName = "Product Name: " & objshell. RegRead (Διαδρομή & "ProductName") ProductID = "Product ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Installed Key: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey "Εμφάνιση messbox εάν αποθηκεύεται σε αρχείο. Εάν vbYes = MsgBox (ProductData & vblf & vblf & "Αποθήκευση σε αρχείο;", vbYesNo + vbQuestion, "BackUp Key Information Windows") τότε Save ProductData. Τέλος εαν. «Μετατροπή δυαδικού σε χαρακτήρες Συνάρτηση ConvertToKey (Κλειδί) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert «Έλεγχος εάν το λειτουργικό σύστημα είναι Windows 8 isWin8 = (Κλειδί (66) \ 6) Και 1 κλειδί (66) = (Κλειδί (66) Και &HF7) Ή ((isWin8 And 2) * 4) i = 24 Χάρτες = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Τρέχον κλειδί (j + KeyOffset) = (Τρέχον \ 24) Current=Τρέχον Mod 24 j = j -1 Βρόχος Ενώ j >= 0 i = i -1 KeyOutput = Mid (Χάρτες, Current+ 1, 1) & KeyOutput Last = Τρέχων βρόχος ενώ i >= 0. Αν (isWin8 = 1) Τότε keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Αντικατάσταση (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Τότε KeyOutput = insert & KeyOutput Τέλος Εάν. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Μεσ (KeyOutput, 21, 5) End Function 'Αποθήκευση δεδομένων σε αρχείο Λειτουργία Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Λήψη τρέχοντος όνομα χρήστη. Όνομα χρήστη = objshell. ExpandEnvironmentStrings("%UserName%") 'Δημιουργία αρχείου κειμένου στην επιφάνεια εργασίας. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Ορισμός fso = CreateObject("Scripting. FileSystemObject") Ορίστε txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Λειτουργία κλεισίματος τέλους 

3. Αποθηκεύστε το παραπάνω κείμενο σε ένα αρχείο με την επέκταση ".vbs" στην επιφάνεια εργασίας.
   Συμβουλή μπόνους: Για να βεβαιωθείτε ότι έχετε αποθηκεύσει σωστά το αρχείο με την επέκταση ".vbs", μπορείτε να πληκτρολογήσετε το όνομά του μέσα σε διπλά εισαγωγικά, για παράδειγμα, "BackupWindowsKey.vbs".
   
4. Τώρα ανοίξτε το αρχείο BackupWindowsKey.vbs
5. Voila, το κλειδί προϊόντος σας εμφανίζεται στην οθόνη!
   

Κάντε κλικ εδώ για λήψη του αρχείου BackupWindowsKey.vbs

Δοκίμασα αυτό το τέχνασμα σε Windows 7, Windows 8 και Windows 10. Λειτουργεί άψογα σε όλα τα αναφερόμενα λειτουργικά συστήματα. Πιστώσεις: μη νόημα @ MDL.