Index: BLDSYSLOG.mac.rou
===================================================================
diff -u -r29059 -r74593
--- BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 29059)
+++ BLDSYSLOG.mac.rou	(.../BLDSYSLOG.mac.rou)	(revision 74593)
@@ -34,19 +34,17 @@
     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
     ; 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=$$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 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)
     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","WRO@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
+    ;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)
     
     If CNaam'?1.3N1"."1.3N1"."1.3N1"."1.3N Do
     . Set IP=$$GetIP(CNaam,1)