Index: IINT.mac.rou =================================================================== diff -u -r60822 -r74593 --- IINT.mac.rou (.../IINT.mac.rou) (revision 60822) +++ IINT.mac.rou (.../IINT.mac.rou) (revision 74593) @@ -58,7 +58,7 @@ ZetIctGebruikerViaIP New GebruikerInitialen,GebruikerID Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke()) - Set GebruikerInitialen = ##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP($$GetClientIP^vhLib) + Set GebruikerInitialen = ##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP($$GetClientIP^vhLib,,NBN) Set GebruikerID = $$GeefUserIDViaInitialen^vhUSER(GebruikerInitialen) Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID("4682||"_GebruikerID) Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AdminSessie_"_$Job) @@ -110,15 +110,16 @@ D BX^cQ13 I $D(^cLOG(boot,"LOGIN",io)) H:'^(io) S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K - new TerminalNavigatieService,ComputerNaam + new TerminalNavigatieService,ComputerNaam,Usernaam Set TerminalNavigatieService=##class(APPS.CHUI.TerminalNavigatieService).%New() + Set Usernaam = "" Set ComputerNaam=##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam(0) - if TerminalNavigatieService.HeeftTaak(ComputerNaam) { - Do TerminalNavigatieService.VoerTaakUit(ComputerNaam) + Set Usernaam=##class(APPS.CHUI.NativeCommandoService).%New().ReflectionRDPUserName() + if TerminalNavigatieService.HeeftTaak(ComputerNaam,Usernaam) { + Do TerminalNavigatieService.VoerTaakUit(ComputerNaam,Usernaam) Quit } - 11 I $D(^cLOG(boot,"MODEM",io)),^(io,1) U 0:(:"S") F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q 12 I io>1!workst I '$G(^cLOG(boot,"TTT"),1) D G 33 . W !!?2,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,$P($T(@("T2"_QT)),";",4)