.vbs script as a post install task?

Hello, i am trying to run a .vbs script as a post install task in a winxp scripted installation, our company like to remove windows messenger and also the in built games, i have found the following scripts to do this:

remove games.vbs:
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
sPrograms = WshShell.SpecialFolders("AllUsersPrograms")
If (Fso.FolderExists(sPrograms & "\Games")) Then
' Create file for uninstalling games
Set f = Fso.CreateTextFile("c:\windows\inf\wmdtocm.txt", True)
WshShell.Run "sysocmgr.exe /i:c:\windows\inf\sysoc.inf /u:""c:\windows\inf\wmdtocm.txt"" /q", 1, True
Fso.DeleteFolder(sPrograms & "\Games"), True
End If


Remove messenger.vbs:
'xp_messsenger_remove.vbs - Removes Windows Messenger from Windows XP
'© Doug Knox - 3/30/02
'Downloaded from www.dougknox.com

Option Explicit
On Error Resume Next

'Dimension variables
Dim WSHShell, MyBox, p1, q1, rcmd
Dim jobfunc

'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger"
q1 = 2
rcmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove"

'Create or change the Hide Messenger value
WSHShell.RegWrite p1, q1

'Run the uninstall command


both run fine from a command prompt on a clean machine and also when double clicked, but when uploaded to the kbox with the command line: remove messenger.vbs / remove games.vbs respectively they do not run. i have tried this uploading the single files and also as a zip of the files.

would anyone be able to shed any light on this?

also is there a log of post installation failures? if so where would it be as this would help greatly.

0 Comments   [ + ] Show comments

Answers (2)

Posted by: trentderby 13 years ago
Blue Belt
figured it out, i needed to put the command line in quotation marks to install, all working ok now.
Posted by: cserrins 13 years ago
Red Belt

In your setup configuration under [Components] you can add:
Msmsgs = "Off"
Minesweeper = "Off"
Hearts = "Off"


Here is my list:

AccessOpt = "Off"
Appsrv_console = "Off"
Aspnet = "Off"
BitsServerExtensionsISAPI = "Off"
BitsServerExtensionsManager = "Off"
Calc = "On"
Certsrv = "Off"
Certsrv_client = "Off"
Certsrv_server = "Off"
Charmap = "On"
Chat = "Off"
Clipbook = "On"
Cluster = "Off"
Complusnetwork = "Off"
Deskpaper = "On"
Dialer = "Off"
DriverSigningPolicy = "Ignore"
Dtcnetwork = "Off"
Fax = "Off"
Fp_extensions = "Off"
Fp_vdir_deploy = "Off"
Freecell = "Off"
Hearts = "Off"
Hypertrm = "Off"
IEAccess = "On"
IEHardenAdmin = "Off"
IEHardenUser = "On"
Iis_asp = "Off"
Iis_common = "Off"
Iis_ftp = "Off"
Iis_inetmgr = "Off"
Iis_internetdataconnector = "Off"
Iis_nntp = "Off"
Iis_serversideincludes = "Off"
Iis_smtp = "Off"
Iis_webdav = "Off"
Iis_www = "Off"
Indexsrv_system = "Off"
Inetprint = "Off"
Licenseserver = "Off"
Media_clips = "Off"
Media_utopia = "On"
Minesweeper = "Off"
Mousepoint = "Off"
Msmq_ADIntegrated = "Off"
Msmq_Core = "Off"
Msmq_HTTPSupport = "Off"
Msmq_LocalStorage = "Off"
Msmq_MQDSService = "Off"
Msmq_RoutingSupport = "Off"
Msmq_TriggersService = "Off"
Msmsgs = "Off"
Msnexplr = "Off"
Mswordpad = "On"
Netcis = "Off"
Netoc = "Off"
Objectpkg = "On"
OEAccess = "Off"
Paint = "On"
Pinball = "Off"
Pop3Admin = "Off"
Pop3Service = "Off"
Pop3Srv = "Off"
Rec = "Off"
Reminst = "Off"
Rootautoupdate = "On"
Rstorage = "On"
Sakit_web = "Off"
Solitaire = "Off"
Spider = "Off"
Templates = "Off"
TerminalServer = "On"
TSWebClient = "Off"
Vol = "On"
WbemCrrl = "On"
WbemFwrd = "On"
WbemMSI = "On"
WMAccess = "Off"
Wms = "Off"
Wms_admin_asp = "Off"
Wms_admin_mmc = "Off"
Wms_isapi = "Off"
Wms_server = "Off"
Zonegames = "Off"
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Don't be a Stranger!

Sign up today to participate, stay informed, earn points and establish a reputation for yourself!

Sign up! or login


This website uses cookies. By continuing to use this site and/or clicking the "Accept" button you are providing consent Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our websites or when you do business with us. For more information about our Privacy Policy and our data protection efforts, please visit GDPR-HQ