Navigation:  thinBasic Modules > WMI >

WMI_GetData

Previous pageReturn to chapter overviewNext page

 

Description

 

General function to return all possible info about a WMI class name for a given computer.

 

Syntax

 

sBuffer = WMI_GetData(sComputername, sNameSpace, sUserName, sPassword, sClassName [, sWhere [, sFields]])

 

Returns

 

String

sBuffer is a sequence of $CRLF separated strings containing info name and value.

To be able to parse returned information, see below example.

 

Parameters

 

Name

Type

Optional

Meaning

sKey

String

No

Computer name

sNameSpace

String

No

name of the namespace that provides support for the needed class

sUserName

String

No

in case of remote login. Better to specify it in the form "domain\user"

sPassword

String

No

if sUserName is specified, enter here user password

sClassName

String

No

Class name. See WMI class names list for the list of available classes

sWhere

String

Yes

WHERE clause. This field is used to Indicate some selection restrictions.

Example:

"DeviceID = 'C:'"

 

sFields

String

Yes

String containing the names of the information to be returned. More info names can be indicated separated by a comma (,).

Example:

"Name, Size"

 

 

Remarks

 

Not all classes can be available.

 

Restrictions

 

See also

 

Examples

 

Uses "WMI""OS"

Uses "CONSOLE"

 

Dim vData()       As String

Dim nItems        As Long

Dim Counter       As Long

Dim ComputerName  As String = OS_GetComputerName

Dim sBuffer       As String

 

'--- Ask data to WMI system

sBuffer = WMI_GetData(ComputerName, """""""CIM_LogicalDisk""DeviceID = 'C:'" )

 

 

'--- Other possible examples

'sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_StartupCommand", "", "Command" )

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_LogicalDisk", "DeviceID = 'C:'", "Name, Size" )

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_Battery")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_LogicalDisk")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_NetworkAdapter")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_StartupCommand")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_Processor")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_DiskDrive")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_BIOS")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_CodecFile")

'sBuffer = WMI_GetData(ComputerName, "", "", "", "CIM_LogicalDisk")

                                                                    

' -- Parse returned data into single lines

nItems = Parse( sBuffer, vData(), $CRLF

 

'---Print lines                           

For Counter = 1 To nItems                 

  Printl vData(Counter)        

Next                                     

 

'---Finished                              

Printl "-----------------------------------------------------"

Printl "Number of lines: " & nItems                           

Printl "---------------------------Press a key to finish-----"   

 

WaitKey