Install Certificate Using Certutil.exe

email me

Option Explicit

‘On Error Resume Next

Dim objWshShell

Dim strCmd, strSupportDir,progfiles,certloc,strCmd1,systemdrv,oWs

Set objWshShell = CreateObject(“WScript.Shell”)
systemdrv = objWshShell.ExpandEnvironmentStrings(“%SystemDrive%”)

strSupportDir = systemdrv & “\Windows\SysWOW64\”

progfiles = objWshShell.ExpandEnvironmentStrings(“%ProgramFiles%”)

certloc = progfiles & “\Juniper Networks\Network Connect 6.3.0\Certificate Files\”

strCmd = strSupportDir & “certutil.exe -addstore Root ” & Chr(34) & certloc & “Juniper Netwrok adapters.cer” & Chr(34)

strCmd1 = strSupportDir & “certutil.exe -addstore TrustedPublisher ” & Chr(34) & certloc & “Juniper Netwrok adapters.cer” & Chr(34)

objWshShell.Run strCmd, 0, True

objWshShell.Run strCmd1, 0, True
Set objWshShell = Nothing