Installed Software and Product Keys

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Installed Software and Product Keys

Logged in as: Guest

arrSession:exec spGetSession 2,2,32774

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Installed Software and Product Keys
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Installed Software and Product Keys - 3/28/2006 7:29:38 AM

kelfuego

Posts: 3
Score: 0
Joined: 3/28/2006
Status: offline

I'm presently developing a small database that will collect inventory information from the various computers on my domain. Yes I know there are products out there that I could purchase to do this, but I'm on a limited budget. With that said, i'm interested in how to collect the Product keys of installed software on my system for products like visio, office xp, etc...

Can someone help point me in the right direction?

Post #: 1

RE: Installed Software and Product Keys - 3/28/2006 7:34:20 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

Well I guess it depends on what you mean by "Product key". Pick a product (let's say office xp) what is the product key of that product on your pc? How did you find it?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kelfuego)

Post #: 2

RE: Installed Software and Product Keys - 3/28/2006 7:42:57 AM

kelfuego

Posts: 3
Score: 0
Joined: 3/28/2006
Status: offline

Here is how I'm finding what software is loaded on my system if that is the question you are asking.

(in reply to kelfuego)

Post #: 3

RE: Installed Software and Product Keys - 3/28/2006 7:56:03 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

My question is what do you mean by product key? Do you mean a key that you entered when you installed the product? Do you mean a unique identifier for each product? Do you mean a unique id for each installation of the product?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kelfuego)

Post #: 4

RE: Installed Software and Product Keys - 3/28/2006 8:13:54 AM

kelfuego

Posts: 3
Score: 0
Joined: 3/28/2006
Status: offline

Yes the key entered at the time of the installation of the software.

(in reply to ebgreen)

Post #: 5

RE: Installed Software and Product Keys - 3/28/2006 8:19:24 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

I suspect that there is no way to retrieve that. I know that I would not want someone to be able to retrieve the activation key for my software. If there is a way, I suspect that it will be very specific to each product.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kelfuego)

Post #: 6

RE: Installed Software and Product Keys - 3/28/2006 8:41:37 AM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

FYI, when I run your script(after I add back in the Next and comment out the missing function call) I get 27 applications back, when I run mine I get 57 applications back...

Sorry I don't have a stripped down version.

'Region Declare a few variables
  
  Set objMName = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")
  Set MNameInfo = objMName.ExecQuery("SELECT * FROM Win32_OperatingSystem")
  Set wshShell= WScript.CreateObject("wscript.shell")
  Set WshNetwork= WScript.CreateObject("wscript.network")
  
  'Set machine name variable for use later
      CMName = WshNetwork.ComputerName
  'Set the current date in UTC    
      CurDT = Year(Now) & Month(Now) & Day(Now) & "_" & Hour(Now) & Minute(Now) & Second(Now)
      
  Const HKLM = &H80000002    
'endregion

'Region Create/open the output file and supporting directory structure.
  Set objNewFSO = CreateObject("Scripting.FileSystemObject")
  
  PWD = wshShell.CurrentDirectory
  RootFolder = PWD & "\Output"
  OutputFolder = RootFolder & "\" & CMName
  OpenFile = CMName & "_" & CurDT & ".txt"
  Const ForAppending = 8
  If objNewFSO.FolderExists(RootFolder) Then
      If objNewFSO.FolderExists(OutputFolder) Then 
          If objNewFSO.FileExists(OutputFolder & "\" & OpenFile) Then
              objNewFSO.DeleteFile(OutputFolder & "\" & OpenFile)
          End If
      Else
          Set objFolder = objNewFSO.CreateFolder(OutputFolder)
      End If
  Else
      Set objFolder = objNewFSO.CreateFolder(RootFolder)
      Set objFolder = objNewFSO.CreateFolder(OutputFolder)
  End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objLogFile = objFSO.CreateTextFile(OutputFolder & "\" & OpenFile, True)
'EndRegion

'region Installed Application Information
  
  strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
  Set objRegistry = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\default:StdRegProv")
  objRegistry.EnumKey HKLM, strKey, arrSubKeys
  '-----------------------
  'Define the column headers
  Col1Header = "Name"
  Col2Header = "Version"
  Col3Header = "Install Location"
  
  'Column widths, last column not set.
  For Each strSubKey In arrSubKeys
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "DisplayName", strDisplayName
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "DisplayVersion", strDisplayVersion
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "InstallLocation", strInstallLocation
      
      If strDisplayName <> "" Then
          If InStr(1,strDisplayName, "hotfix", 1) = 0 Then
              If InStr(1,strDisplayName, "Security Update for", 1) = 0 Then
                  If InStr(1,strDisplayName, "Update for Windows", 1) = 0 Then
                      '----------------------------------
                      GetMaxWidth strDisplayName, C1, Col1Header
                      GetMaxWidth strDisplayVersion, C2, Col2Header
                      '-------------------------
                      strDisplayName = vbEmpty
                      strDisplayVersion = vbEmpty
                  End If
              End If
          End If
      End If
  Next

Header = Col1Header & Space(C1 - Len(Col1Header)) & _
              Col2Header & Space(C2 - Len(Col2Header)) & _
              Col3Header
  
  objLogFile.Writeline Header
  objLogFile.Write String(Len(Header), "-")
  objLogFile.Writeline
  
  On Error Resume Next
  For Each strSubKey In arrSubKeys
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "DisplayName", strDisplayName
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "DisplayVersion", strDisplayVersion
      objRegistry.GetStringValue HKLM, strKey & "\" & strSubKey, "InstallLocation", strInstallLocation
      
      If strDisplayName <> "" Then
          If InStr(1,strDisplayName, "hotfix", 1) = 0 Then
              If InStr(1,strDisplayName, "Security Update for", 1) = 0 Then
                  If InStr(1,strDisplayName, "Update for Windows", 1) = 0 Then
                      Col1Object = strDisplayName
                      Col2Object = strDisplayVersion
                      Col3Object = strInstallLocation
                      objLogFile.WriteLine _
                          Col1Object & Space(C1 - Len(Col1Object)) & _
                          Col2Object & Space(C2 - Len(Col2Object)) & _
                          Col3Object
                      strDisplayName = vbEmpty
                      strDisplayVersion = vbEmpty
                      strInstallLocation = vbEmpty
                  End If
              End If
          End If
      End If
  Next
  On Error GoTo 0 'Turns error checking back on
  
  objLogFile.WriteLine
  objLogFile.WriteLine
  
  'region Clear all section variables
      Col1Header = vbNothing
      Col2Header = vbNothing
      Col3Header = vbNothing
      Col1Object = vbNothing
      Col2Object = vbNothing
      Col3Object = vbNothing
      C1 = vbNothing
      C2 = vbNothing
  'endregion
'endregion

'region Close the ouptput file
objLogFile.Close
'endregion

'region Option, open the output file for review
intAnswer = MsgBox("Would you like to review the inventory file now?", vbYesNo, "Inventory Review")
  If intAnswer = vbYes Then
      retcode = Wshshell.run ("notepad " & OutputFolder & "\" & OpenFile, 1, False)
  End If
'endregion

'region Functions

'Obtain the max width of the element in question
  Function GetMaxWidth(ObjItem, MaxLen, ColItem)
      y = Array(ObjItem)
      For Each x In y
      
          If MaxLen < Len(x) Then
              MaxLen = Len(x) + 6
              MaxLen2 = Len(x)
              If MaxLen2 < Len(ColItem) Then
                  MaxLen = Len(ColItem) + 5
              End If
          End If
      Next
  End Function
'endregion

Cybex

< Message edited by Cybex -- 3/28/2006 8:42:52 AM >

_____________________________

Common sense is not so common.

(in reply to kelfuego)

Post #: 7

RE: Installed Software and Product Keys - 3/28/2006 8:44:21 AM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

I agree with EBGreen, I doubt you will be able to find all of the product keys for your apps.

Cybex

_____________________________

Common sense is not so common.

(in reply to ebgreen)

Post #: 8

RE: Installed Software and Product Keys - 3/28/2006 8:45:16 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

That is because yours finds all apps that have advertised themselves for removal whereas his finds all apps that were installed using the MS Installer engine.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to Cybex)

Post #: 9

RE: Installed Software and Product Keys - 3/28/2006 8:46:42 AM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

You are correct!

Gold Star for EBGreen...

Cybex

_____________________________

Common sense is not so common.

(in reply to ebgreen)

Post #: 10

RE: Installed Software and Product Keys - 3/28/2006 7:08:56 PM

ginolard

Posts: 1082
Score: 21
Joined: 8/10/2005
Status: offline

Yup. Not all manufacturers store their product keys in the registry. Hell, not all manufactures store their uninstall information in the registry!

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to Cybex)

Post #: 11

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Installed Software and Product Keys

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts