Function WMI

[vince76000]

Sorry for my english, I'm french

I don't know if this function already exits but i created one :

Func WMI($strComputer,$Query)

    Dim $objLocator =  ObjCreate("WbemScripting.SWbemLocator")
    dim $objService = $objLocator.ConnectServer($strComputer, "root\cimv2")
    Dim $Jobs = $objService.ExecQuery($Query)
    return $Jobs
EndFunc

An example for use it :

This script send you all services names in a remote computer :

Dim $Service
Dim $string = ""
Dim  $table = WMI("127.0.0.1","SELECT * FROM Win32_Service")



For $Service in $table
     $string = $string & " " & $Service.Name
Next
 
MsgBox(0, "Name: ", $string)
 
 
 
 
Func WMI($strComputer,$Query)
    

    Dim $objLocator =  ObjCreate("WbemScripting.SWbemLocator")
    dim $objService = $objLocator.ConnectServer($strComputer, "root\cimv2")
    Dim $table = $objService.ExecQuery($Query)
    
    return $table
    
EndFunc

regards

Vincent Lassauce

Edited August 12, 2006 by vince76000

[vince76000]

ALL CLASSES :

http://www.dx21.com/SCRIPTING/WMI/classes.asp

Microsoft Link :

http://msdn.microsoft.com/library/default....hrough_wmi_.asp

[Klaatu]

You pass $strComputer into your function, but then immediately set it to ".", which I believe is the current computer. So your function, given any remote computer name, would only return data from the current computer.

Did you actually try getting data from a remote computer with this function, as written here?

[vince76000]

Did you actually try getting data from a remote computer with this function, as written here?

you are right, that does not function

I go found as to make my function and I go updated my message as fast as possible

Sorry

[GaryFrost]

Suggest looking for Scriptomatic in this forum

[olivertwistcoder]

I worked a little around this code and made this finally :

#Include <date.au3>
#include <file.au3>

$log = FileOpen("softwarelist.txt", 2)
FileWrite($log, "================================================" & @CRLF)
FileWrite($log, "Software List " & @YEAR & "/" & @MON & "/" & @MDAY & " - at " & @HOUR & ":" & @MIN  & ":" & @SEC & @CRLF)
FileWrite($log, "================================================" & @CRLF & @CRLF)
FileWrite($log, "------------------------------------------------------------------------------")

Dim $Product
Dim $string = ""
Dim $table = WMI("127.0.0.1","SELECT * FROM Win32_Product")

For $Product in $table
    $string = $string & @CRLF & "Description. " & $Product.Description & @CRLF & "Ver. " & $Product.Version & @CRLF & "Vendor. "  & $Product.Vendor & @CRLF & "------------------------------------------------------------------------------"
Next
FileWrite($log, $string)

FileWrite($log, @CRLF & @CRLF & "================================================" & @CRLF & "End of all treatments." & @CRLF & "================================================")
FileClose($log)

Func WMI($strComputer,$Query)
    Dim $objLocator =  ObjCreate("WbemScripting.SWbemLocator")
    dim $objService = $objLocator.ConnectServer($strComputer, "root\cimv2")
    Dim $table = $objService.ExecQuery($Query)
    return $table
EndFunc

The includes were to add some requests to ini files in a first time. As date include.

Anyway, the primary code was great. I just added some work around.

[weaponx]

Don't open old topics for no reason! AutoIt Scriptomatic generates WMI scripts for you.

Edited August 7, 2008 by weaponx

[GEOSoft]

Don't open old topics for no reason! AutoIt Scriptomatic generates WMI scripts for you.

Not to mention that it would be better if the function was

Func WMI($Query, $strComputer = "localhost" )

There is also a link to the compiled version of ScriptoMatic in my sig.

[spudw2k]

Don't open old topics for no reason! AutoIt Scriptomatic generates WMI scripts for you.

Just 'cause he created a script that does something that has been coded before (and it's not as robust) doen't mean he's opening an old topic; it's just his version of a UDF to perform WMI queries. I have done the same thing in my time and will post the code here when/if I find it.

edit:

By far - inferior to the scripto tool, but I like hands on.

http://www.autoitscript.com/forum/index.ph...st&p=389577

Edited August 7, 2008 by spudw2k

[weaponx]

Just 'cause he created a script that does something that has been coded before (and it's not as robust) doen't mean he's opening an old topic; it's just his version of a UDF to perform WMI queries. I have done the same thing in my time and will post the code here when/if I find it.

A quick search for Win32_Product reveals this has been covered many times.