import socket
host, port = '127.0.0.1',  1434 
s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2.connect((host,  1433 ))
s1.bind((host, port))
s1.listen( 1 )
cn, addr = s1.accept()
i =  0 
while  1 :
    i +=  1                 ## i - счетчик шагов
    if  4  <= i <=  6 :
        data = ' 2\u'
        s2.send(data)     ## форсируем ложный ответ от VBS
        ## сам VBS упорно молчит
        print 'VB_SCRIPT[manually]:', data
    else:
        data = cn.recv( 4096 )
        if not data: break
        s2.send(data)
        print 'VB_SCRIPT:', data
    data = s2.recv( 4096 )
    if not data: break
    cn.send(data)
    print 'SQL_SERVER:', data
cn.close()
s1.close()
s2.close()

Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Provider=sqloledb;Data Source=127.0.0.1,1434;" & _
"Network Library=DBMSSOCN;Initial Catalog=pubs;" & _
"User ID=qwe;Password=asdasd;"
cn.Execute _
"select 'XXXXXXXXXXXX';" & _
"waitfor delay '00:00:03'; raiserror ('AAA',10,1) with nowait;" & _
"waitfor delay '00:00:03'; raiserror ('BBB',10,1) with nowait;" & _
"waitfor delay '00:00:03'; raiserror ('CCC',10,1) with nowait;" & _
"waitfor delay '00:00:03'; select 'YYYYYYYYYYYY';"
Set rs = cn.Execute _
("waitfor delay '00:00:03'; select 'ZZZZZZZZZZZZ';")
a = rs( 0 )
cn.Close: Set rs = Nothing: Set cn = Nothing
MsgBox a

VB_SCRIPT:
        p      	Sыя    а €яяя  V  X  ^  j ! ¬      И 
 Т   Т  DEST  Ъ  0    Z q w e іҐ’ҐгҐіҐ’ҐгҐM i c r o s o f t   ( r )   
W i n d o w s   S c r i p t   H o s t  1   2   7  .  0  .  0  .  1  ,  1   4   3   4  O L E
 D B p u b s NTLMSSP    ‚                       0         0 

SQL_SERVER:
~    г p u b s m a s t e r «T E   # C h a n g e d   
d a t a b a s e   c o n t e x t   t o   ' p u b s ' . Z    г 
u s _ e n g l i s h  «\ G   ' C h a n g e d   l a n g u a g e   s e t 
t i n g   t o   u s _ e n g l i s h '. Z    г c p  1   2   5   1    г 
 1   0   3   3   г  1   9   6   6   0   9   ­ 6     M i c r o s o f t   S Q L   S e r v
 e r      oг  4   0   9   6   4   0   9   6  э        

VB_SCRIPT:
Z   s e l e c t    5   0   4  , c . n a m e , c . d e f i n i t i o n   
f r o m   m a s t e r . d b o . s y s c h a r s e t s   c , 
m a s t e r . d b o . s y s c h a r s e t s   c  1  , m a s t e r . d b o
.s y s c o n f i g u r e s   f   w h e r e   f . c o n f i g =  1   1   2   3    
a n d   f . v a l u e = c  1  . i d   a n d   c  1  . c s i d = c . i d   

SQL_SERVER:
    Ѓ      8    з n a m e    "яяя  d e f i n i t i o n Сш   
c p 1 2 5 1 8ЪЉXяяяяяяяяяяя8ЪЉXяяя           
      		    
                       
       !!  "" ## $$@ %%  &&  '' ((  )) **  ++  ,,  --  ..  //
 00  11  22  33  44  55  66  77  88  99 ::  ;;  
<<  ==  >>  ??  @@
AaBbCcDdEeFfGgHhIiJjKkLlMmNn
OoPpQqRrSsTtUuVvWwXxYyZz 
[[  \\  ]]  ^^  __ `` AaBbCcDdEeFfGgHhIiJj
KkLlMmNnOoPpQqRrSsTtUuVv
WwXxYyZz{{  ||  }}  ~~ ЂђЃѓ‚‚ Ѓѓ„„ …… 
†† ‡‡ €€ ‰‰ Љљ‹‹ ЊњЌќЋћЏџЂђ‘‘ ’’ ““
 ”” •• –– —— ˜˜ ™™ Љљ›› ЊњЌќЋћЏџ  
ЎўЎўЈј¤¤@ Ґґ¦¦ §§ Ёё©© Єє««
 ¬¬ ­­ ®® Її°° ±± ІіІіҐґµµ ¶¶ ·· Ёё№№ 
Єє»» ЈјЅѕЅѕЇїАаБбВвГгДдЕе
ЖжЗзИиЙйКкЛлМмНнОоПпРрСсТт
УуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮю
ЯяАаБбВвГгДдЕеЖжЗзИиЙйКкЛл
МмНнОоПпРрСсТтУуФфХхЦцЧчШ
шЩщЪъЫыЬьЭэЮюЯя  Ђ 
 01230120022455012623010202    01230120022455012623010202  э Б 

VB_SCRIPT:
   s e l e c t   ' X X X X X X X X X X X X ' ; w a i t f o r   
d e l a y   ' 0 0 : 0 0 : 0 3 ' ;   r a i s e r r o r   ( ' A A A '
 ,  1   0  ,  1  )   w i t h   n o w a i t ; w a i t f o r   d e l a y   
' 0 0 : 0 0 : 0 3 ' ;   r a i s e r r o r   ( ' B B B ' ,  1   0  ,  1  )
   w i t h   n o w a i t ; w a i t f o r   d e l a y   ' 0 0 : 0 0 
: 0 3 ' ;   r a i s e r r o r   ( ' C C C ' ,  1   0  ,  1  )   w i t h  
 n o w a i t ; w a i t f o r   d e l a y   ' 0 0 : 0 0 : 0 3 ' ;   
s e l e c t   ' Y Y Y Y Y Y Y Y Y Y Y Y ' ; 

SQL_SERVER:
  T    Ѓ     §  С XXXXXXXXXXXXэ Б    э у     « PГ    A A A 
Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
   1     э у     « PГ    B B B Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
   1     э у     « PГ    C C C Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
  4     э у     Ѓ     §  С YYYYYYYYYYYYэ Б    

VB_SCRIPT:
 h   w a i t f o r   d e l a y   ' 0 0 : 0 0 : 0 3 ' ;
s e l e c t  ' Z Z Z Z Z Z Z Z Z Z Z Z ' ; 

SQL_SERVER:
  4     э у     Ѓ     §  С ZZZZZZZZZZZZэ Б    

Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Provider=sqloledb;Data Source=127.0.0.1,1434;" & _
"Network Library=DBMSSOCN;Initial Catalog=pubs;" & _
"User ID=qwe;Password=asdasd;"

cn.Execute "select * from authors;"
cn.Execute "select * from publishers;" & _
"select * from ABRACADABRA;" & _
"select 'THATSALLTHATSALLTHATSALLTHATSALL'"
cn.Close
Set cn = Nothing

import socket, thread
host, port = '127.0.0.1',  1434 
s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2.connect((host,  1433 ))
s1.bind((host, port))
s1.listen( 1 )
cn, addr = s1.accept()

def VB_SCRIPT():
    while  1 :
        data = cn.recv( 4096 )
        if not data: return
        s2.send(data)
        print 'VB_SCRIPT:' + data

def SQL_SERVER():
    while  1 :
        data = s2.recv( 4096 )
        if not data: return
        cn.send(data)
        print 'SQL_SERVER:' + data

thread.start_new_thread(VB_SCRIPT,())
thread.start_new_thread(SQL_SERVER,())