Users Guide

(Wscript.Arguments.Count < 1) Then
Call Usage()
WScript.Quit
End If
'*** Inicializar las variables
strNameSpace = "root/Dellomci"
strComputerName = WScript.Arguments(0)
strClassName = "Dell_IndicationStaticValues"
strPropName = "MaxDisplayNotifications"
'***EstablecerunaconexiónconelespaciodenombresDellOMCISetobjWMIService=GetObject("winmgmts:{impersonationLevel=impersonate,"&_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_ strNameSpace)
'*** Recuperar las instancias de '***la clase Dell_IndicationStaticValues (deben ser 16 instancias; una por cada tipo de alerta).
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
For each objInstance in ColSystem
'*** Establecer el valor de MaxDisplayNotifications como '0' '*** Establecer el nuevo valor de la propiedad y guardar la instancia
objInstance.Properties_.Item(strPropName).Valor = 0 objInstance.Put_ Next
'***Sisepresentaalgúnerror,informaralusuario.
If Err.Number <> 0 Then
WScript.Echo"Fallóelcambiodelapropiedad."
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)

Apagado remoto del sistema
AcontinuaciónsepresentaunVBScriptdemuestraqueapagaráunclienteDell™OMCIdemaneraremota.
'****************************************************
'*** Name: SampleShutdown.vbs
'*** Purpose: To shut down a Dell™ OMCI client.
'*** Usage: cscript.exe //nologo SampleShutdown.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 strNameSpace
Dim strComputerName
Dim strClassName
Dim strPropValue
Dim objInstance
Dim ObjOutParam
Dim strMethod
'*** 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()
WScript.Quit
End If