Index: APPS/CHUI/TerminalNavigatieService.cls.xml =================================================================== diff -u -r74620 -r74650 --- APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 74620) +++ APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 74650) @@ -123,7 +123,6 @@ Set ComputerNaam = ComputerNaam _ "%" if ..GebruikerLookup.BestaatGebruiker(UserName) { #dim GebruikerID as %String = ..GebruikerLookup.GeefGebruikerId(UserName) - Do ##class(Tools.Wlip).%New(207).String("GeefTaak obv " _ComputerNaam _","_GebruikerID) #dim rsTaak As %ResultSet = $$ExecDynQuery^vhLib.Query("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE (ComputerNaam like 'VDI-RDS%' or Computernaam like 'VDI-APP%' or computernaam like ? )and GebruikerID = ?",$lb(ComputerNaam,GebruikerID)) } else { Set rsTaak = $$ExecDynQuery^vhLib.Query("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam like ?",$lb(ComputerNaam)) Index: APPS/CHUI/NativeCommandoService.cls.xml =================================================================== diff -u -r74620 -r74650 --- APPS/CHUI/NativeCommandoService.cls.xml (.../NativeCommandoService.cls.xml) (revision 74620) +++ APPS/CHUI/NativeCommandoService.cls.xml (.../NativeCommandoService.cls.xml) (revision 74650) @@ -108,17 +108,14 @@ If $$$Not($$$HasLength(Antwoord)){ Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPClientName", "VBA code en/of events (RDPClientName) waarschijnlijk out of date voor reflection of timeout ("_$io_")") ;Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")") - Do ##class(Tools.Wlip).%New(207).String("Reflection terminal emulatie : VBA code en/of events out of date voor reflection ("_$io_")") } - Do ##class(Tools.Wlip).%New(207).String("ReflectionRDPClientName vanop " _Antwoord_ "(" _ $io _ ")") Quit Antwoord ]]> %String @@ -152,10 +147,7 @@ If $$$Not($$$HasLength(Antwoord)){ Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionComputerName","VBA code en/of events (ComputerName) out of date voor reflection of timeout ("_$io_")") ;Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (ReflectionComputerName) out of date voor reflection ("_$io_")") - Do ##class(Tools.Wlip).%New(207).String("Reflection terminal emulatie : VBA code en/of events out of date voor reflection ("_$io_")") } - Do ##class(Tools.Wlip).%New(207).String("ReflectionComputerName " _Antwoord_ "(" _ $io _ ")") - Quit Antwoord ]]> 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 Index: cQZSTART.mac.rou =================================================================== diff -u -r74620 -r74650 --- cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 74620) +++ cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 74650) @@ -164,7 +164,7 @@ I IP'="?",$D(^cQSYS(CFG,"FIXED","IP",IP)) S P=^(IP) I $$PV(P),$D(^cLOG($ZU(5),"CHARWIN","INIT",P)) S K=P G IOSY S (NBN,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN"))=$$NBN(I) S (MAC,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","MAC"))=$$MAC(I) - S ORDER="IP\NBN",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J + S ORDER="NBN\IP",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J F J=1:1:$L(ORDER,"\") S L=$P(ORDER,"\",J) D I OK=1 Q . I $L(@L),@L'="?",$D(^cQSYS(CFG,"FIXED",L,@L)) S K=^(@L),OK=1 I 'OK,I?1.N S K=I @@ -203,7 +203,7 @@ NBN(I) N DDB,JOB,K,R,%v S I=$G(I,$I) S:I="" I=$I S JOB=$$ZJOB(I) I JOB,$D(^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN")),^("NBN")'="??" Q ^("NBN") - ;Q ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() + Q ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() S K=$ZU(67,12,$J) S:K["/" K=$P(K,"/") I $L(K),K?.ANP Set K = $ZCVT($Piece(K,".",1),"U") Q K S K=$$CLN() S:'$L(K) K=$$CNN() I $L(K) Q K S K=$P($P(I,":"),"|",3) S:K["~" K=$P(K,"~",2) I $L(K),K'?3(1.3N1".")1.3N Q $ZSTRIP($ZCONVERT($P(K,"."),"U"),"*C")