Mensajes

Buenas tardes amigos espero que puedan ayudar con este tema, les comente que tengo un programa que hice, pero lo que requiero es que cuando un usuario inicie sesión en el equipo le oculte todo lo del escritorio y la barra de inicio de windows y solo le abra ese programa he estado investigando algo y encontré un pero no se que estoy haciendo mal ya que cuando entro en el sistema operativo solo aparece la pantalla de windows y a los 3 segundo se cierra sesión y no paso de hay en el equipo que quiero colocar esto es una PC Local no esta en Dominio ni en Red, les comparto lo que tengo en mi script espero que puedan ayudarme estoy desesperado:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN

    Select Case strGroupName
        Case "Usuarios avanzados"
            strComputer = "."
         Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
         errResult = objWMIService.Create("index.exe C:\route\index.hta", "C:\route\", null, intPosID)
         Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
         Set colProcesses = objWMIService.ExecNotificationQuery ("Select * From __InstanceDeletionEvent " & "Within 1 Where TargetInstance ISA 'Win32_Process'")
         Do Until False = True
            Set objProcess = colProcesses.NextEvent
            If objProcess.TargetInstance.ProcessID = intPosID Then
               Exit Do
            End If
         Loop
      
   End Select
Next
Set wshShell = WScript.CreateObject ("WSCript.shell")
wshshell.run "shutdown -l"