Очистить SSL государство с помощью VBScript

голоса
4

В рамках моего проекта я должен автоматизировать веб-приложение, работающее по безопасному сокетов. Так что я должен очистить 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)

Просто обновить сейчас я очищая состояние Ssl с помощью SendKeys,

Sub ClearSSLState()
' Macro1 Macro
Dim oShell
Set oShell = CreateObject(Wscript.Shell)
oShell.Run (cmd)
Application.Wait DateAdd(s, 1, Now)
oShell.AppActivate C:\SYSROOT\system32\cmd.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:\SYSROOT\system32\cmd.exe
oShell.SendKeys exit
oShell.SendKeys {enter}

End Sub

Был бы очень признателен, если кто-то пожалуйста предложить любой вариант, чтобы очистить состояние SSL, а также с помощью VBScript.

Большое спасибо :)

Задан 05/11/2012 в 14:03
источник пользователем
На других языках...                            


1 ответов

голоса
4

Когда инструментирование действия панели управления с Process Monitor (отличной утилитой, BTW), это выглядит как следующая команда выполняется , когда Clear SSL государство нажимается кнопка:

"C:\Windows\system32\rundll32.exe" "C:\Windows\system32\WININET.dll",DispatchAPICall 3
Ответил 15/11/2012 в 13:09
источник пользователем

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more