Users Guide

strPropName = "ChassisIntrusionStatus"
'*** Recupera la instancia de la clase Dell_SMBIOSSettings '***(debe existir solo 1 instancia).
Set objInstance =GetObject("WinMgmts:{impersonationLevel=impersonate ,AuthenticationLevel=pktprivacy }//" &_ strComputerName & "/" &
strNameSpace & ":" & strClassName & "=" &_ Chr(34) & strKeyValue & Chr(34))
'*** Establecer el valor de ChassisIntrusionStatus como '5' '***("Borrar")
'***Establecer el nuevo valor de la propiedad y guardar la instancia objInstance.Properties_.Item(strPropName).Valor = 5 objInstance.Put_
'***Sisepresentaalgúnerror,informaralusuario.
If Err.Number <> 0
ThenWScript.Echo"Elborradodelestadodeintrusiónenelchasisfalló."
End If
'*** Subrutina que se utiliza para mostrar el uso correcto de '***la secuencia de comandos
Sub Usage()
Dim strMessage
strMessage = "Sintaxis incorrecta. Debe ejecutar: " & vbCRLF & _ "cscript.exe /nologo SampleChassisIntrusionClear.vbs <nombre_del_sistema>"
WScript.Echo strMessage
End Sub)

Desactivar los mensajes de escritorio de todas las alertas
Acontinuación,sepresentaunVBScriptdeejemploquedesactivaráelcuadrodemensajequeapareceenelescritoriocuandosedetectaunacondiciónde
alerta.
Namespace: root\DellOMCI
Class Name: Dell_IndicationStaticValues
Instance 'Key' Value: Not Applicable to this example
Property Name: MaxDisplayNotifications
Property Value: 0 '**************************************************** '*** Name: SampleDisableAlertMessages.vbs
'*** Purpose: To disable the desktop message box for '***all alerts on a Dell OMCI client.
'***Usage: cscript.exe //nologo '***SampleDisableAlertMessages.vbs <systemname>'***
'*** This sample script is provided as an example '***only, and has not been tested, nor is warranted in '***any way by Dell; Dell disclaims
any liability in '***connection therewith. Dell provides no technical '***support with regard to such scripting. For more '***information on
WMI scripting, refer to applicable '***Microsoft documentation. '**************************************************** Option Explicit
'*** Declare variables
Dim objWMIService
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim ColSystem
Dim objInstance
Dim strPropName
Dim strPropValue
'*** Check that the right executable was used to run '***the script and that all parameters were passed
If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _
(Wscript.Arguments.Count < 1) Then
Call Usage()