vbscript - VBS (Visual Basic Script) Run Program hidden/invisible

Question

I am trying to run a program (In this case Internet Explore) hidden/invisible from a VB script.

I found a simple script for making batch files hidden, and tried it. It didn't seem to work as the program just popped up as normal.

Here is my code so far:

CreateObject("Wscript.Shell").Run "iexplore.exe",0,True

This runs the program iexplore.exe, but doesn't run it hidden/invisible.

I am also running this VBS file from a batch file which is hidden. The batch file simply does:

start Run.vbs

Codes of each script/batch file:

Batch File: Main file launching VBS file

@echo off
:start
start HideExecuteServerVBS.vbs (To Hide the ExecuteServerVBS.bat file when running)
timeout /NOBREAK /T 5
TASKKILL /IM iexplore.exe
timeout /NOBREAK /T 3
TASKKILL /IM iexplore.exe /F
timeout /NOBREAK /T 1800
goto start

HideExecuteServerVBS.vbs

CreateObject("Wscript.Shell").Run "ExecuteServerVBS.bat",0,True

ExecuteServerVBS.vbs

@echo off
C:WindowssysWOW64csript.exe C:UsersAdminRunInternetProcessvbscript.vbs

vbscript.vbs

Set ie = CreateObject("InternetExplorer.Application")

Is there a possible way to run a program invisible through a VB Script (Visual Basic Script)?

Answer 1

So here's the deal, if you are receiving an ActiveX error, you most likely are trying to run this vbscript under a server. Server with a 64bit platform with lack of support for direct execution of 32bit vbscripts? Yeah? If so, here's what you need to do.

Make a batch file: ExecuteServerVBS.bat

C:windowssysWOW64cscript.exe C:pathoyourvbscript.vbs

Put your vbscript code here:

vbscript.vbs

Set ie = CreateObject("InternetExplorer.Application")
'Go crazy 

And BOOM. You're done.

UPDATE

update the file ExecuteServerVBS.vbs

@echo off
C:WindowssysWOW64cscript.exe C:UsersAdminRunInternetProcessvbscript.vbs > errorlog.log

update the file vbscript.vbs

On Error Resume Next
Dim ie 
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
'Perform IE functions here......
If err.number <> 0 then wscript.echo err.number & ":" & err.description