.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)
f.WriteLine("[Components]")
f.WriteLine("freecell=off")
f.WriteLine("hearts=off")
f.WriteLine("minesweeper=off")
f.WriteLine("msnexplr=off")
f.WriteLine("pinball=off")
f.WriteLine("solitaire=off")
f.WriteLine("spider=off")
f.WriteLine("zonegames=off")
f.Close
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
WshShell.Run(rcmd)
-----------------------------------------------
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.
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)
f.WriteLine("[Components]")
f.WriteLine("freecell=off")
f.WriteLine("hearts=off")
f.WriteLine("minesweeper=off")
f.WriteLine("msnexplr=off")
f.WriteLine("pinball=off")
f.WriteLine("solitaire=off")
f.WriteLine("spider=off")
f.WriteLine("zonegames=off")
f.Close
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
WshShell.Run(rcmd)
-----------------------------------------------
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)
Please log in to answer
Posted by:
trentderby
14 years ago
Posted by:
cserrins
14 years ago
trentderby,
In your setup configuration under [Components] you can add:
Msmsgs = "Off"
Minesweeper = "Off"
Hearts = "Off"
etc.
Here is my list:
[Components]
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"
WMPOCM = "On"
Wms = "Off"
Wms_admin_asp = "Off"
Wms_admin_mmc = "Off"
Wms_isapi = "Off"
Wms_server = "Off"
Zonegames = "Off"
In your setup configuration under [Components] you can add:
Msmsgs = "Off"
Minesweeper = "Off"
Hearts = "Off"
etc.
Here is my list:
[Components]
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"
WMPOCM = "On"
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.
so that the conversation will remain readable.