'*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+ ' Generator : PPWIZARD version 05.309 ' : FREE tool for Windows, OS/2, DOS and UNIX by Dennis Bareis (dennis@dennisbareis.id.au) ' : http://dennisbareis.id.au/ppwizard.htm ' Time : Saturday, 26 Nov 2005 2:14:25pm ' Input File : C:\DBAREIS\Projects\Win32\MakeMsi\_Anti.V ' Output File : C:\DBAREIS\Projects\Win32\MakeMsi\out\_Anti.VBS '*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+ '---------------------------------------------------------------------------- ' ' MODULE NAME: _Anti.V ' ' $Author: USER "Dennis" $ ' $Revision: 1.0 $ ' $Date: 13 May 2005 17:30:22 $ ' $Logfile: C:/DBAREIS/Projects.PVCS/Win32/MakeMsi/_Anti.V.pvcs $ ' COPYRIGHT: (C)opyright Dennis Bareis, Australia, 2003 ' All rights reserved. '---------------------------------------------------------------------------- if Wscript.Arguments.Count = 1 then if Wscript.Arguments(0) = "!CheckSyntax!" then wscript.quit(21924) on error resume next Prefix = "This is a script (version ""05.131"") which is testing for anti-virus or anti-spyware configuration problems." & vbCRLF & vbCRLF Wscript.echo Prefix & "You will see a sequence of messages, ending with a success message if your antivirus allows TexPoint installation." dim oShell : set oShell = WScript.CreateObject("WScript.Shell") dim oFS : set oFs = CreateObject("Scripting.FileSystemObject") Wscript.echo Prefix & "Successfully created FileSystem and Shell objects." err.clear() TestFileName = "C:\AnyFileNameWillDo.EXE" set oStream = oFS.CreateTextFile(TestFileName, true) oStream.writeline "SomeStuff" oStream.Close() set oStream = Nothing oFS.DeleteFile TestFileName Wscript.echo Prefix & "Successfully used the FileSystem object!" oShell.run "dir \*.XYZ",0, true T = "SUCCESS! There does not appear to be any Anti-Spyware or Anti-Virus activity automatically preventing installation scripts from executing. " Wscript.echo Prefix & T