Users Guide

'*** Initialize variables
strNameSpace = "root/Dellomci"
strComputerName = WScript.Arguments(0)
strClassName = "Dell_IndicationStaticValues"
strPropName = "MaxDisplayNotifications"
'*** Establish a connection to the DellOMCI namespace Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate," &_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_ strNameSpace)
'*** Retrieve the instances of '***Dell_IndicationStaticValues class (there should be 16 instances – one for each alert type).
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
For each objInstance in ColSystem
'*** Set the value of MaxDisplayNotifications to'0' '*** Set the new value for the property and save the instance objInstance.Properties_.Item
(strPropName).Value = 0 objInstance.Put_ Next
'*** If any errors occurred, let the user know.
If Err.Number <> 0 Then
WScript.Echo "The change to the property 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 SampleDisableAlertMessages.vbs <systemname>" WScript.Echo
strMessage
End Sub
(Espacio de nombres: root\DellOMCI
Nombre de la clase: Dell_IndicationStaticValues
Valor de 'clave' de la instancia: no se aplica a este ejemplo
Nombre de la propiedad: MaxDisplayNotifications
Valor de la propiedad: 0 '**************************************************** '*** Nombre: SampleDisableAlertMessages.vbs
'*** Objetivo: desactivar el cuadro de mensaje de escritorio de '***todas las alerta en un cliente Dell OMCI.
'***Uso: cscript.exe //nologo '***SampleDisableAlertMessages.vbs <nombre_del_sistema>'***
'***Estasecuenciadecomandosdemuestraseofreceúnicamente'***comoejemploynohasidoprobadanitiene'***ningúntipodegarantíapor
partedeDell;Dellseeximedetoda'***responsabilidadrelacionadaconestamuestra.Dellnoproporcionaasistencia'***técnicaconrespecto
aestetipodesecuenciasdecomandos.Paraobtenermás'***informaciónsobrelassecuenciasdecomandosdeWMI,consulteladocumentación'***
correspondientedeMicrosoft.'****************************************************Opciónexplícita
'*** Declarar variables
Dim objWMIService
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim ColSystem
Dim objInstance
Dim strPropName
Dim strPropValue
'***Comprobarqueseusóelarchivoejecutablecorrectopara'***ejecutarlasecuenciadecomandosyqueseproporcionarontodoslos
parámetros
If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _