使用VBScript清除SSL状态

Question

作为项目的一部分，我必须自动在安全套接字层上运行的Web应用程序。因此，如果某些帐户无法正常工作，则必须在注销后清除SSL状态，缓存，使用VBScript浏览历史记录。到目前为止，我已经写下了遵循代码的书面代码。

ieObj.document.execCommand ("ClearAuthenticationCache")
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
 objFSO.DeleteFile (objFolder.Self.Path & "*.*")
 ieObj.Quit
 Set ieObj = Nothing
 Application.Wait DateAdd("s", 2, Now)

只是为了更新，我正在使用sendkeys清除SSL状态，

Sub ClearSSLState()
' Macro1 Macro
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
oShell.Run ("cmd")
Application.Wait DateAdd("s", 1, Now)
oShell.AppActivate "C:SYSROOTsystem32cmd.exe"
Application.Wait DateAdd("s", 1, Now)
oShell.SendKeys "inetcpl.cpl"
oShell.SendKeys "{enter}"
oShell.AppActivate "Internet Properties"
Application.Wait DateAdd("s", 1, Now)
oShell.SendKeys "^{TAB 3}"
oShell.SendKeys "{Tab}"
oShell.SendKeys "{enter}"
oShell.SendKeys "{enter}"
oShell.SendKeys "{Tab 6}"
oShell.SendKeys "{enter}"
Application.Wait DateAdd("s", 1, Now)
oShell.AppActivate "C:SYSROOTsystem32cmd.exe"
oShell.SendKeys "exit"
oShell.SendKeys "{enter}"
End Sub

真的很感激，如果有人建议使用VBScript清除SSL状态的任何选择。

非常感谢：）

Answer 1

在使用过程监视器（一个很棒的实用程序，顺便说一句）来启动控制面板操作时，当 clear ssl state state 按钮是按：

"C:Windowssystem32rundll32.exe" "C:Windowssystem32WININET.dll",DispatchAPICall 3