Unable to est SFTP Connection

Using VBScript Sample I am able to establish a SSH connection but when it tries the CreateSFTPConnection it produces a Object required: error. i have traced the line in the Sample to

Dim objSFTP
Set objSFTP = objSFTP.CreateSFTPConnection()

Log file is
[20100210 13:15:36] SmartFTP FTP Library 2.0.47.1
[20100210 13:15:36] Resolving host name "69.84.134.29"
[20100210 13:15:36] Connecting to 69.84.134.29 Port: 33
[20100210 13:15:36] SSH-2.0-1.36_sshlib GlobalSCAPE
[20100210 13:15:36] Starting SSH session. Remote Id: "SSH-2.0-1.36_sshlib GlobalSCAPE"
[20100210 13:15:36] SSH protocol version reply. Client Id: "SSH-2.0-SmartFTP"
[20100210 13:15:36] Key Exchange Algorithm: diffie-hellman-group-exchange-sha1
[20100210 13:15:36] Key exchange completed.
[20100210 13:15:36] Host Key Algorithm: ssh-dss
[20100210 13:15:36] Client to Server Encryption: aes128-cbc
[20100210 13:15:36] Server to Client Encryption: aes128-cbc
[20100210 13:15:36] Session MAC: hmac-sha1
[20100210 13:15:36] Client to Server Compression: zlib
[20100210 13:15:36] Server to Client Compression: zlib
[20100210 13:15:36] Requesting service "ssh-userauth".
[20100210 13:15:37] RTT: 194.991 ms
[20100210 13:15:37] Authentication request. Method: "password"
[20100210 13:15:37] User authentication successful.
[20100210 13:15:37] SSH session established.
[20100210 13:15:37] Connected to 69.84.134.29.
[20100210 13:15:37] Detected Server Software: Unknown

I will take a look at it asap. Thanks for reporting.

Please replace:
Dim objSFTP
Set objSFTP = objSFTP.CreateSFTPConnection()


with:
Dim objSFTP
Set objSFTP = obj.CreateSFTPConnection()

That worked. Probably should have figured that out myself actually. Thank you.