Norton CD Key..

[sashi]

Hi everyone..

am currently into developing an application in VB & Windows Management Intrumentation (WMI).. the purpose of the application is to execute a benchmark test on every client machine on the LAN to collect the client machine's hardware and software details..

i have completed the hardware details gathering part.. partly completed the software gathering part as well.. as of now i am able to find most of the crucial application installed on a particular client machine together with their service packs , hotfixes as stuff like that..

any idea where to look for Norton CD Key in the registry?? am sure it's in the registry.. what am not sure is the format the CD key is stored.. encoded or not and stuff like that..

hope to hear from you guys soon.. take care and have a great day ahead..

[sashi]

Hi guys,

guess what?? i found the answer.. as i mentioned earlier, the information is not stored in the registry.. it's somewhere else.. :).. after a little sumo wrestle with WMI i got it.. anyway it feels great to answer own post.. :) anyone experience this before? check out the below code.. good luck everyone.. :)

Public oReg As WbemScripting.SWbemObject
Public objWMIService As WbemScripting.SWbemServices
Public colItems, colItems2, colSMBIOS, objItem, objItem2, objSMBIOS
 
Public Sub AntivirusInfo()
    On Error Resume Next
 
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    If (ServicePack = "2" And SystemBuildNumber = "2600") Then
        Set objWMIService_AV = GetObject("winmgmts:\\" & strComputer & "\root\SecurityCenter")
 
        Set colItems = objWMIService_AV.ExecQuery("Select * from AntiVirusProduct")
        For Each objAntiVirusProduct In colItems
 
            If IsNull(objAntiVirusProduct.CompanyName) Then
                AV_Prod = ""
            Else
                AV_Prod = objAntiVirusProduct.CompanyName
            End If
 
            If IsNull(objAntiVirusProduct.DisplayName) Then
                AV_Disp = ""
            Else
                AV_Disp = objAntiVirusProduct.DisplayName
            End If
 
            If IsNull(objAntiVirusProduct.productUptoDate) Then
                AV_Up2d = ""
            Else
                AV_Up2d = objAntiVirusProduct.productUptoDate
            End If
 
            If IsNull(objAntiVirusProduct.versionNumber) Then
                AV_Vers = ""
            Else
                AV_Vers = objAntiVirusProduct.versionNumber
            End If
 
            InventoryList = "Antivirus Info^^^" & Trim(AV_Prod) & "^^^" _
                & Trim(AV_Disp) & "^^^" _
                & Trim(AV_Up2d) & "^^^" _
                & Trim(AV_Vers)
            InventoryList = ""
        Next
    End If
End Sub
 

[iam_clint]

sounds pretty cool, hope you get everything worked out in it i wouldn't mind seeing this program in action. good luck sashi

[sashi]

Hi Iam_Clint,

well.. hope to share this program with everyone as well.. but first i have get it to work.. :) thanks and take care.. :)