Web Development

Set objFSO   = CreateObject("Scripting.FileSystemObject")<br />
set oWscript = CreateObject("WScript.Shell")  <br />
dim lstsft<br />
dim mylist <br />
dim i,j<br />
'<---------------------------------><br />
	call getInstalledList ()<br />
'<---------------------------------><br />
Private sub getInstalledList ()<br />
dim chk<br />
mylist = split("Symantec AntiVirus,MSXML 4.0 SP2 Parser and SDK", ",")<br />
strComputer = "."<br />
Set objWMIService = GetObject("winmgmts:" _<br />
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")<br />
Set colSoftware = objWMIService.ExecQuery _<br />
    ("Select * from Win32_Product")<br />
lstsft=""<br />
For Each objSoftware in colSoftware<br />
    lstsft = lstsft & "," & objSoftware.Caption  <br />
Next<br />
lstsft= split (lstsft,",")<br />
for i = 0 to ubound(mylist)<br />
chk="0"<br />
	for j=0 to ubound(lstsft)				<br />
		if lstsft(j) = mylist (i) then<br />
			msgbox(mylist(i) & " exist" ) <br />
			chk="1"	<br />
		end if <br />
next	<br />
if chk = "0" then<br />
	msgbox ( mylist(i) & " not exist")<br />
end if <br />
next<br />
end Sub