Gente, eu preciso instalar o agente do ocs nas máquinas da rede, porém não estou conseguindo. Tenho um script que está abaixo:
On Error Resume Next
strComputer = "."
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set oEnv = oShell.Environment("PROCESS")
oEnv("SEE_MASK_NOZONECHECKS") = 1
programs = oShell.ExpandEnvironmentStrings("%ProgramFiles%")
programsx86 = programs & "(x86)\OCS Inventory Agent\OCSInventory.exe"
programsx64 = programs & "\OCS Inventory Agent\OCSInventory.exe"
If (NOT objFSO.FileExists (programsx86) and NOT objFSO.FileExists (programsx64)) then
'Chamada de sistema para instalação
oShell.Run "\\192.168.0.5\netlogon\OCS-NG-Agent-Setup.exe /NO_SYSTRAY /SERVER=http://192.168.0.8/ocsinventory /NP /NOSPLASH /S /TAG=" & WshNetwork.ComputerName & " /DEBUG /NOW" , 0, true
End If
oEnv.Remove("SEE_MASK_NOZONECHECKS")
Se eu executar esse script numa maquina da rede que estava logada com administrador, tranquilo! O agente é instalado sem problemas, mas não funciona com usuário comum do dominio. Então pesquisei e vi que é possível instalar programas com o comando "runas".
Mas até agora não consegui. Segue abaixo como deixei o script com o runas:
On Error Resume Next
strComputer = "."
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set oEnv = oShell.Environment("PROCESS")
oEnv("SEE_MASK_NOZONECHECKS") = 1
programs = oShell.ExpandEnvironmentStrings("%ProgramFiles%")
programsx86 = programs & "(x86)\OCS Inventory Agent\OCSInventory.exe"
programsx64 = programs & "\OCS Inventory Agent\OCSInventory.exe"
If (NOT objFSO.FileExists (programsx86) and NOT objFSO.FileExists (programsx64)) then
'Chamada de sistema para instalação
oShell.Run "runas /user:dominio\usuario_adm__do_dominio \\192.168.0.5\netlogon\OCS-NG-Agent-Setup.exe" /NO_SYSTRAY /SERVER=intranet/ocsinventory /NP /NOSPLASH /S /TAG=" & WshNetwork.ComputerName & " /DEBUG /NOW" , 0, true"
WScript.Sleep 100
oShell.Sendkeys "senha~"
End If
oEnv.Remove("SEE_MASK_NOZONECHECKS")
Já tentei de diversas formas, mas até agora nada.
