Dell Command | Monitor Version 9.1 Reference Guide

'**********************************************************************

'*** Name: SampleRestart.vbs

'*** Purpose: To clear the chassis intrusion status on a Dell OMCI client.

'*** Usage: cscript.exe //nologo SampleRestart.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 strKeyValue 

Dim objInstance

Dim strPropName

Dim strPropValue

Dim oInParams

Dim objWMIService

Dim returnValue

Dim ColSystem 

'*** 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

'*** Initialize variables

strNameSpace = "root/dcim/sysman" 

strComputerName = WScript.Arguments(0)

strClassName = "DCIM_ComputerSystem" 

returnValue = 0

'*** Retrieve the instance of DCIM_ComputerSystem class

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_ 

"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_

strNameSpace)

Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)

For each objInstance in ColSystem 

Set oInParams= objInstance.Methods_("RequestStateChange").InParameters.SpawnInstance_

oInParams.RequestedState = 11

Set returnValue = objInstance.ExecMethod_("RequestStateChange", oInParams)

Next 

'*** If any errors occurred, let the user know

If Err.Number <> 0 Then 

WScript.Echo "System restart 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 SampleRestart.vbs <systemname>"

WScript.Echo strMessage

End Sub

'==========================================================================

' End

'==========================================================================