Εάν χάσατε ή ξεχάσατε πού αποθηκεύσατε τον κλειδί προϊόντος των Windows, έχω μια λύση για εσάς. Σήμερα θα δούμε πώς μπορεί να χρησιμοποιηθεί ένα απλό σενάριο VBS για να μας δείξει τον κλειδί προϊόντος ενός εγκατεστημένου αντιγράφου των Windows 10, Windows 8 ή Windows 7. Είναι μια απλή λύση για την εξαγωγή του κλειδιού προϊόντος από το λειτουργικό σύστημα που είναι εγκατεστημένο στον υπολογιστή σας χωρίς χρησιμοποιώντας οποιοδήποτε λογισμικό τρίτων. Ορίστε.
Διαφήμιση
Στην πραγματικότητα, νωρίτερα δημοσίευσα ένα παρόμοια λύση που χρησιμοποίησε το PowerShell. αλλά πολλοί χρήστες παραπονέθηκαν ότι αποτυγχάνει για αυτούς. Το PowerShell ενδέχεται να απαιτεί πρόσθετες δεξιότητες χρήστη και επιπλέον τροποποιήσεις για την εκτέλεση cmdlet χωρίς υπογραφή.
πώς να προσθέσετε ετικέτες σε κάποιον στο Facebook μετά την ανάρτηση
Σε σύγκριση με το PowerShell, αυτή η λύση VBScript είναι σχεδόν τέλεια. Το μόνο που χρειάζεται να κάνετε είναι να κάνετε κλικ στο αρχείο. Προς το προβολή του κλειδιού προϊόντος των Windows 10
- Ανοίξτε το Σημειωματάριο.
- Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο στο παράθυρο Σημειωματάριο
Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Ορισμός διαδρομής κλειδιού μητρώου Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Τιμή κλειδιού μητρώου 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 'Εμφάνιση γραμματοκιβωτίου εάν αποθηκεύσετε σε ένα αρχείο If vbYes = MsgBox (ProductData & vblf & vblf & 'Αποθήκευση σε αρχείο;', vbYesNo + vbQuestion, 'BackUp Windows Key Information') και στη συνέχεια Αποθήκευση ProductData End if 'Μετατροπή δυαδικού σε chars Λειτουργία ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Τελευταίο, πληκτρολόγιο1, εισαγάγετε «Ελέγξτε εάν το λειτουργικό σύστημα είναι Windows 8 isWin8 = (Κλειδί (66) 6) και 1 Κλειδί (66) = (Κλειδί (66) Και & HF7) Ή ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Πλήκτρο (j + KeyOffset) = (Τρέχον 24) Τρέχον = Τρέχον Mod 24 j = j -1 Loop Ενώ j> = 0 i = i -1 KeyOutput = Mid (Χάρτες, Τρέχον + 1, 1) & KeyOutput Last = Τρέχων βρόχος Ενώ i> = 0 If (isWin8 = 1) Στη συνέχεια, πληκτρολόγιο1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 τότε KeyOutput = insert & KeyOutput End if ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Αποθήκευση δεδομένων σε ένα αρχείο Λειτουργία Αποθήκευση (Δεδομένα) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Λήψη τρέχοντος ονόματος χρήστη UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Δημιουργία αρχείου κειμένου στην επιφάνεια εργασίας fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Ορισμός txt = fso.CreateTextFile (fName) txt. Δεδομένα γραφής txt. Λειτουργία κλειστού τερματισμού
- Αποθηκεύστε το παραπάνω κείμενο σε ένα αρχείο με την επέκταση «.vbs» στην επιφάνεια εργασίας.
Συμβουλή μπόνους: Για να βεβαιωθείτε ότι αποθηκεύετε σωστά το αρχείο με την επέκταση «.vbs», μπορείτε να πληκτρολογήσετε το όνομά του που περικλείεται σε διπλά εισαγωγικά, για παράδειγμα «BackupWindowsKey.vbs».
- Τώρα ανοίξτε το αρχείο BackupWindowsKey.vbs
- Voila, ο κωδικός προϊόντος εμφανίζεται στην οθόνη!
Κάντε κλικ εδώ για να κατεβάσετε το αρχείο BackupWindowsKey.vbs
Δοκίμασα αυτό το τέχνασμα στα Windows 7, Windows 8 και Windows 10. Λειτουργεί άψογα σε όλα τα αναφερόμενα λειτουργικά συστήματα. Συντελεστές: nononsence @ MDL .