Client Management Suite

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 2.1.0.2 SDK\Lib\X86\capicom.dll"

set CSTOREFILE="C:\Program Files\Microsoft CAPICOM 2.1.0.2 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")

objShell.run "C:\path to file.bat"

WScript.Quit

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

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).
Example
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.
Thanks
Sid

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

'-------------------------------------------------- 
'GET CURRENT FOLDER PATH
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)
Else
       	'WRITE EXIT CODE TO EVENTLOG
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.
Thanks,
Eshwar

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.
Cheers'
Vijay

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 ?
Thanks,
Paolo

For the Run method:
shell.run "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 = shell.run("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.

Nice code.....It really hepls ....
Thanks
Prasanna Kumar Raja
Sr.Application Packager
Anovatek