<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=koi8-r" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18939"></HEAD>
<BODY>
<DIV><FONT face=Arial><FONT size=2>To uninstall prohibited applications I've
developed a little script.<SPAN class=080350604-16092010> Its convenience
is the fact that you can specify a mask to uninstall the programs like
"Adobe%".</SPAN></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN class=080350604-16092010>Its
disadvantages are the relatively large time to check prohibited
applications.</SPAN></FONT></FONT></DIV>
<DIV><FONT size=2 face="Courier New"><SPAN
class=080350604-16092010> Set theSoftware = objWMICall.ExecQuery
("select * from Win32_Product Where " & SoftList)</SPAN></FONT></DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN class=080350604-16092010>Maybe a
developers come up to integrate into WPKG uninstall prohibited applications, or
speed up apps checking with "like" feature.</SPAN></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN class=080350604-16092010><EM>The beauty
WMICall.Uninstall() lies in the fact that it is looking for a
UninstallString and uninstall application quiet.</EM></SPAN></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN
class=080350604-16092010></SPAN></FONT></FONT> </DIV>
<DIV><FONT size=2><SPAN class=080350604-16092010>
<DIV><SPAN class=080350604-16092010><FONT size=2
face=Arial><STRONG>Prohibited<SPAN><FONT color=#0000ff><FONT
color=#000000><STRONG>A</STRONG></FONT></FONT><FONT color=#0000ff><SPAN
class=080350604-16092010><STRONG><FONT
color=#000000>pplications</FONT></STRONG></SPAN></FONT></SPAN>.vbs</STRONG></FONT></SPAN></DIV></SPAN></FONT></DIV><SPAN
class=080350604-16092010>
<DIV><FONT size=2 face="Courier New">
<HR>
</FONT></DIV></SPAN>
<DIV><FONT size=2><SPAN class=080350604-16092010></SPAN></FONT><FONT
size=2><SPAN class=080350604-16092010><FONT face="Courier New">theFile = "<A
href="file://myserverip/DEPLOY$/wpkg/ProhibitedPackages"><FONT color=#000000
face="Courier New"><STRONG>\\MyServerIp\DEPLOY$\wpkg\Prohibited<SPAN><FONT
color=#0000ff><FONT color=#000000><STRONG>A</STRONG></FONT></FONT><FONT
color=#0000ff><SPAN class=080350604-16092010><STRONG><FONT
color=#000000>pplications</FONT></STRONG></SPAN></FONT></SPAN></STRONG></FONT></A><FONT
face="Courier New"><U>.xml</U>"</FONT></FONT></SPAN></FONT></DIV>
<DIV><FONT size=2 face="Courier New"><SPAN
class=080350604-16092010></SPAN></FONT><FONT size=2
face="Courier New"></FONT> </DIV>
<DIV><FONT size=2><SPAN class=080350604-16092010><FONT face="Courier New">Set
fso = CreateObject("Scripting.FileSystemObject")<BR>if fso.FileExists(theFile)
then<BR> xmlDoc.Load(theFile)<BR> WhereList=""<BR> for each
theNode in xmlDoc.documentElement.childNodes<BR> if
WhereList<>"" then WhereList=WhereList & " or
"<BR> theUninst = theNode.NodeTypedValue<BR> if
Instr(theUninst,"%")>0 then <BR> WhereList=WhereList
& "Name like '" & theUninst & "'"
<BR> else<BR> WhereList=WhereList & "Name ='"
& theUninst &"'" <BR> end if<BR></FONT></SPAN></FONT><FONT
size=2><SPAN class=080350604-16092010><FONT
face="Courier New"> next</FONT></SPAN></FONT></DIV>
<DIV><FONT size=2 face="Courier New"></FONT> </DIV>
<DIV><FONT face=Arial><FONT size=2><SPAN class=080350604-16092010><FONT
face="Courier New"> if WhereList<>"" then<BR> Set
theSoftware = objWMICall.ExecQuery ("select * from Win32_Product Where " &
SoftList)<BR> For Each SoftwareComponent in
theSoftware<BR> SoftwareComponent.Uninstall()<BR> Next<BR> end
if<BR>end if</FONT></SPAN></FONT></FONT></DIV><FONT face=Arial><SPAN
class=080350604-16092010>
<DIV><FONT size=2 face="Courier New">
<HR>
</FONT></DIV>
<DIV><SPAN class=080350604-16092010>
<DIV><A
href="file://\\MyServerIp\DEPLOY$\wpkg\ProhibitedApplications.xml "><FONT
color=#000000><FONT size=2><STRONG>Prohibited</STRONG><SPAN><FONT
color=#0000ff><FONT color=#000000><STRONG>A</STRONG></FONT></FONT><FONT
color=#0000ff><SPAN class=080350604-16092010><STRONG><FONT
color=#000000>pplications</FONT></STRONG></SPAN></FONT></SPAN><STRONG>.</STRONG><SPAN
class=080350604-16092010><FONT color=#0000ff><FONT
color=#000000><STRONG>xml</STRONG></FONT> </FONT></SPAN></FONT></FONT></A><SPAN
class=080350604-16092010><FONT size=2> - EXAMPLE. If Uninstall
value contain "%", it uninstall all by mask</FONT></SPAN></DIV><A
href="file://\\MyServerIp\DEPLOY$\wpkg\ProhibitedPackages.pkg"></A></SPAN></DIV>
<DIV><FONT face="Courier New"><FONT size=2>
<HR>
</FONT><FONT size=2> </FONT></FONT><FONT size=2><FONT
face="Courier New"><?xml version="1.0"
encoding="UTF-8"?><BR><Applications><BR> <Uninstall>%Punto%</Uninstall><BR> <Uninstall>Acrobat.com</Uninstall><BR> <Uninstall>Adobe
Reader%</Uninstall><BR> <Uninstall>Mail.Ru%</Uninstall><BR> <Uninstall>Microsoft
Firewall Client%</Uninstall><BR> <Uninstall>Ask
Toolbar%</Uninstall><BR></Applications> </FONT>
<HR>
</FONT></DIV>
<DIV><SPAN class=080350604-16092010>with regards,</SPAN></DIV>
<DIV><SPAN class=080350604-16092010>Alexey Dubovsky</SPAN></DIV>
<DIV><FONT size=2><FONT
color=#0000ff> </DIV></FONT></FONT></SPAN></FONT></BODY></HTML>