function EnableDHCP(optional $remotepc,optional $adapter)
  dim $objWMIService, $colitems, $objnetadapter
  $enableDHCP=1
  if $remotepc=""
    $remotepc="."
  endif
  $objWMIService = GetObject("winmgmts:\\" + $remotepc + "\root\cimv2")
  if @error
    exit @error
  endif
  $colItems = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=-1")
  For Each $objNetAdapter In $colItems
    if $adapter
      if substr($objnetadapter.caption,12)=$adapter
        $=$objNetAdapter.EnableDHCP
        if @error=0
          $enableDHCP=0
        endif
      endif
    else
      $=$objNetAdapter.EnableDHCP
      if @error=0
        $enableDHCP=0
      endif
    endif      
  Next
endfunction