Index: BLDSYSLOG.mac.rou
===================================================================
diff -u -r926 -r1111
--- BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 926)
+++ BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 1111)
@@ -55,8 +55,8 @@
     Else  Do
   	. Set IP=CNaam
   	. Set CNaam=""
-  	Quit:IP=""
-	If (+$P(IP,".",1)'=192)||(+$P(IP,".",2)'=168) Quit ; Er wordt alleen gewerkt met 192.168.x.x
+  	;Quit:IP=""
+	;If (+$P(IP,".",1)'=192)||(+$P(IP,".",2)'=168) Quit ; Er wordt alleen gewerkt met 192.168.x.x
 	Set Device=$$CalcDeviceID(IP)	
 	Do RemQSYS(Device,CNaam,IP)
 	Do BldQSYS(Device,CNaam,IP)
@@ -77,7 +77,7 @@
 	. Set Basis=1000+(1000*$P(IP,".",3)/2)
 	. Set Device=Basis+$P(IP,".",4)
 	Else  Do  ; Get eerste vrije nummer van de 9000 reeks
-	. For Device=9000:1:9999 Quit:'$D(cQSYS(0,"DDB",Device))
+	. For Device=9000:1:9999 Quit:'$D(^cQSYS(0,"DDB",Device))
 	. If Device>9990 Do
 	. . Do CleanUp
 	. . Set Device=$$CalcDeviceID(IP)
@@ -103,6 +103,7 @@
  
  
 GetIP(Name,Ask)
+	Set Ask = 0  // hardcoded ask op false..
 	New Ok,FileName,IP
 	New flagRead Set flagRead=0 // flagRead wordt gebruikt om nslookup te parse
 	Set IP=""
@@ -124,7 +125,7 @@
 GetIPByPing(Name)
 	Set Exec="PING -a -n 1 "_Name_" > c:\"_FileName
 	s Ok=$ZF(-1,Exec)
-	Set FileName=$$READ^vhDEV("c:\",FileName,"D`CBGetIPLine^"_$ZN,"M")
+	Set FileName=$$READ^vhDEV("c:\",FileName,"D`CBGetIPLineFromPing^"_$ZN,"M")
 	Do DELFILE^vhDEV("c:\",FileName)
 	Quit IP
 	
@@ -144,6 +145,10 @@
 	;. Set IP=$P($P(Rec,"[",2),"]",1)
 	;Quit
 	; --- old : ping ipv nslookup
+CBGetIPLineFromPing(Rec)
+	If Rec?1.E1"["1.3N1"."1.3N1"."1.3N1"."1.3N1"]"1.E Do
+	. Set IP=$P($P(Rec,"[",2),"]",1)
+	Quit
 	
 BldLog(Device,boot,space,Pin)
 	Set ^cLOG(boot,"DEV",Device)="MC"