Título: Script inicio de sesion windows Publicado por: Guerrero en 17 Marzo 2020, 20:26 pm 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" |