Dell Command | Monitor Version 9.1 Reference Guide

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

'*** Name: SampleWuOLEnable.vbs

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

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

Dim objWMIService

Dim returnValue 

Dim ColSystem 

Dim strAttributeName(2) 

Dim strAttributeValue(2)

Dim strAuthorizationToken

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

strAttributeName(0) = "Wake On LAN" 

'*** All possible values for WOL are as follows:

'*** 1 = Disable

'*** 2 = Add-in

'*** 3 = On board

'*** 4 = LAN

'*** 5 = PXE boot enable

'*** 6 = LAN or WLAN

'*** 7 = WLAN only

strAttributeValue(0) = "4" 

strAuthorizationToken = "<Password>"

returnValue = 0 

'*** Retrieve the instance of DCIM_BIOSService 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_("SetBIOSAttributes").InParameters.SpawnInstance_ 

oInParams.AttributeName = strAttributeName 

oInParams.AttributeValue = strAttributeValue 

oInParams.AuthorizationToken = strAuthorizationToken 

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

Next 

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

If Err.Number <> 0 Then

WScript.Echo "Enabling Wake On LAN 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 SampleWuOLEnable.vbs <systemname>" 

WScript.Echo strMessage 

End Sub 

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

' End

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