'*** Set the value of ChassisIntrusionStatus to'5'
'***("Clear")
'***Set the new value for the property and save the
instance
objInstance.Properties_.Item(strPropName).Value = 5
objInstance.Put_
'*** If any errors occurred, let the user know.
If Err.Number <> 0
Then WScript.Echo "Clearing Chassis Intrusion Status
failed."
End If
'*** Sub used to display the correct usage of the
'***script
Sub Usage()
Dim strMessage
strMessage = "incorrect syntax. You should run: " &
vbCRLF & _ "cscript.exe /nologo
SampleChassisIntrusionClear.vbs <systemname>"
WScript.Echo strMessage
End Sub
Disable Desktop Messages for All Alerts
Below is a sample VBScript that will disable the message box that is displayed
on the desktop if an alert condition is detected.
Namespace: root\DellOMCI
Class Name: Dell_IndicationStaticValues
'
'
Instance
Key
Value: Not Applicable to this example
Property Name: MaxDisplayNotifications
Property Value: 0
'****************************************************
'*** Name: SampleDisableAlertMessages.vbs
51
Sample Scripts and BIOS Settings