From 558785ec45f86c748800e443741e513ffa3ca0ac Mon Sep 17 00:00:00 2001
From: fcolin
Date: Thu, 1 Feb 2007 13:15:08 +0000
Subject:  Utilisateur : Fcolin       Date : 18/04/03   Heure : 15:43 Archivé
 dans $/Bus/comIvy Commentaire: ajout GetDomain (vss 2)

---
 comIvy/ivyscript.vbs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'comIvy')

diff --git a/comIvy/ivyscript.vbs b/comIvy/ivyscript.vbs
index be16094..3d81256 100644
--- a/comIvy/ivyscript.vbs
+++ b/comIvy/ivyscript.vbs
@@ -9,9 +9,10 @@ dim bus,all_message,pp,count
 
 set bus = WScript.CreateObject("comIvy.Bus", "bus_")
 
-'WScript.Echo " bus type " & TypeName(bus)
+WScript.Echo " bus type " & TypeName(bus)
 
 bus.Create "IvyScript", "IvyScript Ready"
+WScript.Echo " bus domain " & bus.GetDomain()
 
 set all_message= bus.Bind( "(.*)")
 
@@ -49,6 +50,8 @@ end sub
 '--------------------------------------------
 sub all_Received(name,args)
 	dim i,argc,argv
+	WScript.Echo " args type " & TypeName(args)
+
     argc = UBound(args) - LBound(args) + 1
 	argv = " args: "
 	for i = LBound(args) to UBound(args) 
-- 
cgit v1.1