1 Тема от nostro

  • nostro
  • Участник
  • Неактивен

Тема: VBScript: Использование в скрипте STARTTLS

Кто-либо знает, как в VBScript`е использовать STARTTLS? А то на локальном почтовом сервере авторизация идет через 25й порт с использованием STARTTLS...

2 Ответ от Xameleon

  • Xameleon
  • Разработчик
  • Неактивен

Re: VBScript: Использование в скрипте STARTTLS

На сколько я понял это консольное приложение для работы по протоколу TLS. К сожалению (а может и к счастью ) не приходилось с ним работать, но предполагаю, что начать нужно с WshExec и выяснить поддерживает ли это приложение работу со стандартными потоками StdIn и StdOut. Т.к найти модуль этого приложения я сам не смог, то провести эксперимент соответственно тоже.

Предположительно копать нужно в аналогичном направлении.


Option Explicit
Dim WshShell, WshExec
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd.exe")
WshExec.StdIn.WriteLine "ping 127.0.0.1"
WshExec.Terminate()
MsgBox ConvertCharset(WshExec.StdOut.ReadAll,"windows-1251","cp866")

Function ConvertCharset(text,srcCharset,destCharset)
	Dim stream
	Set stream = CreateObject("ADODB.Stream")
	stream.charset = srcCharset
	stream.type = 2
	stream.open
	stream.writeText text
	stream.position = 0
	stream.charset = destCharset
	ConvertCharset = stream.readText
End Function
Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !