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

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

Updating a single field in a SharePoint List using Power Automate Flows

Image
  Updating a single field in a SharePoint List using Power Automate Flows Updating a single field in a SharePoint List using Microsoft Flows (aka Microsoft Power Automate) can be a bit tricky with longer lists with lots of required fields and drop downs possibly resetting your data. The work around is code, but if there are non-developers creating flows, then this process is even more cumbersome. As a result, the Flow below will do the heavy lifting using a separate list and then anyone can populate that list from a different Flow when such a thing is needed. First step: create the list Here’s the input needed in this list. List: The name of the list SiteLink: The link to the site (trim off /lists/xyzlist) IDFromSource: This is the internal ID of the item to update FieldToUpdate: The name of the field you want to update. This is case sensitive. ValueForField: What you want to set it to. Next, create the Flow. Here’s what it will look like   When a Shar...
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