gdurocher333
Posts: 5
Score: 0
Joined: 9/20/2006
Status: offline
|
to acknowledge chassis intrusion:
'==========================================================================
'
'
' DATE : 11/11/2005
'
' This script can be used to set the Chassis Intrusion Status.
' The Varibles below can be adjusted for the desired values. However, Chassis Intrusion Status should only
' be cleared or set to a value of 5. All other values are not user setable.
'
' sChassisIntrusionStatusValue is set to a value of 5 to clear
' Values:
' 2 unsupported
' 3 Detected. A values of 3 generates the alert.
' 4 Not Detected. This is normal operation
' 5 Clear. This will clear a detected alert. Setting the value to 5, will result in a value of 4 or Not Detected
'
'==========================================================================
On Error Resume next
sChassisIntrusionStatusValue = "5"
sComputerName= "."
Dim sComputerName
call SetChassisIntrusionStatus
'==========================================================================
' SUB SetChassisIntrusionStatus. Connects to WMI, and sets
' ChassisIntrusionStatus property to the sChassisIntrusionStatusValue variable value.
'==========================================================================
Sub SetChassisIntrusionStatus
' Declare Variables
Dim objWMIService, objSystem
Dim ColSystem
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,AuthenticationLevel=pktprivacy}\\" & sComputerName & "\root\dellomci")
'Establish connection to DellOmci namespaces and retrieve all instances of Dell_Indication Configuration
Set ColSystem=objWMIService.execquery ("Select * from Dell_SMBIOSsettings")
For each objSystem in ColSystem
objSystem.ChassisIntrusionStatus = sChassisIntrusionStatusValue
objSystem.put_
Next
End Sub
'==========================================================================
' End
'==========================================================================
To disable chassis intrusion:
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
'
' NAME: EnableAlerts.vbs
'
' DATE : 1/3/2006
'
' COMMENT: Can be used to set localonly reporting property to false
'
'==========================================================================
Option Explicit
Dim sComputerName
Dim bLocalOnlyValue
bLocalOnlyValue=True
sComputerName= "."
call SetLocalOnly(sComputerName, bLocalOnlyValue)
'==========================================================================
' Function Get Info. Connects to WMI, and sets Local Only property
' of all dell_configuration instances to false.
'==========================================================================
Sub SetLocalOnly(sIPAddress, bLocalOnly)
' Declare Variables
Dim objWMIService, objSystem
Dim ColSystem
' Connect to remote system. If system is powered off, it may take up To
' 45 seconds for the connection attempt to time out
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,AuthenticationLevel=pktprivacy}\\" & sIPAddress & "\root\dellomci")
'Establish connection to DellOmci namespaces and retrieve all instances of Dell_Indication Configuration
Set ColSystem=objWMIService.execquery ("Select * from Dell_IndicationConfiguration")
'set localonly property to value of blocalonly variable passed in from main()
For each objSystem in ColSystem
If objSystem.Name = "Dell.OMCI.Events.ChassisIntrusion" then
objSystem.LocalOnly = bLocalOnly
objSystem.put_
End if
Next
End Sub
'==========================================================================
' End
'==========================================================================
More client scripts including WOL:
http://support.dell.com/support/edocs/software/smcliins/cli74/en/ug/7app.htm#wp1052372
_____________________________
Jay
|
Printable Version
Some tools to help manage your Dell - 
RE: Some tools to help manage your Dell - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread