Video Screencast Help
Endpoint Management Community Blog

Calling a Batch File Through VB Script

Created: 14 Apr 2008 • Updated: 14 Apr 2008 • 8 comments
TilakGovind's picture
0 0 Votes
Login to vote

There would be some situations where we need to call Batch file from Scripts. Here the script to call INSTALL.bat

  1. Copy the below code to Notepad.
    Function Tilak()
    dim shell
    set shell=createobject("") "INSTALL.bat"
    set shell=nothing
    End Function
  2. Save the file as .VBS
  3. Then use this VBscript in Wise Package Studio's CustomActions pane.

Comments 8 CommentsJump to latest comment


Nice code.....It really hepls ....

Prasanna Kumar Raja
Sr.Application Packager

Prasanna Kumar Raja
Sr.Application Packager

Login to vote
Kinetic's picture

For the Run method: "INSTALL.bat"

It's good to trap any potential errors into a variable and to tell the method not to execute the next line until the current process is complete.

errTrap ="INSTALL.BAT", 1, True)

This will return any error codes into errTrap. From there you can log the error or act on it accordingly in the script.

"True" tells wscript/cscript to "Wait until this command is complete before running the next line." The "1" is just the window style. Not that important.

Whenever you are returning values you have to put the arguments into parenthesis.

Login to vote
Eshwar's picture

Whenever we are executing vbscripts using Altiris, it is a best practice to return Exit Codes/Return Codes to the Altiris. Following is the template that not only return an Exit code but also writes to the Event Log.

Note: Place the executable and script in one place

path = FileSystemObject.GetParentFolderName(WScript.ScriptFullName)
If Right(path, 1) <> "\" Then path = path & "\"
End If

errTrap = shell.Run(path, 1 ,True)

If (errTrap = 0) Or (errTrap = 3010) Then
	'WRITE EXIT CODE [0-success/3010-success&requires reboot] TO EVENTLOG
	shell.LogEvent vbLogSuccess, sLogHeader & "Installation completed successfully." & VbCrLf & "Exit code: " & errTrap
	WScript.Quit (errTrap)



shell.LogEvent vbLogError, sLogHeader & "Installation failed." & VbCrLf & "Exit code: " & errTrap 
       	WScript.Quit (errTrap)

End If

Set FileSystemObject = Nothing
Set Shell = Nothing

I hope this may help.




Login to vote
Sidd's picture

One needs to define sLogHeader variable so that the hedder of the event log will written with this name, befor the following line in the above script
(shell.LogEvent vbLogSuccess, sLogHeader & "Installation completed successfully." & VbCrLf & "Exit code: " & errTrap).

sLogHeader = "Install batch file"

Preferably sLogHeader name should be task name that you are running so that it will be essy identify in event log.

I hope this may help.


Login to vote
riva11's picture

I found really helpful your tip, just a question about the command line :
[quote]set shell=nothing[/quote]
What is the meaning for this line in this case ?


Login to vote
R-Vijay's picture

Its just to clear the cache memory which is being used by the variable shell. It frees the memory once the script completes its execution.


Microsoft MVP [Setup-Deploy]

Login to vote
TilakGovind's picture

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\Batch Files\syncfiles.bat" & Chr(34), 0
Set WshShell = Nothing yes

Cheers Tillu

Login to vote
Juun's picture

I am trying to package a .p12 certificate.I tried to use capicom.dll and wrote the batch file.Called the batch file using the vbs u have given. But the certificate is not appearing in the certificate manager. I also tried using another vbs which installs the certificate to the certificate manager,but gives error 1720 at end of installation.Any suggestions where im goin wrong?

.bat file:

@echo off

echo Importing digital licence...

rem Define the file locations as environment variables

set DLLFILE="C:\Program Files\Microsoft CAPICOM SDK\Lib\X86\capicom.dll"

set CSTOREFILE="C:\Program Files\Microsoft CAPICOM SDK\Samples\vbs\CStore.vbs"

set CERTFILE="C:\Users\User\AppData\Local\Temp\MNPCertificate\Cert.p12"

set CERTPASS=****

rem Import the Cert.p12 certificate with the supplied password

cscript /nologo %CSTOREFILE% import %CERTFILE% %CERTPASS%

.vbs to call .bat from custom action:

Option Explicit

Dim objShell

Set objShell = CreateObject("WScript.Shell") "C:\path to file.bat"


Login to vote