473,289 Members | 1,840 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,289 software developers and data experts.

Norton CD Key..

sashi
1,754 Expert 1GB
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..
Jul 10 '06 #1
3 8088
sashi
1,754 Expert 1GB
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.. :)

Expand|Select|Wrap|Line Numbers
  1. Public oReg As WbemScripting.SWbemObject
  2. Public objWMIService As WbemScripting.SWbemServices
  3. Public colItems, colItems2, colSMBIOS, objItem, objItem2, objSMBIOS
  4.  
  5. Public Sub AntivirusInfo()
  6.     On Error Resume Next
  7.  
  8.     Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
  9.     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  10.  
  11.     If (ServicePack = "2" And SystemBuildNumber = "2600") Then
  12.         Set objWMIService_AV = GetObject("winmgmts:\\" & strComputer & "\root\SecurityCenter")
  13.  
  14.         Set colItems = objWMIService_AV.ExecQuery("Select * from AntiVirusProduct")
  15.         For Each objAntiVirusProduct In colItems
  16.  
  17.             If IsNull(objAntiVirusProduct.CompanyName) Then
  18.                 AV_Prod = ""
  19.             Else
  20.                 AV_Prod = objAntiVirusProduct.CompanyName
  21.             End If
  22.  
  23.             If IsNull(objAntiVirusProduct.DisplayName) Then
  24.                 AV_Disp = ""
  25.             Else
  26.                 AV_Disp = objAntiVirusProduct.DisplayName
  27.             End If
  28.  
  29.             If IsNull(objAntiVirusProduct.productUptoDate) Then
  30.                 AV_Up2d = ""
  31.             Else
  32.                 AV_Up2d = objAntiVirusProduct.productUptoDate
  33.             End If
  34.  
  35.             If IsNull(objAntiVirusProduct.versionNumber) Then
  36.                 AV_Vers = ""
  37.             Else
  38.                 AV_Vers = objAntiVirusProduct.versionNumber
  39.             End If
  40.  
  41.             InventoryList = "Antivirus Info^^^" & Trim(AV_Prod) & "^^^" _
  42.                 & Trim(AV_Disp) & "^^^" _
  43.                 & Trim(AV_Up2d) & "^^^" _
  44.                 & Trim(AV_Vers)
  45.             InventoryList = ""
  46.         Next
  47.     End If
  48. End Sub
  49.  
Jul 15 '06 #2
iam_clint
1,208 Expert 1GB
sounds pretty cool, hope you get everything worked out in it i wouldn't mind seeing this program in action. good luck sashi
Jul 16 '06 #3
sashi
1,754 Expert 1GB
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.. :)
Jul 17 '06 #4

Sign in to post your reply or Sign up for a free account.

Similar topics

1
by: Al Christoph | last post by:
I'm running VB2003 on a new Dell Laptop where Dell in its infinite wisdom put on Norton Internet Security. UGH! Maybe I should have paid business rather than home prices:-) At any rate with...
11
by: TC | last post by:
Hello All, I have recently had the pleasure of installing Norton Internet Security 2005 and finding that I can no longer create or open a web-based application in Visual Studio .Net. The IDE...
2
by: Sven | last post by:
I'm certainly not the first to write about this subject, but I came across it after buying a new PC with NIS on it and it messed up my site without telling or yelling. I solved it by this...
6
by: clemke | last post by:
Hello All Is it possible for Norton Internet Security 2003 to strip out references to images from the html before it gets to the browser? Here is an example: On the Web Server The HTML File...
1
by: Al Cadalzo | last post by:
I have a web page that allows a user to download data by clicking on a link button. I then use Aspose.Excel (v1.0.3705) to generate the file for download and then I call the "Save" method on the...
10
by: Ammar | last post by:
Hi! I am running IIS 5 on windowsXP proffesional with norton internet security proffesional 2004. I have been trying to make an ASP.NET page that sends a report as an e mail to the webmaster of...
5
by: Chris Zoper | last post by:
Hello, Norton Internet Security blocks some of my ASP.NET pages. The pages are very 'normal' pages though. There is no 'dangerous' code in it or something like that. Also, the page is not in a...
11
by: gregory_may | last post by:
I am developing an application that I would like to distribute on CD. Norton blows it up very badly. Is there some API I can talk to let Norton know I am ok?
1
by: willip | last post by:
I have a Gridview control with a Databound Hyperlink. e.g.: <asp:HyperLinkField HeaderText="MyTitle" DataNavigateUrlFields="MyID" DataNavigateUrlFormatString="~/ShowMe.aspx?MyID={0}"...
3
by: johnb41 | last post by:
Starting a few days ago, when i run my .exe file (for my app), Norton Antivirus pops up a warning saying "xyz.exe is attempting to connect to a DNS server". The message is highlighted in red, and...
0
by: MeoLessi9 | last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Aftab Ahmad | last post by:
Hello Experts! I have written a code in MS Access for a cmd called "WhatsApp Message" to open WhatsApp using that very code but the problem is that it gives a popup message everytime I clicked on...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: marcoviolo | last post by:
Dear all, I would like to implement on my worksheet an vlookup dynamic , that consider a change of pivot excel via win32com, from an external excel (without open it) and save the new file into a...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.