#NoTrayIcon

;#RequireAdmin

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=network.ico
#AutoIt3Wrapper_Outfile=LDWin.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Link Discovery for Windows
#AutoIt3Wrapper_Res_Fileversion=2.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Chris Hall 2010-2015
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Res_Field=ProductName|LDWin
#AutoIt3Wrapper_Res_Field=ProductVersion|2.2
#AutoIt3Wrapper_Res_Field=OriginalFileName|LDWin.exe
#AutoIt3Wrapper_Run_AU3Check=n
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;===================================================================================================================================================================
; LDWin - Link Discovery for Windows - Chris Hall 2010-2015
;===================================================================================================================================================================

$VER = "3.0"
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#include <GuiButton.au3>
#include <ComboConstants.au3>




$WinLDPVer = "LDWin - v" & $VER & " - Chris Hall and Allan Freitas - 2010 -" & @YEAR

;	If IsAdmin() = 0 Then
;		MsgBox(16, "Saindo", "Este programa requer direitos de Administrador para funcionamento correto.")
;		Exit
;	EndIf



FileInstall("tcpdump.exe", @TempDir & '\', 1)
FileInstall("DumpEDID.exe", @TempDir & '\', 1)

	$DumpEDID = Run(@ComSpec & " /c " & @TempDir & '\DumpEDID -a >%temp%\Data_Monitor.txt', "", @SW_HIDE)

FileInstall("donate.ico", @TempDir & '\', 1)
GUISetIcon("network.ico")



	$LDWinHelp = 99999
	$donate = ""
	$gotit = ""
	$log = FileOpen(@TempDir & "\LinkData.txt", 2)
	$wbemFlagReturnImmediately = 0x10
	$wbemFlagForwardOnly = 0x20
	$colItems = ""
	$strComputer = "localhost"
	$Output = ""
	$Nic_Friend = ""
	$Hardware = ""
	$IData = ""


SplashTextOn("Por favor espere...", "Enumerando placas de rede via WMI...", 300, 50)

Sleep (2000)

	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
	$objWMIService2 = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI")

	$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


;Acesso ao WMI


	$WMIBIOS = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

	$WMIComputerSystem = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

	$WMIMonitorID = $objWMIService2.ExecQuery("SELECT * FROM WmiMonitorID", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


;Encontrar e Selecionar Placas de Rede.

	If IsObj($colItems) Then
		For $objItem In $colItems

			FileWriteLine($log, "[" & $objItem.NetConnectionID & "]")
			FileWriteLine($log, "ProductName=" & $objItem.ProductName)
			$value = $objItem.NetConnectionID

			If StringLen($value) > 1 Then $Output = $Output & $value & "|"

				$colItems2 = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

				For $objItem2 In $colItems2
					If $objItem.Index = $objItem2.Index Then
						FileWriteLine($log, "SettingID=" & $objItem2.SettingID)
						FileWriteLine($log, "IPAddress=" & $objItem2.IPAddress(0))
						FileWriteLine($log, "MACAddress=" & $objItem2.MACAddress)
					EndIf
				Next
		Next
	Else

	MsgBox(0, "Saida WMI", "Sem Classes de Objetos WMI encontrados: " & "Win32_NetworkAdapterConfiguration")

EndIf

SplashOff()



			$gui = GUICreate("CDP, LDP e Inventário 0.1b" , 1079, 663, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZE,$DS_MODALFRAME))
			GUISetState(@SW_SHOW)
			GUICtrlCreateGroup("Seleção ", 15, 10, 520, 133)
			GUICtrlCreateLabel("Conexão de Rede:", 30, 35, 100, 20)
			$Nic_Friendly = GUICtrlCreateCombo("", 145, 33, 350, 20, $CBS_DROPDOWNLIST)
			GUICtrlSetData(-1, $Output)
			GUICtrlCreateLabel("Placa de Rede:", 30, 62, 100, 20)
			GUICtrlCreateLabel("Endereço MAC:", 30, 89, 100, 20)
			GUICtrlCreateLabel("Endereço IP:", 280, 89, 100, 20)
			$Get = GUICtrlCreateButton("Obter dados", 90, 108, 100)
			$Save = GUICtrlCreateButton("Salvar Informações", 200, 108, 100)
			$Help = GUICtrlCreateButton("Ajuda", 310, 108, 100)
			$Cancel = GUICtrlCreateButton("Cancelar", 420, 108, 100)




$Group1 = GUICtrlCreateGroup("BIOS:", 550, 10, 300, 105)

For $objItem3 In $WMIBIOS



		$SMBIOSBIOSVersionA = GUICtrlCreateLabel("SMBIOSBIOSVersion:", 575, 35, 103, 17)
			$SMBIOSBIOSVersionB = GUICtrlCreateLabel($objItem3.SMBIOSBIOSVersion, 700, 35, 50, 17)

		$ManufacturerA = GUICtrlCreateLabel("Manufacturer:", 575, 60, 100, 17)
			$ManufacturerB = GUICtrlCreateLabel($objItem3.Manufacturer, 700, 60, 50, 17)

		$SerialNumberA = GUICtrlCreateLabel("SerialNumber:", 575, 85, 100, 17)
			$SerialNumberB = GUICtrlCreateLabel($objItem3.SerialNumber, 700, 85, 50, 17)

Next


GUICtrlCreateGroup("ComputerSystem:", 550, 125, 300, 155)

For $objItem4 In $WMIComputerSystem

		$DNSHostNameA = GUICtrlCreateLabel("DNSHostName:", 575, 150, 80, 17)
			$DNSHostNameB = GUICtrlCreateLabel($objitem4.DNSHostName, 700, 150, 100, 17)

		$ChassisSKUNumberA = GUICtrlCreateLabel("ChassisSKUNumber:", 575, 175, 102, 17)
			$ChassisSKUNumberB = GUICtrlCreateLabel($objitem4.ChassisSKUNumber, 700, 175, 100, 17)

		$DomainA = GUICtrlCreateLabel("Domain:", 575, 200, 43, 17)
			$DomainB  = GUICtrlCreateLabel($objitem4.Domain, 700, 200, 100, 17)

		$ManufacturerA = GUICtrlCreateLabel("Manufacturer:", 575, 225, 70, 17)
			$ManufacturerB  = GUICtrlCreateLabel($objitem4.Manufacturer, 700, 225, 100, 17)

		$ModelA = GUICtrlCreateLabel("Model:", 575, 250, 36, 17)
			$ModelB  = GUICtrlCreateLabel($objitem4.Model, 700, 250, 100, 17)
Next



$MonitorSerialN = (@TempDir & "\Data_Monitor.txt")

$SNMonitor1 = FileReadLine($MonitorSerialN,15)
$SNMonitorSN1 = FileReadLine($MonitorSerialN,17)
$SNMonitor2 = FileReadLine($MonitorSerialN,83)
$SNMonitorSN2 = FileReadLine($MonitorSerialN,85)

GUICtrlCreateGroup("MonitorID", 550, 290, 300, 155)

		$Monitor1A = GUICtrlCreateLabel("Monitor 01:", 575, 315, 80, 17)
				$Monitor1B = GUICtrlCreateLabel($SNMonitor1, 700, 315, 500, 17)

		$Monitor1SNA = GUICtrlCreateLabel("Monitor 01:", 575, 340, 80, 17)
				$Monitor1SNB = GUICtrlCreateLabel($SNMonitorSN1, 700, 340, 500, 17)

		$Monitor2A = GUICtrlCreateLabel("Monitor 02:", 575, 365, 80, 17)
				$Monitor2B = GUICtrlCreateLabel($SNMonitor2, 700, 365, 500, 17)

		$Monitor2SNA = GUICtrlCreateLabel("Monitor 02:", 575, 390, 80, 17)
				$Monitor2SNB = GUICtrlCreateLabel($SNMonitorSN2, 700, 390, 500, 17)




























If RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA") > 0 Then
	GUICtrlSetImage($Get, "imageres.dll", -2, 0)
	_GUICtrlButton_SetShield($Get)
EndIf



	GUICtrlCreateGroup("Results ", 15, 153, 520, 160)
	GUICtrlCreateLabel("Switch Name:", 30, 183, 70, 20)
	GUICtrlCreateLabel("Port Identifier:", 30, 213, 70, 20)
	GUICtrlCreateLabel("VLAN Identifier:", 30, 243, 75, 20)
	GUICtrlCreateLabel("Switch IP Address:", 30, 273, 90, 20)
	GUICtrlCreateLabel("Switch Model:", 280, 213, 70, 20)
	GUICtrlCreateLabel("Port Duplex:", 280, 243, 70, 20)
	GUICtrlCreateLabel("VTP Mgmt Domain:", 280, 273, 95, 20)
	GUICtrlCreateGroup("Status ", 15, 323, 520, 65)
	GUICtrlCreateLabel($WinLDPVer, 1024, 700, 275, 20)
	GUISetState()



;Tela gráfica e botões padrões

While 1
	$aMsg = GUIGetMsg(1)
	Switch $aMsg[1]
		Case $gui
			Switch $aMsg[0]
				Case $Nic_Friendly
					$Nic_Friend = GUICtrlRead($Nic_Friendly)
					$IData = IniReadSection(@TempDir & "\LinkData.txt", $Nic_Friend)
					$Hardware = $IData[1][1]
					$IPAddr = $IData[3][1]
					$MAC = $IData[4][1]
					GUICtrlCreateLabel($Hardware, 145, 62, 350, 20)
					GUICtrlCreateLabel($IPAddr, 390, 89, 120, 20)
					GUICtrlCreateLabel($MAC, 145, 89, 120, 20)
					ClearResults()
				Case $Get
					If GUICtrlRead($Nic_Friendly) = "" Then
						MsgBox(64, "Seleção Inválida", "Selecione uma placa de rede usando o menu suspenso.")
						ContinueLoop
					EndIf
					GetCDP($Nic_Friendly)
				Case $GUI_EVENT_CLOSE
					OnExit()
					ExitLoop
				Case $Cancel
					OnExit()
					ExitLoop
				Case $Save
					SaveData()
				Case $Help
					Help()
			EndSwitch
		Case $LDWinHelp
			Switch $aMsg[0]
				Case $GUI_EVENT_CLOSE
					GUIDelete($LDWinHelp)
				Case $donate
					ShellExecute("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=KT462HRW7XQ3J")
				Case $gotit
					GUIDelete($LDWinHelp)
			EndSwitch
	EndSwitch
WEnd
Exit



Func GetCDP($Nic_Friendly)
	$SaveFile = FileOpen(@TempDir & "\SaveData.txt", 2)
	GUICtrlSetState($Get, $GUI_DISABLE)
	GUICtrlSetState($Save, $GUI_DISABLE)
	GUICtrlSetState($Help, $GUI_DISABLE)
	ClearResults()

	;FileWriteLine($SaveFile, $Nic_Friend)
	;FileWriteLine($SaveFile, "(" & $Hardware & ", " & $MAC & ", " & $IPAddr & ") is connected to:")
	;FileWriteLine($SaveFile, "------------------------------------------------------")

	;Acrescentar aqui toda a inforção do PC

	FileWrite($SaveFile,@ComputerName&",")
	FileWrite($SaveFile,$objItem3.Caption&",")



	$ID = $IData[2][1]



	;******** DIAG MODE ********
	$TCPDmpPID = Run(@ComSpec & " /c " & @TempDir & '\tcpdump.exe -i \Device\' & $ID & ' -nn -v -s 1500 -c 1 (ether[12:2]==0x88cc or ether[20:2]==0x2000) >%temp%\Data_Out.txt', "", @SW_HIDE)
	$DumpEDID = Run(@ComSpec & " /c " & @TempDir & '\DumpEDID -a >%temp%\Data_Monitor.txt', "", @SW_HIDE)
	;$TCPDmpPID = "0"
	;******** DIAG MODE ********



	$Secs = 1
	$Status1 = GUICtrlCreateLabel("Atualizando, Demora até 60 segundos entre a comunição.", 120, 343, 350, 200)
	$iBegin = TimerInit()
	Do
		$msg = GUIGetMsg()
		If $msg = $Cancel Then
			ProcessClose("tcpdump.exe")
			ProcessClose("DumpEDID.exe")
			ExitLoop
		EndIf
		If Ceiling(TimerDiff($iBegin)) = ($Secs * 1000) Or Ceiling(TimerDiff($iBegin)) > ($Secs * 1000) Then
			GUICtrlCreateLabel(Round($Secs, 0) & " Segundos restantes", 240, 363, 100, 20)
			$Secs = $Secs + 1
		EndIf
		$TCPDmpPID = ProcessExists($TCPDmpPID)
	Until $TCPDmpPID = "0" Or TimerDiff($iBegin) > 60000
	GUICtrlDelete($Status1)
	GUICtrlCreateLabel("", 240, 360, 100, 20)
	GUICtrlCreateLabel("", 210, 350, 200, 20)
	$file = FileOpen(@TempDir & "\Data_Out.txt")
	$end = _FileCountLines(@TempDir & "\Data_Out.txt")
	If $end > 0 Then
		$line = 0
		Do



;======================================================================================= CDP =================================================================================



			If StringInStr(FileReadLine($file, $line), "Device-ID (0x01)") Then
				$SwitchName = StringSplit(FileReadLine($file, $line), "'")
				$SwitchName = StringUpper($SwitchName[2])
				GUICtrlCreateLabel($SwitchName, 140, 183, 370, 20)
				;FileWriteLine($SaveFile, "Switch Name:	" & $SwitchName)



				FileWrite($SaveFile,& $SwitchName",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Port-ID (0x03)") Then
				$SwitchPort = StringSplit(FileReadLine($file, $line), "'")
				GUICtrlCreateLabel($SwitchPort[2], 140, 213, 120, 20)



				FileWrite($SaveFile,& $SwitchPort[2]",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "VLAN ID (0x0a)") Then
				$VLAN = StringSplit(FileReadLine($file, $line), ":")
				$VLAN = StringStripWS($VLAN[3], 8)
				GUICtrlCreateLabel($VLAN, 140, 243, 120, 20)



				FileWrite($SaveFile,& $VLAN",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Address (0x02)") Then
				$SwitchIP = StringSplit(FileReadLine($file, $line), ")")
				$SwitchIP = StringStripWS($SwitchIP[3], 8)
				GUICtrlCreateLabel($SwitchIP, 140, 273, 120, 20)



				FileWrite($SaveFile,& $SwitchIP",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Platform (0x06)") Then
				$SwitchModel = StringSplit(FileReadLine($file, $line), "'")
				$SwitchModel = StringUpper($SwitchModel[2])
				If StringInStr($SwitchModel, "CISCO") Then
					$SwitchModel = StringTrimLeft(StringUpper($SwitchModel), 6)
				EndIf
				GUICtrlCreateLabel($SwitchModel, 390, 213, 120, 20)



				FileWrite($SaveFile,& $SwitchModel",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Duplex (0x0b)") Then
				$Duplex = StringSplit(FileReadLine($file, $line), ":")
				$Duplex = StringLower(StringStripWS($Duplex[3], 8))
				$Duplex = _StringProper($Duplex)
				GUICtrlCreateLabel($Duplex, 390, 243, 120, 20)



				FileWrite($SaveFile,& $Duplex",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "VTP Management Domain (0x09)") Then
				$VTP = StringSplit(FileReadLine($file, $line), "'")
				GUICtrlCreateLabel($VTP[2], 390, 273, 120, 20)



				FileWrite($SaveFile,& $VTP[2]",")



			EndIf



;===================================================================================== LLDP =================================================================================



			If StringInStr(FileReadLine($file, $line), "System Name TLV (5)") Then
				$SwitchName = StringSplit(FileReadLine($file, $line), ":")
				$SwitchName = StringStripWS(StringUpper($SwitchName[2]), 3)
				GUICtrlCreateLabel($SwitchName, 140, 183, 370, 20)



				FileWrite($SaveFile,& $SwitchName",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Chassis ID TLV (1)") Then
				$SwitchName = StringSplit(FileReadLine($file, $line), ":")
				If @error Then
					$nextline = $line + 1
					$SwitchName = StringSplit(FileReadLine($file, $nextline), ":")
					$SwitchNameSize = UBound($SwitchName)
					If $SwitchNameSize > 3 Then
						$SWconcat = ""
						For $i = 2 to $SwitchNameSize - 1
							$SWconcat = ($SWconcat & $SwitchName[$i] & ":")
						Next
						$SwitchName = StringTrimRight($SWconcat, 1)
					Else
						$SwitchName = $SwitchName[2]
					EndIf
				Else
					$SwitchName = $SwitchName[2]
				EndIf
				$SwitchName = StringStripWS($SwitchName, 3)
				GUICtrlCreateLabel("", 140, 183, 180, 20)
				GUICtrlCreateLabel($SwitchName, 140, 183, 370, 20)



				FileWrite($SaveFile,& $SwitchName",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Port ID TLV (2)") Then
				$SwitchPort = StringSplit(FileReadLine($file, $line), ":")
				If @error Then
					$nextline = $line + 1
					$SwitchPort = StringSplit(FileReadLine($file, $nextline), ":")
					$SwitchPort = $SwitchPort[2]
				Else
					$SwitchPort = $SwitchPort[2]
				EndIf
				$SwitchPort = StringStripWS($SwitchPort, 3)
				GUICtrlCreateLabel($SwitchPort, 140, 213, 120, 40)



				FileWrite($SaveFile,& $SwitchPort",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Port Description TLV (4)") Then
				$SwitchPort = StringSplit(FileReadLine($file, $line), ":")
				$SwitchPort = StringStripWS($SwitchPort[2], 3)
				GUICtrlCreateLabel("", 140, 213, 120, 20)
				GUICtrlCreateLabel($SwitchPort, 140, 213, 120, 40)



				FileWrite($SaveFile,& $SwitchPort",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "port vlan id (PVID)") Then
				$VLAN = StringSplit(FileReadLine($file, $line), ":")
				$VLAN = StringStripWS($VLAN[2], 3)
				GUICtrlCreateLabel($VLAN, 140, 243, 120, 20)



				FileWrite($SaveFile,& $VLAN",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "Management Address TLV (8)") Then
				$SwitchIP = StringSplit(FileReadLine($file, $line), ":")
				If @error Then
					$nextline = $line + 1
					$SwitchIP = StringSplit(FileReadLine($file, $nextline), ":")
				Else
					$SwitchIP = $SwitchIP[2]
				EndIf
				$SwitchIP = StringStripWS(StringUpper($SwitchIP[2]), 3)
				GUICtrlCreateLabel($SwitchIP, 140, 273, 120, 20)



				FileWrite($SaveFile,& $SwitchIP",")



			EndIf
			If StringInStr(FileReadLine($file, $line), "System Description TLV (6)") Then
				$SwitchModel = StringSplit(FileReadLine($file, $line), ":")
				If @error Then
					$nextline = $line + 1
					$SwitchModel = FileReadLine($file, $nextline)
				Else
					$SwitchModel = $SwitchModel[2]
				EndIf
				$SwitchModel = StringStripWS($SwitchModel, 3)
				GUICtrlCreateLabel($SwitchModel, 390, 213, 120, 40)



				FileWrite($SaveFile,& $SwitchModel",")



			EndIf
			$line = $line + 1
		Until $line = $end
	Else
		If ProcessExists("tcpdump.exe") Then ProcessClose("tcpdump.exe")
			GUICtrlCreateLabel("Sem link de comunição ... !", 210, 348, 150, 20)
		FileClose($SaveFile)
		FileDelete(@TempDir & "\SaveData.txt")
		ProcessClose("DumpEDID.exe")
	EndIf

	FileClose($SaveFile)
	FileClose($file)
	FileDelete(@TempDir & "\Data_Out.txt")

	GUICtrlSetState($Get, $GUI_ENABLE)
	GUICtrlSetState($Save, $GUI_ENABLE)
	GUICtrlSetState($Help, $GUI_ENABLE)

EndFunc



;=================================================================================== GetCDP ============================================================================



Func ClearResults()
	GUICtrlCreateLabel("", 140, 183, 180, 20)
	GUICtrlCreateLabel("", 140, 213, 120, 20)
	GUICtrlCreateLabel("", 140, 243, 120, 20)
	GUICtrlCreateLabel("", 140, 273, 120, 20)
	GUICtrlCreateLabel("", 390, 213, 120, 20)
	GUICtrlCreateLabel("", 390, 243, 120, 20)
	GUICtrlCreateLabel("", 390, 273, 120, 20)
EndFunc   ;==>ClearResults

Func SaveData()
	If FileExists(@TempDir & "\SaveData.txt") = 0 Then Return
	$UserSave = FileSaveDialog("Save Link Data to", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Text Documents (*.txt)", 2)
	If $UserSave = "" Then Return
	If StringInStr($UserSave, ".txt") = 0 Then $UserSave = $UserSave & ".txt"
	FileOpen($UserSave, 1)
	FileWrite($UserSave, FileRead(@TempDir & "\SaveData.txt") & @CRLF)
	FileClose($UserSave)
EndFunc   ;==>SaveData

Func OnExit()
	If ProcessExists("tcpdump.exe") Then ProcessClose("tcpdump.exe")
	FileClose($log)
	FileDelete(@TempDir & "\DumpEDID.exe")
	FileDelete(@TempDir & "\LinkData.txt")
	FileDelete(@TempDir & "\tcpdump.exe")
	FileDelete(@TempDir & "\SaveData.txt")
	FileDelete(@TempDir & "\donate.ico")
EndFunc   ;==>OnExit

Func Help()
	$LDWinHelp = GUICreate("Link Discovery for Windows : Help", 550, 570, (@DesktopWidth - 550) / 2, (@DesktopHeight - 570) / 2)
	GUICtrlCreateGroup("What is Link Discovery? ", 15, 10, 520, 80)
	GUICtrlCreateLabel("Link discovery is the process of ascertaining information from directly connected networking devices, such as network switches, routers, etc.  " & @CRLF & _
			"This can be helpful when diagnosing suspected network connectivity issues.", 30, 35, 500, 50)

	GUICtrlCreateGroup("Which Methods of Link Discovery does LDWin Support? ", 15, 100, 520, 90)
	GUICtrlCreateLabel("LDWin supports the following methods of link discovery:", 30, 125, 500, 20)
	GUICtrlCreateLabel("   - CDP : Cisco Discovery Protocol", 30, 145, 500, 20)
	_GUICtrlHyperLink_Create("Read more on CDP", 240, 145, 130, 15, 0x0000FF, 0x0000FF, -1, 'https://en.wikipedia.org/wiki/Cisco_Discovery_Protocol', 'Wikipedia: Cisco Discovery Protocol', $LDWinHelp)
	GUICtrlCreateLabel("   - LLDP : Link Layer Discovery Protocol", 30, 160, 500, 20)
	_GUICtrlHyperLink_Create("Read more on LLDP", 240, 160, 130, 15, 0x0000FF, 0x0000FF, -1, 'https://en.wikipedia.org/wiki/Link_Layer_Discovery_Protocol', 'Wikipedia: Link Layer Discovery Protocol', $LDWinHelp)

	GUICtrlCreateGroup("How to use LDWin: ", 15, 200, 520, 200)
	GUICtrlCreateLabel("1. From the 'Network Connection:' drop down, select the network adaptor over which you wish to obtain network link information" & @CRLF & @CRLF & _
			"2. Click 'Get Link Data'" & @CRLF & @CRLF & _
			"3. LDWin will then listen on the selected network adaptor for link protocol announcements. It may take up to 60 seconds to receive an announcement" & @CRLF & @CRLF & _
			"4. Once an announcement has been received, the received information will be displayed in the results section" & @CRLF & @CRLF & _
			"5. Use the 'Save Link Data' button to save the received information into a text file", 30, 225, 500, 170)

	GUICtrlCreateGroup("Notes: ", 15, 410, 520, 90)
	GUICtrlCreateLabel("As both CDP and LLDP are sent via Multicast packets, A valid TCP/IP address is not required to receive link information." & @CRLF & @CRLF & _
			"If LDWin helped you, how about buying me a beer? Use the donate button below. THANK YOU!", 30, 435, 500, 60)

	GUICtrlCreateLabel("LDWin - Chris Hall - 2010-" & @YEAR, 130, 530, 200, 40)
	_GUICtrlHyperLink_Create("chall32.blogspot.com", 300, 530, 130, 15, 0x0000FF, 0x0000FF, -1, 'http://chall32.blogspot.com', 'What The .....? Blog', $LDWinHelp)

	$donate = GUICtrlCreateButton("Donate", 10, 510, 100, 35, $BS_ICON)
	GUICtrlSetImage(-1, @TempDir & "\donate.ico")
	$gotit = GUICtrlCreateButton("Got it!", 440, 520, 100)
	GUISetState()
EndFunc   ;==>Help