1. Hello Guest, selamat datang di Forum WinPoin. Kamu bisa bertanya, berdiskusi, sharing, dan ngobrolin apapun seputar Windows, Windows Phone, PC, Gadget, atau hal seputar Teknologi lainnya. Selamat berkomunitas! ;)

Cara Melihat License Windows Server 2008 R2

Discussion in 'Windows Server' started by ramond86, Sep 16, 2014.

  1. ramond86

    ramond86 New Member

    Joined:
    Sep 16, 2014
    Messages:
    1
    Perkenalkan saya ramond. Saya Mau tanya perihal Windows Server 2008 R2. Saya baru bekerja di salah satu instansi pemerintahan di bagian IT yang mana saya menggantikan posisi seorang IT yang lama. Permasalahannya adalah di kantor saya ini ada 4 buah server yang sudah terinstall windows server 2008 R2 dan saya berniat untuk menginstall ulang salah satu dari server tersebut. yang saya bingung adalah saya di beri 4 windows server yang sya ga tau yang mana Licensi yang terpasang di server yang akan saya instal. Bagaimana caranya supaya saya bisa mengetahui licensi yang sesuai dengan dvd installer windos server tersebut. Mohon pencerahannya.. Terima kasih
     
    ramond86, Sep 16, 2014
    #1
  2. Jazz

    Jazz Super Moderatór Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,751
    Hi, ramond86 terima kasih telah Memposting di Forum winpoin

    Untuk Permasalahanmu, mungkin sedikit yg bisa kubantu sepengetahuanku, untuk Cek lisensi yg kamu perlukan adalah..
    membuka Commandpromt as Admin -> ketikan slmgr /dlv

    Dan apa di Cover/DVDnya tertanda key?
    Jika iya, mungkin kamu bisa mendownload Key Finder yg bertebaran di Internet atau bisa pke Script.vbs
    .vbs[/b]]
    Code:
    Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId4")

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
     
    Jazz, Sep 16, 2014
    #2
  3. sinaga17

    sinaga17 Member

    Joined:
    Apr 29, 2014
    Messages:
    281
    setuju sama mb icha :goodjob:
     
    sinaga17, Sep 24, 2014
    #3
  4. Jazz

    Jazz Super Moderatór Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,751
    Setuju apa ini?

    6x4 atau 4x6
    :senyumsinis:
     
    Jazz, Sep 24, 2014
    #4
  5. sinaga17

    sinaga17 Member

    Joined:
    Apr 29, 2014
    Messages:
    281
    apa saja saya setuji deh.. :cool:
     
    sinaga17, Oct 3, 2014
    #5
  6. axiadata.co.id

    axiadata.co.id Member

    Joined:
    Sep 2, 2013
    Messages:
    238
    lebih baik ditanyakan detail server ke IT sebelumnya, seharusnya lisensi key ada di stiker COA atau di BOX bila versi FPP.
    kalo saya sih biasanya stiker COA di tempelin di servernya biar pas pemeriksaan bisa nunjukin lisensi windows server nya
     
    axiadata.co.id, Nov 14, 2014
    #6

Share This Page