Website-Icon PITS Online

Auslesen des Produktschlüssels aus einer SharePoint 2010 Installation

Um den Produktschlüssel einer Micrososft SharePoint 2010 Server Installation noch einmal auslesen zu können, kann das nachfolgende Skript verwendet werden.

Einfach ein VBScript (.vbs) mit folgendem Inhalt erstellen und ausführen:

'=========================================================================
' VBScript Source File
'
' AUTHOR: Stewart Brown
' COMPANY: Jamzar Web Design
' WEBSITE: blog.jamzarwebdesign.com.au
' DATE: 4/11/2011
' COMMENT: Will display the SharePoint 2010 License Key.
'
' Found original code on internet but can't remember where I
' found it so I'm not sure who to thank.
' If you own this code and can prove it, then please leave a
' message on blog and once confirmed I will update this code.
'=========================================================================
const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Registration\{90140000-110D-0000-1000-0000000FF1CE}"
strValueName = "DigitalProductId"
strComputer = "."
dim iValues()
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues
Dim arrDPID
arrDPID = Array()
For i = 808 to 822
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next

Dim arrChars
arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")
For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor arrDPID(j)
arrDPID(j) = Int(k / 24)
k = k Mod 24
Next
strProductKey = arrChars(k) & strProductKey
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next
strFinalKey = strProductKey

Set wshShell=CreateObject("wscript.shell")
strPopupMsg = "Your Microsoft SharePoint 2010 Product Key is:" & vbNewLine & vbNewLine & strFinalKey
strPopupTitle = "Product Key"
wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
WScript.Quit

(Quelle: blog.jamzarwebdesign.com.au)

Die mobile Version verlassen