Contact Info

Crumbtrail » Administration » Scripts » WMI » vbscript sample

MSStorageDriver 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 MSStorageDriver 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 MSStorageDriver_ATAPISmartData")

For Each objItem in colItems
	WScript.Echo "Active:" & objItem.Active
	WScript.Echo "Checksum:" & objItem.Checksum
	WScript.Echo "ErrorLogCapability:" & objItem.ErrorLogCapability
	WScript.Echo "ExtendedPollTimeInMinutes:" & objItem.ExtendedPollTimeInMinutes
	WScript.Echo "InstanceName:" & objItem.InstanceName
	WScript.Echo "Length:" & objItem.Length
	WScript.Echo "OfflineCollectCapability:" & objItem.OfflineCollectCapability
	WScript.Echo "OfflineCollectionStatus:" & objItem.OfflineCollectionStatus
	WScript.Echo "Reserved:" & Join(objItem.Reserved)
	WScript.Echo "SelfTestStatus:" & objItem.SelfTestStatus
	WScript.Echo "ShortPollTimeInMinutes:" & objItem.ShortPollTimeInMinutes
	WScript.Echo "SmartCapability:" & objItem.SmartCapability
	WScript.Echo "TotalTime:" & objItem.TotalTime
	WScript.Echo "VendorSpecific:" & Join(objItem.VendorSpecific)
	WScript.Echo "VendorSpecific2:" & objItem.VendorSpecific2
	WScript.Echo "VendorSpecific3:" & objItem.VendorSpecific3
	WScript.Echo "VendorSpecific4:" & Join(objItem.VendorSpecific4)
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""