Wrox Programmer Forums

Need to download code?

View our list of code downloads.

| FAQ | Members List | Search | Today's Posts | Mark Forums Read
Visual Basic 2008 Professionals For advanced Visual Basic coders working in version 2008. Beginning-level questions will be redirected to other forums,
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Visual Basic 2008 Professionals section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old June 12th, 2008, 08:58 AM
Registered User
Join Date: Jun 2008
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default VB Scripting

I have to write a Vb script for uninstalling the software from the systems on network.
I have already written scripts for uninstallation using msiexec.exe and it worked but when I tried it for unistalling one of the google software, it doesnt work, n then i checked the installation script for that software, I find that a different method is used to install it rather than the normal using .msi and .mst formats.

I am also adding the installation lines:
strAppInstallPath = strAppsShareRoot & "\Google\Sketchup.Pro.6\install.bat " & strAppsShareRoot & "\Google\Sketchup.Pro.6\googlesketchupprowen.e xe /a /s /sms /f1" & strAppsShareRoot & "\Google\Sketchup.Pro.6\setup.iss /f2c:\setup.log"
' ***** Install Sketchup 6 if it's not already installed
If (IsProductInstalled("{12E75B98-8463-4C1F-8DDA-F6CF31566A55}") = False) Then
    WshShell.Run strAppInstallPath,2,True
    objfso.CopyFile strAppsShareRoot & "\google\sketchup.pro.6\server.dat", "c:\program files\google\Google SketchUp 6\", True
    objfso.CopyFile strAppsShareRoot & "\google\sketchup.pro.6\Ruby_Script\SimplifyContou rs.rb", "C:\Program Files\Google\Google SketchUp 6\Plugins", True
End If

so can any body suggest me that how can I uninstall thi s software using scripts
I have tried:
If (IsProductInstalled("{12E75B98-8463-4C1F-8DDA-F6CF31566A55}") = True) Then
WshShell.Run "msiexec.exe /uninstall {12E75B98-8463-4C1F-8DDA-F6CF31566A55} /quiet",,True

End If
' ***** Update log for this workstation (check to see if it uninstalled successfully)
        If (IsProductInstalled(strProductID) = False) Then
            WshShell.LogEvent EVENT_SUCCESS, "Uninstalled " + strProductName
            ' ***** Exit the script if product couldn't be removed
            WshShell.LogEvent EVENT_ERROR, "Unable to remove " + strProductName
            Wscript.Quit 0
        End If

but its not working
It runs bt doesnt uninstall........

Need help!!!!!!!!!!!!!!!!!!!

Reply With Quote

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
acessing DLL functions in VB Scripting seeekvb VBScript 5 January 15th, 2007 06:58 PM
SCRIPTING LANGUAGES itsmepiyush_kool Intro Programming 2 December 13th, 2006 03:50 PM
Scripting depesh Beginning VB 6 2 January 5th, 2005 04:35 PM
dos scripting in excel vb noideawhatimdoing Beginning VB 6 0 December 5th, 2004 02:08 PM
Safe For Scripting interrupt VBScript 0 September 2nd, 2004 07:25 AM

All times are GMT -4. The time now is 10:25 AM.

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.