Users Guide

strNameSpace & ":" & strClassName & "=" &_ Chr(34) & strKeyValue & Chr(34))
'*** Set the value of ChassisIntrusionStatus to'5' '***("Clear")
'***Set the new value for the property and save the instance objInstance.Properties_.Item(strPropName).Value = 5 objInstance.Put_
'*** If any errors occurred, let the user know.
If Err.Number <> 0
Then WScript.Echo "Clearing Chassis Intrusion Status 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 SampleChassisIntrusionClear.vbs <systemname>" WScript.Echo
strMessage
End Sub
(Espacio de nombres: root\DellOMCI
Nombre de la clase: Dell_SMBIOSsettings
Valor de 'clave' de la instancia: 0
Nombre de la propiedad: ChassisIntrusionStatus
Valor de la propiedad: 5 '**************************************************** '*** Nombre: SampleChassisIntrusionClear.vbs
'***Objetivo:borrarelestadodeintrusiónenelchasisenunclienteDellOMCI.
'*** Uso: cscript.exe //nologo SampleChassisIntrusionClear.vbs <nombre_del_sistema>
'***
'***Estasecuenciadecomandosdeejemploseofreceúnicamente'***comomuestra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 secuencia de comandos. 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 strNameSpace
Dim strComputerName
Dim strClassName
Dim strKeyValue
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 _ (Wscript.Arguments.Count < 1) Then
Call Usage()
WScript.Quit
End If
'*** Inicializar las variables
strNameSpace = "root/Dellomci"
strComputerName = WScript.Arguments(0)
strClassName = "Dell_SMBIOSsettings"
strKeyValue = "0"