Hora del último encendido del computador

objWMI = GetObject("winmgmts:\\")

oSys = objWMI.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOS in oSys

    ?objOS.LastBootUpTime

Next

Utilizando WMI desde VFP para conocer la lista
de actualizaciones de Windows instaladas en el equipo.

objWMI = GetObject("winmgmts:\\")

oFixes = objWMI.ExecQuery("Select * from Win32_QuickFixEngineering")



For Each objFix in oFixes

    ? "Computador: " + objFix.CSName

    ? "Descripción: " + objFix.Description

    ? "Fix ID: " + objFix.HotFixID

    ? "Fecha de Instalación: " + objFix.InstallDate

    ? "Instalada por: " + objFix.InstalledBy

    ? "- - - - - - - -"

Next

Unidades de CD instaladas en el equipo

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_CDROMDrive"

oUnd = objWMI.ExecQuery(cCadWMI)



For Each objItem in oUnd

    ? "Unidad: " + objItem.Drive + " " + ;

        "Nombre: " + objItem.Caption

Next

Utilizando WMI desde VFP para obtener la
versión de un archivo ya sea este EXE, DLL,....Etc. En este caso queremos
conocer la versión del archivo Regedit.Exe

objWMI = GetObject("winmgmts:\\")

cCadWMI = "SELECT * FROM CIM_DataFile WHERE Name='c:\\windows\\regedit.exe'"

oFiles = objWMI.ExecQuery(cCadWMI)



For Each objFile in oFiles

? objFile.Version

Next

Utilizando WMI para obtener información acerca
de los servicios que han sido instalados en Windows.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * From Win32_Service"

oServ = objWMI.ExecQuery(cCadWMI)



For Each objServi in oServ

? objServi.Name + " " + objServi.StartName

Next

Conocer los productos de Microsoft
instalados...

objWMI = GetObject("winmgmts:\\")



lUsers = .T.

&& Determina si es instala para todo los usuarios



objSoft = objWMI.Get("Win32_Product")

errRet = objSoft.Install("c:\ruta\instalador.msi", , lUsers)

? errRet

Utilizar WMI para determinar si el SQL Server
esta instalado en el equipo; Cuando SQL Server se instala se inicia un servicio
de Windows llamado MSSQLServer y lo que se hace es buscar a ver si existe dicho
servicio.

objWMI = GetObject("winmgmts:\\")

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



oBServ = objWMI.ExecQuery(cCadWMI)



If oBServ.Count > 0 Then

    For Each objSer in oBServ

         ? "SQL Server is " +
objSer.State + "."

    Next

Else

    ? "SQL Server no esta instalado en este computador."

EndIf

Utilizando WMI para reiniciar el compuador.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_OperatingSystem"

oBServ = objWMI.ExecQuery(cCadWMI)



For Each Pc in oSys

    Pc.Reboot()

Next

Utilizando WMI para apagar un computador.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_OperatingSystem"

oBServ = objWMI.ExecQuery(cCadWMI)



For Each Pc in oSys

    Pc.Win32Shutdown(1)

Next

Esta es una forma de obtener los comandos que
se ejecutan cuando arranca Windows a través de WMI.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_StartupCommand"

oBPc = objWMI.ExecQuery(cCadWMI)



For Each Comand in oBPc

? "Commando: " + Comand.Command

? "Descripción: " + Comand.Description

? "Ruta: " + Comand.Location

? "Nombre: " + Comand.Name

? "Configuración ID: " + Comand.SettingID

? "User: " + Comand.User

? "- - - - - - "

Next

Excelente truco para crear un proceso con
prioridad alta utilizando WMI.

NORMAL = 32

BAJA = 64

ALTA = 128

ENCIMA_DE_NORMAL = 16384

DEBAJO_DE_NORMAL = 32768



intProcessID = 111

objWMI = GetObject("winmgmts:\\")

objStartup = objWMI.Get("Win32_ProcessStartup")



objConfig = objStartup.SpawnInstance_

objConfig.PriorityClass = ALTA

objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")

objProcess.Create("Notepad.exe", Null, objConfig, intProcessID)

Este truco es muy bueno porque con el podemos
modificar la prioridad de un proceso a través de WMI .... Con API no me
funcionaba bien...

NORMAL = 32

BAJA = 64

ALTA = 128

ENCIMA_DE_NORMAL = 16384

DEBAJO_DE_NORMAL = 32768





objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Process Where Name = 'Notepad.exe'"

oProc = objWMI.ExecQuery(cCadWMI)



For Each oProcess in oProc

oProcess.SetPriority(ENCIMA_DE_NORMAL)

Next

Utilizar WMI desde VFP para desinstalar una
aplicación.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Product Where Name = 'Nombre aplicacion'"

oColS = objWMI.ExecQuery(cCadWMI)



For Each oSoft in oColS

oSoft.Uninstall()

Next