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