Users Guide

WScript.Quit
End If
'*** 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
(Namespace: root\DellOMCI
Klassenname: Dell_IndicationStaticValues
Instanz-'Schlüsselwert': Auf dieses Beispiel nicht anwendbar
Eigenschaftsname: MaxDisplayNotifications
Eigenschaftswert: 0 '**************************************************** '*** Name: SampleDisableAlertMessages.vbs
'***Zweck:DasDialogfeldaufdemDesktopfür'***alleWarnungenaufeinemDellOMCI-Client zu deaktivieren.
'***Verwendung: cscript.exe //nologo '***SampleDisableAlertMessages.vbs <Systemname>'***
'*** Dieses Beispielscript dient nur zur Anschauung '***und wurde nicht getestet. Dell gibt auch keine '***Garantieleistung und lehnt jeglichen
Schadensersatzanspruch'***diesbezüglichab.Dellbietetkeinentechnischen'***SupporthinsichtlichsolcherScriptsan.Weitere
'***InformationenüberWMI-Scripts finden Sie in der entsprechenden '***Microsoft-Dokumentation.
'**************************************************** Option Explicit
'*** Variablen angeben
Dim objWMIService
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim ColSystem
Dim objInstance
Dim strPropName
Dim strPropValue