Break On
$=setoption("Wrapateol","on")
$=setoption("Explicit","on")
$=setoption("NoVarsinstrings","on")
$=setoption("NoMacrosinstrings","on")
 
dim $Server[],$
Open (1,"C:\DNS_Log.TXT",5)
 
$Server = ;had 41 servers listed here
 
For Each $ in $Server

;? "     Static Address:  " + getipoptions("StaticIP")
;? "       DHCP Enabled:  " + getipoptions("DHCPEnabled")
;? "       IPaddress/SM:  " + getipoptions("IPAddress")
;? "      IPaddress0/SM:  " + getipoptions("IPAddress0")
;? "      IPaddress1/SM:  " + getipoptions("IPAddress1")
;? "      IPaddress2/SM:  " + getipoptions("IPAddress2")
;? "      IPaddress3/SM:  " + getipoptions("IPAddress3")
;? "          DefaultGW:  " + getipoptions("DefaultGW")
Writeline(1,"	Server:   "+$+@CRLF)
Writeline(1,"        DNS Servers:  " + getipoptions("DNSServers",$)+@CRLF)
;? "       WINS Servers:  " + getipoptions("WINSServers")
;? "          DNSSuffix:  " + getipoptions("DNSDomain")
;? "   DNS Search Order:  " + getipoptions("DNSDomainSuffixSearchOrder")
;? "        DHCP Server:  " + getipoptions("DHCPServer")
;? "DHCP Lease Obtained:  " + getipoptions("DHCPLeaseObtained")
;? " DHCP Lease Expires:  " + getipoptions("DHCPLeaseExpires")
;? "        Mac Address:  " + getipoptions("Macaddress")
 
Next

Close(1)
 
 

 
 

 
 

function GetIPOptions($Setting,optional $remotepc, optional $macaddress)
  dim $objWMIService, $colitems, $objnetadapter,$targetadapter,$,$allnics,$counter,$Mask,$SN, $IP, $IPAddress,$toggle
  if $remotepc=""
    $remotepc="."
  endif
  if $macaddress=""
    $allnics=1
  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 $macaddress=$objNetAdapter.macaddress or $allnics
      select
        case instr($setting,"IPAddress")>0
          if right($setting,1)="s" or val(right($setting,1))>3 or len($setting)>10
            $targetadapter=0
          else
            $targetadapter=right($setting,1)
          endif
          $counter=0
          for each $IP in $objNetAdapter.IPAddress
            if "" + $counter=$targetadapter
              $IPAddress=$IP
            endif
            $counter=$counter+1
          next
          $counter=0
          for each $SN in $objNetAdapter.IPSubnet
            if "" + $counter=$targetadapter
              $Mask=$SN
            endif
            $counter=$counter+1
          next
          $GetIPOptions=$IPAddress
          if $mask
            $GetIPOptions=$GetIPOptions + "," + $Mask
          endif  
        case $setting="WINSServers"
          $GetIPOptions=$objNetAdapter.WINSPrimaryServer
          if $objNetAdapter.WINSSecondaryServer<>"" 
            $GetIPOptions=$GetIPOptions + "," + $objNetAdapter.WINSSecondaryServer
          endif
        case 1
          select
            case $setting="DefaultGW" or $setting="DefaultGateway" or $setting="Gateway"
              $setting="DefaultIPGateway"
            case $setting="DNSServers"
              $setting="DNSServerSearchOrder"
            case $setting="StaticIP" or $setting="Static"
              $setting="DHCPEnabled"
              $toggle=1
          endselect
          $=execute("$" + "GetIPOptions=" + "$" + "objNetAdapter." + $setting)
          select 
            case vartype($GetIPOptions)>=8192 ;array  
              $GetIPOptions=join($GetIPOptions,",")
            case vartype($GetIPOptions)=11    ;boolean  
              if $GetIPOptions=0 - $toggle
                $GetIPOptions="False"
              else
                $GetIPOptions="True"
              endif
          endselect
      endselect
    endif
  Next
endfunction