Index: BLDSYSLOG.mac.rou
===================================================================
diff -u -r74620 -r74650
--- BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 74620)
+++ BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 74650)
@@ -31,18 +31,18 @@
 	New CNaam,IO,Device,Basis,Status,K
 	If $G(IONaam)="" Set IONaam=$I
     Quit:$E(IONaam,1,5)'="|TNT|"
-    Set CNaam=$ZCVT($P($E(IONaam,6,99),":",1),"U")
-    
-    if CNaam="LOCALHOST" Set CNaam=$ZU(110)
-    ;set CNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() ;is evt reeds intune intune werkstation naam
+    Set CNaam=$ZCVT($P($E(IONaam,6,99),":",1),"U") ; rechtstreeks connectie van een client pc (��n gebruiker)
+    if CNaam="LOCALHOST" Set CNaam=$ZU(110) ; het is vanop de server zelf
+    ;check op VDI server-> clientname op vragen
+    set:(IONaam [ ##class(TECH.Config.ConfigMgr).Instance().GetString("VDIServerPrefix","VDI-APPS")) CNaam=##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() ;is evt reeds intune intune werkstation naam
     ; de computer naam is gekend maar nakijken of het bijhorend IP-adres veranderd is
     If $D(^cQSYS(0,"FIXED","NBN",$P(CNaam,"."))) Do  Quit
-    . ;Set IP=$s((IONaam [ ##class(TECH.Config.ConfigMgr).Instance().GetString("VDIServerPrefix","VDI-APPS")) :"",1:$$GetIP(CNaam,1)) ; geen ipaddres indien we over VDI komen
-    . Set IP=$$GetIP(CNaam,1)
+    . Set IP=$s((IONaam [ ##class(TECH.Config.ConfigMgr).Instance().GetString("VDIServerPrefix","VDI-APPS")) :"",1:$$GetIP(CNaam,1)) ; geen ipaddres indien we over VDI komen
+    . ;Set IP=$$GetIP(CNaam,1)
     . Set Device=^cQSYS(0,"FIXED","NBN",$P(CNaam,"."))
     . Do:$L(Device) RemQSYS(Device,CNaam,IP)
 	. Do:$L(Device) BldQSYS(Device,CNaam,IP)
-	; de computer naam is niet gekend, maar wel het IP-adres (VPN gebruikers)
+	; de computer naam is niet gekend, maar wel het IP-adres (VPN gebruikers ?)
     Quit:$D(^cQSYS(0,"FIXED","IP",CNaam))
     ; de computer naam of IPadres is niet gekend
     ;Set Status=$$SendMiniMail^vhLib(##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE",$LB("PV@VANHOECKE.BE","ict_meldingen@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
@@ -72,7 +72,7 @@
 	Else  If $P(IP,".",3)=0 Do  ; Device afhankelijk van het IPAdres - subnet 192.168.0.x
 	. Set Basis=1500
 	. Set Device=Basis+$P(IP,".",4)
-	Else  If $P(IP,".",3)'>16 Do  ; Device afhankelijk van het IPAdres - subnet 192.168.N.x met N van 2 tem 15
+	Else  If ($L(IP) && ($P(IP,".",3)'>16)) Do  ; Device afhankelijk van het IPAdres - subnet 192.168.N.x met N van 2 tem 15 (en het is niet leeg)
 	. Set Basis=1000+(1000*$P(IP,".",3)/2)
 	. Set Device=Basis+$P(IP,".",4)
 	Else  Do  ; Get eerste vrije nummer van de 9000 reeks