Prezados,
Estou tentando fazer esse script com runas funcionar mas aparece uma mensagem de erro que não consegui lê. Quando executo sem runas no usuário com perfil de administrador ele executa normalmente, ou então com runas quando coloco o arquivo VBS em um diretório
do computador local ao invés do da rede.
Peço gentilmente a ajuda de vocês
rem on error resume next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
objNetwork.MapNetworkDrive "Y:","\\10.71.0.5\Scripts\Instalação"
Wscript.sleep 1500
WshShell.Run ("runas /env /user:fulanodetal@dominio ""Y:\Instalar_Programas_Pdfsam.Vbs""")
Wscript.sleep 600
WshShell.SendKeys "@sxpdkjfkjk~"
objNetwork.RemoveNetworkDrive "Y:", True, True
Wscript.quit
