Forum
Bildirimler
Hepsini Temizle
Windows Server
7
Yazılar
4
Üyeler
0
Reactions
7,816
Görüntüleme
Konu başlatıcı
Merhaba
Windows Server 2008 R2 yüklü olan sunucumuzda oem lisans bulunmaktadır. Bu ürünün disk değişimi olacağından ve sistemdeki problemlerden dolayı yeniden kuracağım. Var olan işletim sisteminin içinden product- cd key i nasıl alabilirim?
Gönderildi : 26/03/2015 22:15
Product Key Finder tarzı programlar ile bulabilirsiniz diye biliyorum 🙂
Gönderildi : 26/03/2015 23:21
Merhaba,
Aşağıda ki kodları .vbs script olarak kayıt edin ve çalıştırın lisans keyini verecektir.
Kolay gelsin
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
Save ProductID
End if
Function ConvertToKey(Key)
Const KeyOffset = 52
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
X = 14
Do
Cur = Cur * 256
Cur = Key(X + KeyOffset) + Cur
Key(X + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
X = X -1
Loop While X >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
Last = Cur
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
a = Mid(KeyOutput, 1, 5)
b = Mid(KeyOutput, 6, 5)
c = Mid(KeyOutput, 11, 5)
d = Mid(KeyOutput, 16, 5)
e = Mid(KeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Function Save(Data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
fName = "Windows Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline Data
f.Close
End Function
Gönderildi : 27/03/2015 03:25
Konu başlatıcı
Product Name: Windows Server 2008 R2 Standard
Product ID: 55041-XXX-0621775-XXXXX
Installed Key: NBBBB-BBBBB-BBBBB-BBBBB-BBBBB
yukardaki gibi bir sonuç verdi. (x leri ben koydum). Ben herbiri 5 haneli gruplar ile key oluyor diye anımsıyorum ama yanlış mıyım ?
Gönderildi : 27/03/2015 12:31
Merhaba,
http://8.enpedi.com/2014/08/windows-8-ve-81-lisans-anahtarn-bulmak.html
Yukarıda ki bağlantıda bulunan diğer yöntemleri denemenizi rica ederim.
Ayrıca OEM lisans ile ilgili olarak şurayı incelemenizi tavsiye ederim.
http://8.enpedi.com/2013/01/biosa-gomulu-windows-lisans-anahtar.html
Kolay gelsin.
Gönderildi : 27/03/2015 12:52
Merhaba,
Belarc Advisor isimli yazılımı kullanabilirsiniz.
http://www.belarc.com/free_download.html
1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.
Gönderildi : 27/03/2015 18:18
Konu başlatıcı
Teşekkürler
Gönderildi : 02/04/2015 23:05
