Como proceso de validación de la distribución de un agente o aplicación pueden usar este script.

Por un lado podrían distribuir el cliente de un antivirus por política GPO pero hay maquinas que no toman las políticas este script es una buena forma de identificarlos.

creando un .msi pequeño y aplicarlo a una OU. y con este script en el momento del logon chequean si el ejecutable existe.

de no existir será registrado el nombre de la maquina en un txt.

***************************************************************************************
‘Determina si tiene o no Agente Altiris
‘Obtener Nombre del equipo
Dim WshNetwork2
Set WshNetwork2 = WScript.CreateObject("WScript.Network")
‘WScript.Echo "You Computer Name = " & WshNetwork2.ComputerName
Dim oShell2
Dim oProcEnv2
Dim sProgramFiles2
Set oShell2 = CreateObject("WScript.Shell")
Set oProcEnv2 = oShell2.Environment("PROCESS")
sProgramFiles2 = oProcEnv2("ProgramFiles")
If sProgramFiles2 = "" Then
  sProgramFiles2 = oShell2.RegRead _
     ("HKLMSOFTWAREMicrosoftWindowsCurrentVersionProgramFilesDir")
End If
‘WScript.Echo sProgramFiles2
‘Revisión de Agente Santuary
‘Ruta Agente Lumension SecuritySantuaryClientscomc.exe
‘Dim objFSO2
‘Dim objFolder2
‘Dim objTextFile2
‘Set objFSO2 = CreateObject("Scripting.FileSystemObject")
‘If objFSO2.FileExists(sProgramFiles2 & "Lumension SecuritySantuaryClientscomc.exe") Then
‘    ‘Set objFolder2 = objFSO2.GetFile(sProgramFiles2 & "Lumension SecuritySantuaryClientscomc.exe")
‘    ‘Wscript.Echo "Si Tiene Altiris"
‘    ‘wscript.echo objFolder2
‘Else
‘    ‘Wscript.Echo "No tiene Altiris"
‘    ‘Graba en log
‘    Const ForAppending1 = 8
‘    Set objFSO2 = CreateObject("Scripting.FileSystemObject")
‘    Set objTextFile2 = objFSO2.OpenTextFile _
‘        ("\10.140.128.25logslog_altiris.txt", ForAppending1, True)
‘    objTextFile2.WriteLine(WshNetwork2.ComputerName &" "& Date)
‘    objTextFile2.Close
‘
‘End If
WSCript.Quit