Submitted By: Mitch Reid

Resets the chassis intrusion on a Dell computer. Requires the Dell OMCI (Open Manage Client Instrumentation) WMI provider.

Visual Basic
Edit|Remove
'Reset Intruder Chassis Alert - Tested on Dell Optiplex desktops with Dell OMCI 7.0 installed
'Modified from WOL script.

Set wShell=CreateObject("Wscript.Shell")

'*** Initialize variables
strNameSpace    = "root/Dellomci"
strComputerName = wShell.ExpandEnvironmentStrings("%computername%")
strClassName    = "Dell_SMBIOSSettings"
strKeyValue     = "0"
strPropName     = "ChassisIntrusionStatus"

'*** Retrieve the instance of Dell_SMBIOSSettings class
Set objInstance = GetObject("WinMgmts:{impersonationLevel=impersonate}//" & _
	strComputerName & "/" & strNameSpace & ":" & strClassName & "=" & _
	Chr(34) & strKeyValue & Chr(34))
strPropValue = objInstance.Properties_.Item(strPropName).Value

' 1 = Other
' 2 = Unsupported
' 3 = Detected
' 4 = Not Detected
' 5 = Clear it

If strPropValue = 3 Then  'Only clear it if Intrusion was detected
  objInstance.Properties_.Item(strPropName).Value = 5
  objInstance.Put_
End If