document.write('\
\ "); document.write('
  1. $excel = New-Object -comobject Excel.Application
    2. \
  2. $excel.visible = $False #Change to True to see the excel build
    3. \
  3. $wbook = $excel.Workbooks.Add()
    4. \
  4. $wsheet = $wbook.Worksheets.Item(1)
    5. \
  5. $wsheet.Cells.Item(1,1) = "Date"
    6. \
  6. $wsheet.Cells.Item(1,2) = "Server"
    7. \
  7. $wsheet.Cells.Item(1,3) = "NETID"
    8. \
  8. $wsheet.Cells.Item(1,4) = "Description"
    9. \
  9. $wsheet.Cells.Item(1,5) = "MAC"
    10. \
  10. $wsheet.Cells.Item(1,6) = "IP"
    11. \
  11. $wsheet.Cells.Item(1,7) = "DHCPEnabled"
    12. \
  12. $wsheet.Cells.Item(1,8) = "DHCPServer"
    13. \
  13. $wsheet.Cells.Item(1,9) = "DNSServerSearchOrder"
    14. \
  14. $wsheet.Cells.Item(1,10) = "WINSPrimaryServer"
    15. \
  15. $wsheet.Cells.Item(1,11) = "WINSSecondaryServer"
    16. \
  16. $wsheet.Cells.Item(1,12) = "DomainDNSRegistrationEnabled"
    17. \
  17. $wsheet.Cells.Item(1,13) = "FullDNSRegistrationEnabled"
    18. \
  18. $wsheet.Cells.Item(1,14) = "WINSEnableLMHostsLookup"
    19. \
  19. $range = $wsheet.UsedRange
    20. \
  20. $range.Interior.ColorIndex = 19
    21. \
  21. $range.Font.ColorIndex = 11
    22. \
  22. $range.Font.Bold = $True
    23. \
  23. $iRow = 2
    24. \
  24. $AllAdapters = @("")
    25. \
  25. $InputFile = "C:\\Scripts\\Servers.txt"
    26. \
  26. $Servers = Get-Content $InputFile
    27. \
  27. ForEach($Server in $Servers)
    28. \
  28. {
    29. \
  29. $Adapters = Get-Wmiobject Win32_NetworkAdapterConfiguration -Computername `
    30. \
  30. $Server | Where-Object{$_.IPEnabled -eq $True}
    31. \
  31. ForEach($Adapter In $Adapters)
    32. \
  32. {
    33. \
  33. [String]$DNSServers = ""
    34. \
  34. $Adapters2 = Get-Wmiobject Win32_NetworkAdapter -Computername $Server `
    35. \
  35. | Where-Object{$_.Caption -eq $Adapter.Caption}
    36. \
  36. [String]$NetID = $Adapters2.NetConnectionID
    37. \
  37. If($Adapter.DNSServerSearchOrder -ne $Null){ForEach($Address In `
    38. \
  38. $Adapter.DNSServerSearchOrder){$DNSServers += "[" + $Address + "]"}}
    39. \
  39. $wsheet.Cells.Item($iRow,1) = Get-Date
    40. \
  40. $wsheet.Cells.Item($iRow,2) = $Server
    41. \
  41. $wsheet.Cells.Item($iRow,3) = $NETID
    42. \
  42. $wsheet.Cells.Item($iRow,4) = $Adapter.Description
    43. \
  43. $wsheet.Cells.Item($iRow,5) = $Adapter.MACAddress
    44. \
  44. $wsheet.Cells.Item($iRow,6) = $Adapter.IPAddress
    45. \
  45. $wsheet.Cells.Item($iRow,7) = $Adapter.DHCPEnabled
    46. \
  46. $wsheet.Cells.Item($iRow,8) = $Adapter.DHCPServer
    47. \
  47. $wsheet.Cells.Item($iRow,9) = $DNSServers
    48. \
  48. $wsheet.Cells.Item($iRow,10) = $Adapter.WINSPrimaryServer
    49. \
  49. $wsheet.Cells.Item($iRow,11) = $Adapter.WINSSecondaryServer
    50. \
  50. $wsheet.Cells.Item($iRow,12) = $Adapter.DomainDNSRegistrationEnabled
    51. \
  51. $wsheet.Cells.Item($iRow,13) = $Adapter.FullDNSRegistrationEnabled
    52. \
  52. $wsheet.Cells.Item($iRow,14) = $Adapter.WINSEnableLMHostsLookup
    53. \
  53. $iRow = $iRow + 1
    54. \
  54. }
    55. \
  55. }
    56. \
  56. $range.EntireColumn.AutoFilter()
    57. \
  57. $range.EntireColumn.AutoFit()
    58. \
  58. $excel.ActiveWorkbook.SaveAs("C:\\Scripts\\NetworkScan.xls")
    59. \
  59. $excel.ActiveWorkbook.Close
    60. \
  60. $excel.Application.Quit
    61. \
');document.write('
downloadThis Script brought to you by PoshCode\
\
\
');