Below is a sample VBScript that enables Wakeup
On LAN on a
Dell Command | Monitor client.
'**********************************************************************
'*** 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.
-
NOTE: Replace <Password>
in line 57 (inside the quotes) with the desired values if there is
any password set in the system. If both passwords (Admin and Boot)
are set please replace it with Admin Password. If there is no password
set in the system please leave it as empty.
'**********************************************************************
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
'==========================================================================