Entiendo que te sería suficiente con configurar ese usuario indicando a qué directorios puede acceder y cuales quedan restringidos (pestaña seguridad).
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
If Not IsNumeric(Label1) Then
Exit Sub
End If
Select Case CInt(Label1)
Case 10 To 20
Label1.BackColor = &HFFFFFF
Case 21 To 30
Label1.BackColor = &O0
'Case ...
'Case Else
End Select
exe = "app.exe" 'nombre del exe a comprobar
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set Proc = WMI.execquery("select * from win32_process", , 48)
For Each p2 In Proc
If LCase(p2.Name) = LCase(exe) Then
'en ejecución
wScript.Quit
End If
Next
'no está en ejecución
Set owsh = CreateObject("WScript.Shell")
owsh.Run exe '(indicar ruta completa si no está en el path del sistema)
Set owsh = Nothing