digilux.es

Hola:

El articulo de hoy es muy sencillo, se trata de un tipo de objeto muy potente que almacenará colecciones de pares de datos. Veremos como utilizarlo y posibles aplicaciones.

Los que tengais experiencia con perl, es parecido a un array asociativo, es decir asocia pares nombre-valor n veces. Es muy útil cuando estamos trabajando scripting, ya que para tareas repetitivas y no demasiado complejas, no es necesario utilizar una DB para almacenar los pares.
Read more…

Hola,

Hoy veremos un script muy sencillo escrito en VBS que consulta por WMI a un proceso. La lógica del script es muy sencilla y se puede adaptar a vuestras necesidades con pocas modificaciones.

 '################
' BindToProcessWmi.vbs
'
' Author: Roberto Clemente Bustamante - Digilux Admin Team
'################

'Declaración de variables y constantes
dim objfile
dim objdestination
dim strline

CONST WTER ="processCPUperc.txt"       'NOMBRE FICHERO PARA ESCRIBIR
'Inicializacion objeto FSO y fichero de log
set objfile = createobject("scripting.filesystemobject")
set objdestination = objfile.opentextfile(WTER,8,true)

'Recuperar procesos que estén en uso en la CPU

for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("Select name,PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where PercentProcessorTime > 0")' where IDProcess=" & strproc)

'Descarte del total y del no utilizado
if (process.name = "_Total" or process.name = "Idle") then
'Aqui se puede introducir código para cuando se cumpla la condicion
else
'Volcado al log
objdestination.writeline day(now)& "-" & month (now)& "-" & year(now)& ":" & Hour(now) & ":"& Minute(now) & " - " & process.name & " - %: " & process.percentprocessortime & " - ID:" & process.idprocess

end if

Read more…

¿Como puedo extraer información de un log demasiado grande para excel sin ninguna herramienta?

En muchas ocasiones, la respuesta sería, utiliza logparser! o… cargalo en una base de datos y luego ejecutas una query y sacas lo que necesites!!

¿y si no puedo?

Un administrador en una emergencia hay muchas veces que no tiene nada a mano en el host donde es necesario, y cualquier movimiento de un log de bastantes MB puede resultar bastante incomodo, sobre todo si hay lentitud en la red, reglas en los firewalls etc.

‘ExtractLines.vbs By Roberto Clemente Bustamante. Digilux Admins Team
dim objfile
dim objsource
dim objdestination
dim strline

CONST RDER =”ex040221.log” ‘NOMBRE FICHERO PARA LEER
CONST WTER =”resultados.txt” ‘NOMBRE FICHERO PARA ESCRIBIR
CONST SCODE =”SMTP” ‘CADENA DE TEXTO A EXTRAER

‘Option Compare Text

set objfile = createobject(“scripting.filesystemobject”)

set objsource = objfile.opentextfile(RDER,1)
set objdestination = objfile.opentextfile(WTER,2)

do until objsource.atendofstream

strline = trim (objsource.readline())

if (instr (1, strline , SCODE)) then

objdestination.writeline (strline)

end if

loop

set objsource = nothing
set objdestination = nothing
set objfile = nothing

Este es uno de mis scripts mas sencillos y útiles. Voy a explicaros los diferentes usos que yo personalmente le doy.

1.- Ejemplo de “Lector y escritor” :

Cuando estudias programación, el algoritmo del lector y el escritor te lo explican de forma teórica y se vé en algún ejemplo. Básicamente el script hace esto, lee de un origen, y escribe en un destino. Para reutilizar código, lo he utilizado cientos de veces. Un programador, además de programar, debe saber reciclar código, y este script lo he abierto centenares de veces como el típico ejemplo de lector y escritor

2.- Parser, extractor, reductor… :
Otro uso es, que como arriba están declaradas las constantes (fichero de entrada, fichero de salida y SCODE (Search code o código de busqueda) en menos de 2 minutos podemos preparar un script que hará el trabajo tedioso por nosotros. Por ejemplo, supongamos que hay un fichero con mas de 66000 lineas (mas que suficiente para “reventar” lo que te acepta el Excel y por lo tanto no poder utilizarlo) Pues bien, abrir el notepad con este archivo, según en qué servidor es tarea de alto riesgo, quiero decir, si estamos muy justitos, no podemos cargarlo en memoria si no queremos comprometer según qué máquina…

Pues bíen, ponemos el script, parametrizamos lo que queramos extraer, por ejemplo “error” o “warning” o la ip de ese host que sospechamos que puede no tener demasiadas buenas intenciones en el SCODE. El fichero de entrada de log y el nombre del fichero de salida. Comprobamos que al menos tengamos tanto espacio libre como ocupa el fichero original, ejecutamos, esperamos unos minutos y et voila! tenemos el fichero de resultados.

3.- Adaptalo a tus necesidades: Las posibilidades de adaptación de este script son fantásticas, por ejemplo, cambiando la condicional del strline y el orden de los bucles podemos reutilizarlo para extraer los comentarios de un fichero de configuración tipo main.cf (como los de postfix) que están repletos de comentarios y mas comentarios y no se sabe donde está la config y donde el comentario …

4.- ¿Que mas quieres? : En realidad, el script es bastante de perogrullo, y simplemente hay que tener algo de originalidad en su uso, pero os garantizo de que mi biblioteca particular es uno de esos pilares que siempre sabes que tienes a mano para casi cualquier cosa!!

Nota:

Por cierto, hice un copiar y pegar directamente desde esta página porque no tenia mi biblioteca a mano, y si os falla, es por las comillas, simples y dobles, que cuando las pega en el notepad las cambia por otras…. Recordad modificarlo, todo en el script que aparece con dobles comillas son dobles comillas (de las de mayusculas + 2) y todas las comillas simples, son comillas simples (de las de la derecha del 0)

Una de las cosas que siempre eché en falta en VBS fué que cuando seleccionaba un script, si le pulsaba al botón derecho buscando “ejecutar como” o “run as”, al tratarse de un fichero VBS no lo mostraba. ¿Queria esto decir que no podia ejecutar el script bajo unas credenciales diferentes?.

El caso es que no, en realidad el problema es que un script no es un ejecutable. En el caso de VBScript, en realidad lo que ocurre cuando hacemos doble click sobre el mismo, al estar la extension .vbs asociada al interprete (cscript o wscript) se llama al ejecutable y al usuario nos hace “transparente” la operacion, ya sabeis, los chicos de MS procuran siempre hacertelo cómodo,  aún cuando lo que consiguen es añadir una capa más a entender si quieres estar al tanto de qué está ocurriendo…

Bueno, la respuesta es sencilla ahora, ¿como ejecutamos un script bajo otras credenciales? Si abrimos una consola de comandos, podemos usar una sentencia de este tipo:

runas /profile /user:DOMINIO\USUARIO “cscript.exe c:\scripts\test.vbs”

esto funcionará, pero… hay otro problema, ¿que ocurre si hay espacios en la ruta? es decir, en el caso anterior, funciona porque no hay espacios en c:\scripts\test.vbs, pero y si fuera c:\mis scripts\test.vbs ? La respuesta es que fallaria.

Ahora explicaré algo sobre los carácteres de escape… bajo comando, debes escapar las comillas con \” , de esta forma, no lo considera el final del entrecomillado, es decir, para que el espacio sea considerado, puedes poner:

runas /profile /user:DOMINIO\USUARIO “cscript.exe \”c:\mis scripts\test.vbs”\”

De esta forma, considera un bloque la ruta al script, y otro bloque el comando cscript y la ruta como argumento.

Ahora que ya está explicado, voy a aprovechar para explicar como saber el dominio del usuario que está ejecutando el script con vbs. Lo primero, voy a explicar que es el RootDSE. A partir de LDAP 3.0 , rootdse es la raiz del arbol de directorio en un servidor de directorio LDAP, es decir, rootdse no es parte de ningun espacio de nombres, solo hace referencia a la raiz. En un directorio activo, por tanto, coincide en la mayoria de los casos con el nombre del directorio. Por ejemplo, si yo tengo un dominio miempresa.local , su DN (Distinguished Name) sería dc=miempresa,dc=local . Pues bién, esto coincide con el defaultNamingContext (atributo de rootDSE).

Explicado esto, este script nos dará el dato que necesitamos:

Set objRootDSE = GetObject(“LDAP://RootDSE“)
strDNSDomain = objRootDSE.Get(“defaultNamingContext”)

strdnsdomain = replace(strdnsdomain,”DC=”,”")
strdnsdomain = replace(strdnsdomain,”,”,”.”)

msgbox strdnsdomain

Ya sabeis, cualquier duda que surja, dejarla en comentarios y lo vemos!

Saludos,

Nota:

Por cierto, hice un copiar y pegar directamente desde la página porque no tenia mi biblioteca a mano, y si os falla, es por las comillas, simples y dobles, que cuando las pega en el notepad las cambia por otras…. Recordad modificarlo, todo en el script que aparece con dobles comillas son dobles comillas (de las de mayusculas + 2) y todas las comillas simples, son comillas simples (de las de la derecha del 0)