Setting WOL for Local Area Network

This script will only output the setting that needs to be set.

Dim objWMIService, colItems, LANID
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_NetworkAdapter Where NetConnectionID =’Local Area Connection'”,,48)
For Each objItem in colItems
LANID = objItem.DeviceID

Do While Len(LANID) < 4 LANID = "0" & LANID Loop Wscript.Echo "HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & LANID & "\PnPCapabilities" Wscript.Echo "Hex 100 or dec 256" [/powershell]