Archive

Posts Tagged ‘Visual Basic Scripting’

Colecciones VBS, Ejemplos de diccionarios para scripting

August 18th, 2009 Roberto Clemente 1 comment

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…

Listar propiedades de un proceso o servicio de sistema operativo

July 31st, 2009 Roberto Clemente 2 comments

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…

Hello World ! Hola Mundo !

March 30th, 2009 Roberto Clemente 2 comments

Hola Mundo!

Esta es la frase con la que la gran mayoria de programadores comienzan a aprender un lenguaje de programación. Como soy nuevo por aquí, me gustó la idea de comenzar con un “Hola Digilux Readers ! ” y presentarme a todos vosotros con este artículo.

Rubén me ha propuesto que escriba desde Digilux.es , lo que para mi es un honor y en breve trataré de aportar mi granito de arena a este web. Y como no me gustan nada los artículos sin contenido, aprovecho y explico algunas de las formas para mostrar un mensaje de “Hola Digilux Readers!” en Visual Basic Script (VBS)

Const C_MENSAJE = “Hola Digilux Readers!!”
dim STR_tumensaje

msgbox C_MENSAJE
wscript.echo C_MENSAJE
STR_tumensaje = inputbox (“Ahora Mete tu el mensaje”,”Tu Mensaje”,”Aqui tu mensaje…”)
msgbox STR_tumensaje

Para ejecutarlo solo guardad el contenido de la caja de texto en un bloc de notas, y acordaros de guardarlo con extensión VBS para que lo identifique como un script.

Como habreis observado, y a modo de resumen:

msgbox -> Muestra el contenido de un string (Sea constante o variable)
wscript.echo -> Muestra el contenido de un string (Sea constante o variable)
inputbox (texto1,texto2,texto3) -> permite entrada de datos por parte del usuario, y se almacenan de su retorno.

A buen programador, pocas palabras bastan, pero, si necesitais entender algo de este sencillo script, no dudeis en “disparar” un comentario, que os aclararemos las dudas que puedan surgir

¿Hay alguna mejor manera que presentarme por script?