Uninstall with logging

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Uninstall with logging

Logged in as: Guest

arrSession:exec spGetSession 2,16,58422

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

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Uninstall with logging
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Uninstall with logging - 3/26/2008 4:26:49 AM

estradac

Posts: 1
Score: 0
Joined: 9/29/2006
Status: offline

All,

I need to do the following:

1. Do not run on Servers
2. Discover machines running Microsoft proxy firewall client
3. log those clients that have client installed to central localtion (just in case on removal something goes wrong)
4. Uninstall old MS proxy firewall client (no reboot)
5. Install new proxy Firewall
6. log those clients that receive the new client ( just in case on installation something goes wrong)

strComputer ="."
removefw

'****************************                         
'* removefw Subroutine **                                    
'****************************  
Sub removefw
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This sub is a temporary sub to remove Microsoft Firewall Client until a new image
' has been completed.
' 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim oWMIService, oShell, oExplorer, colSoftware

' Create a shell object
Set oShell = CreateObject("WScript.Shell")

' Connect to the WMI provider
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

' Create an instance of internet Explorer and set up it's properties.
Set oExplorer = WScript.CreateObject("InternetExplorer.Application")
oExplorer.Navigate "about:blank"   
' do we want a toolbar? 1=yes 0=no
oExplorer.ToolBar = 1
' do we want a statusbar? 1=yes 0=no
oExplorer.StatusBar = 1
oExplorer.Width=400
oExplorer.Height = 200 
oExplorer.Left = 0
oExplorer.Top = 0

' wait for Internet Explorer to load up before updating inner html
Do While (oExplorer.Busy)
    WScript.Sleep 200
Loop

' Make this instance of internet explorer visible and update
' the internal html
oExplorer.Visible = 1             
oExplorer.Document.Body.InnerHTML = "Checking for Microsoft Firewall Client 2000.  If any problems please contact HelpDesk at xxxxxx"

' create a query for Microsoft Firewall Client
Set colSoftware = oWMIService.ExecQuery _
    ("Select * from Win32_Product Where Name = 'Microsoft Firewall Client'& 'DisplayVersion=3.0.1200'")

' check to see if there are any returns on the query
If colSoftware.count = 0 Then
 ' if not update inner html and then exit 
 oExplorer.Document.Body.InnerHTML = "No Microsoft Firewall Client Installation was found. Thank You...Exiting..."
Else
 '  if the app is found, update inner html
 For Each oSoftware in colSoftware
  oExplorer.Document.Body.InnerHTML = "Removing " & oSoftware.name
  Do While (oExplorer.Busy)
      WScript.Sleep 100
  Loop    
     oExplorer.Document.Body.InnerHTML = "Please continue to wait..."
           
     On Error Resume Next
     ' uninstall Microsoft Firewall Client
     oSoftware.Uninstall()
     
     ' error checking
     If Err.Number <> 0 Then
      ' if there is an error give a description of the Error
      oExplorer.Document.Body.InnerHTML = "There was an error uninstalling " & oSoftware.name
      oExplorer.Document.Body.InnerHTML = "Description: " & Err.Description
  Else
   ' if it was uninstalled successfully let the user know
   oExplorer.Document.Body.InnerHTML = oSoftware.name & " has been successfully uninstalled."
  End If
 Next
End If

' allow processes to finish, close IE
WScript.Sleep 3000
oExplorer.Quit  
End Sub