proquibas

#############################################################################
# PowerShell para extraer información de Active Directory.		    #
# Se crea directorio C:\FSO y los outputs se guardan en outcommand.txt	    #
# Informacion que extrae:						    #
#	>Numero total de usuarios					    #
#	>Numero total de maquinas					    #
#	>Numero total de servidores					    #
#	>Numero total de administradores del dominio			    #
#	>Lista de GPO's activas en el Dominio				    #
#############################################################################

proquibas

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Asunto del MAIL" 
objMessage.From = "MAIL del Remitente"
objMessage.To = "maildestino@mail.com" 
objMessage.TextBody = "Cuerpo del mail." 
objMessage.AddAttachment "RUTA DE UN FICHERO ADJUNTO"

 
'En este apartado solo hay que cambiar el nomre/IP del servidor de correo.
 objMessage.Configuration.Fields.Item _

proquibas

'################
'Creamos los datos de acceso para los servidores
'################
strUser = ""
strPassword = ""

'sHost = "."

'################
'Abrimos la lista de ordenadores

proquibas

set objShell = wscript.createObject("wscript.shell")
'guardamos la salida del status de los colectores de windows con query en un txt
iReturn = objShell.Run("CMD /C logman.exe query > C:\out.txt", , True)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile("C:\out.txt", 1, False)
'abrimos y leemos el fichero txt con el resultadoDo Until objReadFile.AtEndOfStream     
strLine = objReadFile.ReadLine    
'si encuentra el nombre del contador, verificamos si en la misma linea pone stopped     
If instr(strLine, "Nombre_Colector") Then              
if instr(strLine, "Stopped") then'en tal caso, hacemos un start del colector          

proquibas

i = wscript.arguments.count
'Se definen las variables de entrada
object = ""
counter = ""
instance = ""
warn = ""
critical = ""
outformat = ""
'Se introducen los datos que se recogen en las variables
for x=0 to i-1