OEM olabilir, yani anakarta gömülüdür. Sistem hala calisiyorsa bu komutlari bir metin belgesine yazip calistirin: Kod:Panoya kopyala Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject 'Set registry key path Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registry key value DigitalID = objshell. RegRead Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Product Name: " & objshell. RegRead ProductID = "Product ID: " & objshell. RegRead ProductKey = "Installed Key: " & ConvertToKey ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Show messbox if save to a file If vbYes = MsgBox then Save ProductData End If 'Convert binary to chars Function ConvertToKey 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 + Current Key = (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 If (isWin8 = 1) Then keypart1 = Mid(KeyOutput, 2, Last) insert = "N" KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then 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 'Save data to a file Function Save Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject 'Get current user name UserName = objshell. ExpandEnvironmentStrings 'Create a text file on desktop fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo. txt" Set fso = CreateObject Set txt = fso. CreateTextFile txt. Writeline Data txt. Close End Function Uzantisi. vbs olsun.

Merhaba arkadaşlar. Eskiden kalma bir Beko Vista DVD'si var elimde. Bunu keyi eski bilgisayar üzerinde kalmış. Yasal yöntemlerle bu keyi bulabilir miyim?

Konuyu hortlatıyorsam özür dilerim, mümkünse içindeki dosyaları ISO şeklinde atabilir misin?

Koleksiyonuma eklemek için amcamlardan almıştım bilgisayar onlarda maalesef.

Fibere geçince yükledim halen lazımsa buyur Beko Recovery Windows Vista Home Premium 32 bit x86 : Beko : Free Download, Borrow, and Streaming : Internet Archive Beko Recovery Windows Vista Home Premium 32 bit x86Beko ürün kurtarma DVD'si 32 bit Windows Vista Home Premium 32 bit x86 archive. org