ssl client

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

ssl client

Logged in as: Guest

arrSession:exec spGetSession 2,2,60285

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> ssl client
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

ssl client - 5/16/2008 1:29:00 AM

vincentt

Posts: 8
Score: 0
Joined: 5/13/2008
Status: offline

Hello all,

is possible to do a script in vbs for "ssl client"? Something like that, but without chilkat?
I need to connect to the server throught ssl, send some data like ascii or bin, receive some answer, send other data end receive answer and disconnect.

Does anyone idea?
Thanks
set socket = CreateObject("Chilkat.Socket")

success = socket.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
MsgBox "Failed to unlock component"
WScript.Quit
End If

ssl = 1
maxWaitMillisec = 20000

' The SSL server hostname may be an IP address, a domain name,
' or "localhost". You'll need to change this:

sslServerHost = "123.123.88.88"
sslServerPort = 8123

' Connect to the SSL server:
success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec)
If (success <> 1) Then
MsgBox socket.LastErrorText
WScript.Quit
End If

' Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs = 20000
socket.MaxSendIdleMs = 20000

' Send a "Hello Server! -EOM-" message:
success = socket.SendString("Hello Server! -EOM-")
If (success <> 1) Then
MsgBox socket.LastErrorText
WScript.Quit
End If

' The server (in this example) is going to send a "Hello Client! -EOM-"
' message. Read it:

receivedMsg = socket.ReceiveUntilMatch("-EOM-")
If (receivedMsg = vbNullString ) Then
MsgBox socket.LastErrorText
WScript.Quit
End If

' Close the connection with the server
' Wait a max of 20 seconds (20000 millsec)
socket.Close 20000

MsgBox receivedMsg