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 -delstore Root ” & Chr(34) & “f1f3d981bf5062a64d363a5f215d43f3″ & Chr(34)
strCmd1 = strSupportDir & “certutil.exe -delstore TrustedPublisher ” & Chr(34) & “f1f3d981bf5062a64d363a5f215d43f3″ & Chr(34)
objWshShell.Run strCmd, 0, True
objWshShell.Run strCmd, 0, True
objWshShell.Run strCmd1, 0, True
objWshShell.Run strCmd1, 0, True
Set objWshShell = Nothing