Remote Information Collector

[mdwerne]

@SkinnyWG

I'm trying to add in OSArchitecture as a plugin but get limited results. If I do my local machine either by localhost or regular IP it seems to work, if I do another machine on my subnet it seems to work. Beyond that my OSArch results are blank (all other fields are completely populated).

This is what I added to Plugin.au3, do you see any obvious errors/omissions?

://////=__=/,/:,,,,,

AddPlugin("OSArch", "OSArch_", "root\CIMV2", "SELECT OSArchitecture FROM Win32_OperatingSystem WHERE __CLASS = 'Win32_OperatingSystem'")

#Region OSArch
Func OSArch_OnObjectReady($objWbemObject, $objWbemAsyncContext)
    Output($objWbemAsyncContext.Item("Computer" ).Value, "OSArch", $objWbemObject.OSArchitecture)
EndFunc   ;==>OSArch_OnObjectReady
Func OSArch_OnCompleted($iHResult, $objErrorObject, $objWbemAsyncContext)
    Plugin_Finished()
EndFunc   ;==>OSArch_OnCompleted
#EndRegion OSArch

Thanks for the effort on your part, I am using your script primarily for returning SAV/SEP versions and it has been a huge help!

-Mike

Edited May 6, 2009 by mdwerne

[SkinnyWhiteGuy]

I tested your code, and it should work, but I have some bad news. According to this web page, OSArchitecture is only available from Vista machines. He shows a way to use the registry to retrieve the architecture via the registry.

[UEZ]

I tested your code, and it should work, but I have some bad news. According to this web page, OSArchitecture is only available from Vista machines. He shows a way to use the registry to retrieve the architecture via the registry.

I'm using this routine in SIC2 to get the information of a system whether it is a 32 or 64 bit system:

...
    $colItems2 = $objWMIService.ExecQuery("SELECT AddressWidth From Win32_Processor", "WQL", 0x30)
    If IsObj($colItems2) Then
        For $objItem In $colItems2
            $OS_Bit = $objItem.AddressWidth & "-bit"
        Next
    EndIf
...

UEZ

Edited May 6, 2009 by UEZ

[mdwerne]

I'm using this routine in SIC2 to get the information of a system whether it is a 32 or 64 bit system:

...
    $colItems2 = $objWMIService.ExecQuery("SELECT AddressWidth From Win32_Processor", "WQL", 0x30)
    If IsObj($colItems2) Then
        For $objItem In $colItems2
            $OS_Bit = $objItem.AddressWidth & "-bit"
        Next
    EndIf
...

UEZ

Thanks for the information SkinnyWG...kind of a bummer that it's not supported under XP. :-(

But hey! Another method by UEZ! I will see if I can incorporate it, thanks for the tip!!!

-Mike

[mdwerne]

SkinnyWG,

I've run into a few situations where scanning a whole subnet results in 250+ offline machines. What I think the problem is is that I'm running the scan from a machine in New Mexico against a subnet in California. Because the connection between these two sites can be a bit latent, I think the ping is just not coming back in a timely manor.

So my question, short of running the script from a machine closer to the others (the same subnet), how can I modify RIC to allow for a much longer ping return?

Just to cover the basics, I am an admin on all the boxes and WMI seems to be working just fine.

Thanks for any suggestions,

-Mike

P.S. I looked this line and could not figure the answer on my own.

$objWMIService.ExecQueryAsync($PING_SINK, "SELECT * FROM Win32_PingStatus WHERE Address = '" & _Top2() & "'")

Edited July 22, 2009 by mdwerne

[SkinnyWhiteGuy]

Without testing it, I believe it should look like this:

$objWMIService.ExecQueryAsync($PING_SINK, "SELECT * FROM Win32_PingStatus WHERE Address = '" & _Top2() & "' AND Timeout = 3000")

The 3000 should be 3 seconds, so adjust accordingly. That might be another place to adjust some variables, or have subsequent pings take a little longer, from a selectable minimum to a selectable maximum.

[JackieMcGee]

Hi there,

Sorry, I get the following errors when running this, any ideas???

RIC.au3(204,29) : WARNING: $LVN_BEGINLABELEDIT: possibly used before declaration.

Case $LVN_BEGINLABELEDIT,

RIC.au3(127,36) : ERROR: AdlibEnable(): undefined function.

AdlibEnable("Cleanup_Threads", 1000)

RIC.au3 (127) : ==> Unknown function name.:

AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

[KaFu]

The script has been created with an older version of AutoIt.

"possibly used before declaration." => Search AutoIt Include directory for include name containing this constant and add to top of script.

"AdlibEnable()" is now AdlibRegister()

[LurchMan]

This might help you with your AD function:

#include <ADfunctions.au3>
#include <array.au3>
Global $aXPComputers, $aAllComputers
$sOU = $strDNSDomain
_ADGetObjectsInOU($aXPComputers,$sOU,"(&(&(&(&(&(objectCategory=Computer)(operatingSystem=Windows XP Professional))))))",2,"name") ;Returns All XP Computers in AD
_ADGetObjectsInOU($aAllComputers,$sOU,"(&(&(&(&(&(objectCategory=Computer))))))",2,"name") ;Returns All Computers in AD
_ArraySort ($aXPComputers)
_ArraySort ($aAllComputers)
_ArrayDisplay ($aXPComputers)
_ArrayDisplay ($aAllComputers)

I use this code in a few of my scripts that do updates and such (I'm a hardware tech also..)

[mdwerne]

Hi there,

Sorry, I get the following errors when running this, any ideas???

RIC.au3(204,29) : WARNING: $LVN_BEGINLABELEDIT: possibly used before declaration.

Case $LVN_BEGINLABELEDIT,

RIC.au3(127,36) : ERROR: AdlibEnable(): undefined function.

AdlibEnable("Cleanup_Threads", 1000)

RIC.au3 (127) : ==> Unknown function name.:

AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

With the recent changes to AutoIt you need to make a few changes in the RIC code to get it going again.

As KaFu mentioned, search for and replace AdLibEnable with AdLibRegister in RIC.au3

Also in RIC.au3, add the following to the declared Globals:

Global $LVN_BEGINLABELEDIT, $LVN_ENDLABELEDIT, $LVN_BEGINLABELEDIT

In Watcher.au3 comment out the following two lines, seems they are now declared by AutoIt. The values are a bit different, but it doesn't seem to affect the function of the script.

;Global const $PROCESS_VM_READ = 0x10
;Global const $PROCESS_QUERY_INFORMATION = 0x400

Hope this helps,

-Mike

Edited July 23, 2010 by mdwerne

[ngocs2tron]

i having 1 error in Ric.au3:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Admin\Desktop\RIC\RIC.au3"

C:\Documents and Settings\Admin\Desktop\RIC\RIC.au3 (127) : ==> Unknown function name.:

AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

[BrewManNH]

i having 1 error in Ric.au3:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Admin\Desktop\RIC\RIC.au3"

C:\Documents and Settings\Admin\Desktop\RIC\RIC.au3 (127) : ==> Unknown function name.:

AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

You need to learn how to read, look up at the post just above yours for the EXACT SAME ERROR you just posted about.

[Marcodl]

i'm working on a little monitoring tool, that check the state of my server ( CPU load, free ram, services, etc etc ... )

working well, but it's too slow to view the result.

then i found your tool, and working like a charm. ExecqueryAsync is wonderfull.

I only modify the WMI query to add my counter.

I have only one question. It's possible to send to listview subitem the data collected plus a bitmap ?

Hope this 2 screen explain what i need.

thx

1. With your script

2. With my script

[Malik140786]

Have tried your script but giving me a error-AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

have tried so many things to fetch installed software list from remote pc's but i am not able to find out the solution pls help me

Thanks

Malik

[BrewManNH]

Have tried your script but giving me a error-AdlibEnable("Cleanup_Threads", 1000)

^ ERROR

have tried so many things to fetch installed software list from remote pc's but i am not able to find out the solution pls help me

Thanks

Malik

Change any occurence of AdLibEnable/AdLibDisable, to AdLibRegister/AdLibUnregister. AdLibEnable was removed since this script was originally written.