วิธีดูหมายเลขผลิตภัณฑ์ของคุณใน Windows 10, Windows 8 และ Windows 7

หากคุณทำหายหรือลืมว่าคุณเก็บรหัสผลิตภัณฑ์ Windows ไว้ที่ไหนฉันมีวิธีแก้ปัญหาให้คุณ วันนี้เราจะมาดูกันว่าสามารถใช้สคริปต์ VBS ง่ายๆเพื่อแสดงรหัสผลิตภัณฑ์ของ Windows 10, Windows 8 หรือ Windows 7 ที่ติดตั้งไว้ได้อย่างไรเป็นวิธีง่ายๆในการแยกรหัสผลิตภัณฑ์ของคุณจากระบบปฏิบัติการที่ติดตั้งบนพีซี โดยใช้ซอฟต์แวร์ของบุคคลที่สาม ไปเลย.

การโฆษณา

วิธีลบดูล่าสุดเมื่อต้องการ

เมื่อเทียบกับ PowerShell โซลูชัน VBScript นี้เกือบจะสมบูรณ์แบบ สิ่งที่คุณต้องทำก็เพียงแค่คลิกไฟล์ ถึง ดูรหัสผลิตภัณฑ์ Windows 10 ของคุณ

1. เปิด Notepad
2. คัดลอกและวางข้อความต่อไปนี้ลงในหน้าต่าง Notepad

   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 = 'คีย์ที่ติดตั้ง:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'แสดงกล่องข้อความหากบันทึกเป็นไฟล์ถ้า vbYes = MsgBox (ProductData & vblf & vblf & 'บันทึกเป็นไฟล์หรือไม่', vbYesNo + vbQuestion, 'สำรองข้อมูลคีย์ Windows') จากนั้นบันทึก ProductData End ถ้า 'แปลงไบนารีเป็นฟังก์ชันตัวอักษร ConvertToKey (คีย์) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, แทรก 'ตรวจสอบว่า OS เป็น Windows 8 หรือไม่ isWin8 = (คีย์ (66)  6) และ 1 คีย์ (66) = (Key (66) และ & HF7) หรือ ((isWin8 และ 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 ลูปในขณะที่ j> = 0 i = i -1 KeyOutput = กลาง (แผนที่, ปัจจุบัน + 1, 1) และ KeyOutput Last = วงปัจจุบัน ในขณะที่ i> = 0 ถ้า (isWin8 = 1) จากนั้น keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End ถ้า ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'บันทึกข้อมูลลงในไฟล์ Function Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' รับชื่อผู้ใช้ปัจจุบัน UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'สร้างไฟล์ข้อความบนเดสก์ท็อป fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'ตั้งค่า fso = CreateObject (' Scripting.FileSystemObject ') ตั้งค่า txt = fso.CreateTextFile (fName) txt.Writeline ข้อมูล txt ปิดฟังก์ชัน End

3. บันทึกข้อความด้านบนไปยังไฟล์ที่มีนามสกุล '.vbs' บนเดสก์ท็อป
   เคล็ดลับโบนัส: เพื่อให้แน่ใจว่าคุณบันทึกไฟล์อย่างถูกต้องด้วยนามสกุล '.vbs' คุณสามารถพิมพ์ชื่อที่อยู่ในเครื่องหมายคำพูดคู่ตัวอย่างเช่น 'BackupWindowsKey.vbs'
   
4. ตอนนี้เปิดไฟล์ BackupWindowsKey.vbs ของคุณ
5. Voila หมายเลขผลิตภัณฑ์ของคุณจะปรากฏบนหน้าจอ!
   

คลิกที่นี่เพื่อดาวน์โหลดไฟล์ BackupWindowsKey.vbs

ฉันทดสอบเคล็ดลับนี้บน Windows 7, Windows 8 และ Windows 10 มันทำงานได้อย่างไม่มีที่ติในระบบปฏิบัติการที่กล่าวถึงทั้งหมด เครดิต: ไร้สาระ @ MDL .