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