Contact Info

Crumbtrail

ActiveXperts.com » Administration » Scripts » WMI » vbscript sample

MSiSCSI vbscript sample code

The foundations for Manageability in Windows is Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).

ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself. The MSiSCSI WMI class can be used in ActiveXperts Network Monitor to monitor your servers.


Sample Code

Set objWMIService = GetObject("winmgmts:\\.\root\WMI")

Set colItems = objWMIService.ExecQuery("Select * From MSiSCSI_HBAInformation")

For Each objItem in colItems
	WScript.Echo "Active:" & objItem.Active
	WScript.Echo "AsicVersion:" & objItem.AsicVersion
	WScript.Echo "BiDiScsiCommands:" & objItem.BiDiScsiCommands
	WScript.Echo "CacheValid:" & objItem.CacheValid
	WScript.Echo "DriverName:" & objItem.DriverName
	WScript.Echo "FirmwareVersion:" & objItem.FirmwareVersion
	WScript.Echo "FunctionalitySupported:" & objItem.FunctionalitySupported
	WScript.Echo "GenerationalGuid:" & Join(objItem.GenerationalGuid)
	WScript.Echo "InstanceName:" & objItem.InstanceName
	WScript.Echo "IntegratedTCPIP:" & objItem.IntegratedTCPIP
	WScript.Echo "MaxCDBLength:" & objItem.MaxCDBLength
	WScript.Echo "MultifunctionDevice:" & objItem.MultifunctionDevice
	WScript.Echo "NumberOfPorts:" & objItem.NumberOfPorts
	WScript.Echo "OptionRomVersion:" & objItem.OptionRomVersion
	WScript.Echo "RequiresBinaryIpAddresses:" & objItem.RequiresBinaryIpAddresses
	WScript.Echo "SerialNumber:" & objItem.SerialNumber
	WScript.Echo "Status:" & objItem.Status
	WScript.Echo "UniqueAdapterId:" & objItem.UniqueAdapterId
	WScript.Echo "VendorID:" & objItem.VendorID
	WScript.Echo "VendorModel:" & objItem.VendorModel
	WScript.Echo "VendorVersion:" & objItem.VendorVersion
	WScript.Echo "VersionMax:" & objItem.VersionMax
	WScript.Echo "VersionMin:" & objItem.VersionMin
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""
Next