[Dolter]

А вот как можно такое в тройке сделать (с использованием того же MSWinsock.Winsock)

dim    winsock

dim bConnected
    bConnected=false

sub winsock_Connect
    bConnected=true
end sub

Set winsock=WScript.CreateObject("MSWinsock.Winsock")
WScript.ConnectObject winsock,"winsock_"
winsock.Connect "172.17.7.161", 6700

do while not (bConnected)
    WScript.Sleep 100
Loop

winsock.SendData "12"