may someone help me

i just wanna do simple code via vb6 to test ssh connection what i mean it is like i have server for ex. user test pass test

i wanna check if the server able to establish ssh connection? if yes write 1 if not write 0 on flat file as .txt

1 means online
0 means offline

note: no ping or nslookup as they're disabled for security purpose by admin.