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
     
  2. Jazz

    Jazz Super Moderatór Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,731
    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
    
     
  3. sinaga17

    sinaga17 Member

    Joined:
    Apr 29, 2014
    Messages:
    281
    setuju sama mb icha :goodjob:
     
  4. Jazz

    Jazz Super Moderatór Staff Member

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

    6x4 atau 4x6
    :senyumsinis:
     
  5. sinaga17

    sinaga17 Member

    Joined:
    Apr 29, 2014
    Messages:
    281
    apa saja saya setuji deh.. :cool:
     
  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
     

Share This Page