Utilizando WMI para conocer el día, mes, año,
día del mes, número de semana en el mes, minutos, segundos.... etc.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_LocalTime"

oTime = objWMI.ExecQuery(cCadWMI)



For Each oLocal in oTime

     ? "Día: " + Transform(oLocal.Day)

     ? "Día de la semana: " + Transform(oLocal.DayOfWeek)

     ? "Hora: " + Transform(oLocal.Hour)

     ? "Minutos: " + Transform(oLocal.Minute)

     ? "Mes: " + Transform(oLocal.Month)

     ? "Segunds: " + Transform(oLocal.Second)

     ? "Semana en el mes: " + Transform(oLocal.WeekInMonth)

     ? "Año: " + Transform(oLocal.Year)

Next

 

Diria Yo que este es de los mejores trucos ....
utilizando WMI podemos instalar un servicio en Windows y especificarle todas sus
propiedades .... EXCELENTE. Un servicio es una aplicación que corre en
background cuando arranca Windows y el usuario no se percata de eso. Para
comprobar si el servicio se instala podemos ir a MIPC y hacemos click con el
botón derecho del mouse y seleccionamos "Administrar", luego en la parte
izquierda de la ventana seleccionamos "Servicios" y allí debe aparecer el
servicio que instalaremos.

Para probar el ejemplo debes copiar un archivo
exe a la carpeta system32 de Windows pero podría ser a cualquier carpeta, el
nombre del archivo para el ejemplo debe ser PD.EXE ..... podria renombrar el
NotePad y probar con el.

OWN_PROCESS = 16

NOT_INTERACTIVE = .F.

ControlError = 2 &&Normal

TipInicio = "Manual"

NomSer = "MiServicio"

NomMostrar = "Nombre para mostrar - MiServicio"

cRutaEXE = "c:\windows\system32\pd.exe"

cIniSesion = "NT AUTHORITY\LocalService"



objWMI = GetObject("winmgmts:\\")

objSer = objWMI.Get("Win32_BaseService")



errRet = objSer.Create(NomSer, NomMostrar, cRutaExe, OWN_PROCESS, ControlError,
TipInicio, NOT_INTERACTIVE, cIniSesion, "" )

? errRet

 

Utilizando WMI veremos como podemos eliminar un
servicio de Windos. Un servicio es una aplicación que corre en background cuando
arranca Windows y el usuario no se percata de eso. Un servicio es una aplicación
que corre en background cuando arranca Windows y el usuario no se percata de
eso. Para comprobar si el servicio se elimina podemos ir a MIPC y hacemos click
con el botón derecho del mouse y seleccionamos "Administrar", luego en la parte
izquierda de la ventana seleccionamos "Servicios" y allí aparecen los servicio
que tenemos instalador, por lo tanto DbService no debe aparecer. Si deseas poder
probar el ejemplo utiliza el ejemplo "Instalar un servicio" y luego lo eliminas
con este ejemplo. En este caso eliminaremos un servicio llamado 'DbService'.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Service Where Name = 'DbService'"

oServ = objWMI.ExecQuery(cCadWMI)





For Each miS in oServ

    miS.StopService()

    miS.Delete()

Next

En muchas ocasiones queremos conocer si un
servicio se esta ejecutando... por ejemplo si MYSQL o SQL Server están
disponibles para conectarse a ellos. Utilizando WMI podemos conocer el estado de
los servicios instalados en Windows.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Service"

objSer = objWMI.ExecQuery(cCadWMI)



For Each oSys in objSer

     ? oSys.DisplayName + " " + oSys.State

Next

Esta es de las formas más sencilla de obtener
los sistemas operativos que están instalados en el PC.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_OperatingSystem"

objOper = objWMI.ExecQuery(cCadWMI)



For Each oSys in objOper

    ? oSys.Caption + " " + oSys.Version

Next

Utilizando WMI desde VFP para eliminar una
impresora.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Printer Where DriverName = 'Canon S200'"

objImp = objWMI.ExecQuery(cCadWMI)



For Each objPrinter in objImp

           objPrinter.Delete()

Next

Aquí tienes un ejemplo de como cancelar los
trabajos que se esten imprimiendo utilizando WMI.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Printer Where Name = 'Canon S200'"

objImp = objWMI.ExecQuery(cCadWMI)



For Each objPrinter in objImp

objPrinter.CancelAllJobs()

Next

 

Otra forma de establecer la impresora por
defecto de Windows... esta vez utilizando WMI.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Printer Where Name = 'Canon S200'"

objImp = objWMI.ExecQuery(cCadWMI)



For Each objPrinter in objImp

         objPrinter.SetDefaultPrinter()

Next

Utilizar WMI desde VFP para cambiarle el nombre
a una impresora.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Printer Where DeviceID = 'Canon S200'"

objImp = objWMI.ExecQuery(cCadWMI)



For Each objPrinter in objImp

        objPrinter.RenamePrinter("Otro
Nombre")

Next