Obtaining your SharePoint 2010 Product Key from Production

I needed to get the product key from the currently installed Sharepoint 2010 (in production)
Take the script below, save it as a .vbs file and run it from one of the farm machines (not the SQL box).

I found this script at:
http://blog.jamzarwebdesign.com.au/wp-content/uploads/2011/11/SharePoint-2010-License.txt


'=========================================================================
' 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

Comments

Post a Comment

Popular posts from this blog

Security Considerations When Using SharePoint Online

SharePoint Online offers a flexible, cloud-based platform for building internal portals, document repositories, and even limited public-facing content. But like any powerful system, it requires careful configuration to ensure it's secure—especially when content is meant to be shared or discovered across a broader audience. Authentication and Access Control The first layer of defense in SharePoint Online is identity. SharePoint is tightly integrated with Azure Active Directory, making it easy to manage access using Microsoft 365 groups, conditional access policies, and multifactor authentication. For internal sites, restrict access to only the necessary users or groups. Avoid using “Everyone” or “Everyone except external users” unless the site is truly intended for broad organizational access. If external sharing is required, limit it as much as possible: Use guest access sparingly and monitor usage Require sign-in for external users, rather than anonymous links Expire s...
Read more

Setting SharePoint announcements to auto delete after expiration

Image
Setting announcements to auto delete after expiration One thing that always bugged me was the expiration date attached to an Announcement list that does nothing out of the box. Sure, you could always add a filter and change the default view but as soon as you add an Announcements web part to a page the view is UNFILTERED even if a filtered view is the only one to choose from.  You or I could change the default view, but we can’t trust all users to do so. A workflow would be fine to delete the item – simply pause until the expire date then delete the current item.  The workflow would stick with the template if you saved your list off as a template and then still work when you created a new list from that template.  That’s good, but still relies on the user creating the right Announcement list. The better answer was to change the Announcements default content type.  If anyone asks, tell them it’s called Governance, Sparky. The first step was to go to site sett...
Read more

SharePoint driven rich text dashboard using jqueryui. (JQuery file)

Jquery file for Operations Dashboard Download this file <script type="text/javascript"> $(document).ready (       function()       {             SP.SOD.executeFunc('sp.js', 'SP.CamlQuery', RetrieveListValues);       } ); function RetrieveListValues() {       var query = new SP.CamlQuery(); query.set_viewXml("<View><Query><OrderBy><FieldRef Name=\"SortOrder\"/></OrderBy></Query></View>");                                     var clientContext = new SP.ClientContext("https://sharepoint.name/section/OD");       var oList = clientContext.get_web().get_lists().ge...
Read more