Index: vhLock.mac.rou
===================================================================
diff -u -r59916 -r74150
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 59916)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 74150)
@@ -104,15 +104,29 @@
  Quit
 
 GebruikerInfoJob(Job)
- New ClientInfo, Process, User, Info
+ New ClientInfo, Process, User, Info, VarResultset, sc, AdminUser
  Set ClientInfo = ""
+ Set AdminUser = ""
  Set Process = ##class(%SYS.ProcessQuery).%OpenId(Job) 
  If ($IsObject(Process)){
-	 Set ClientInfo = $Piece(Process.ClientNodeName,"/")
-	 If ('$Length(ClientInfo)) Set ClientInfo = Process.ClientIPAddress		
-	 set ClientInfo = ClientInfo _ $$$IfLength(Process.ClientExecutableName," ","")
+	try {
+		set VarResultset = ##class(%ResultSet).%New("%SYS.ProcessQuery:VariableByPid")
+		set sc = VarResultset.Execute(Job)
+		while(VarResultset.Next()) {
+			Set:(VarResultset.GetDataByName("Name")="QU") AdminUser = VarResultset.GetDataByName("Value")
+	 	}
+ 	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	Set ClientInfo = $Piece(Process.ClientNodeName,"/")
+	If ('$Length(ClientInfo)) Set ClientInfo = Process.ClientIPAddress		
+	set ClientInfo = ClientInfo _ $$$IfLength(Process.ClientExecutableName," ","")
  }
- Set Info = "(Process "_Job
+ Set Info = "("
+ If $$$HasLength(AdminUser) {
+	 Set Info = Info _ "Admin gebruiker " _ AdminUser _", "
+ }
+ Set Info = Info _ "Process "_Job
  If ($Length(ClientInfo)>0){
 	 Set Info = Info_ " op "_ClientInfo_")"
  }Else{