Func MakingSureNetworkIsUp()
	AutoItSetOption('MouseCoordMode', 0)
	AutoItSetOption('SendKeyDelay', 300)

	;  SplashText Message
	$sMessage = $xMessageAIP & @LF & $xMessagePRF & @LF & $xMessageDU1 & @LF & "Checking Access to HPDI Dir."
	SplashTextOn($xMessageBoxTitle, $sMessage, 300, 125, 1, 1, 0, "")
	$xScriptName = "MakingSureNetworkIsUp" ; Setting $sScriptName
	$ecode = 404 ; Setting error code to 404 in the event of a failure.

	; Open Start Menu Click.
	Run("explorer")
	Local $xTitle = "File Explorer"
	Local $xText = ""
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	Sleep(500)
	ControlSend($xTitle, $xText, "", "{TAB 3}{ENTER}")
	Sleep(1000)
	$CopyPaste1 = $NetDrivePath
	ClipPut($CopyPaste1)
	Sleep(500)
	ControlSend($xTitle, $xText, "", "^v{ENTER}")
	$xTitle = "HPDI"
	$xText = "Address: \\NOAMSNYW024\Servicedesk\Field Service Repository 2018\HPDI"
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	$xLogFileMessage = "It appears that we can see the network repository" & @CRLF & $NetDrivePath & @CRLF & "  --  Phase 1 -- Script completed Successfully!  --  "
	ScriptLogging() ; Writing out to the script logging file.
	$ecode = "411" ; Setting error code to 411
	EventLog() ; Write to Application log in Event Viewer file.
	InfoMessageBox4() ; Confirm to Installer that this function has successfully completed.
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	ControlSend($xTitle, $xText, "", "{TAB 6}{ENTER}")
	$CopyPaste1 = $HPDI_Dir
	ClipPut($CopyPaste1)
	Sleep(500)
	ControlSend($xTitle, $xText, "", "^v{ENTER}")
	$xTitle = "HPDI_Dir"
	$xText = "Address: C:\Windows\HPDI_Dir"
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	$xLogFileMessage = "It appears that we can see the local repository" & @CRLF & $NetDrivePath & @CRLF & "  --  Phase 2 -- Script completed Successfully!  --  "
	ScriptLogging() ; Writing out to the script logging file.
	$ecode = "411" ; Setting error code to 411
	EventLog() ; Write to Application log in Event Viewer file.
	InfoMessageBox4() ; Confirm to Installer that this function has successfully completed.
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	$xLogFileMessage = "  --  Continuing with automation  --  " & @CRLF & $NetDrivePath & @CRLF & "  --  Phase 3 -- Script completed Successfully!  --  "
	ScriptLogging() ; Writing out to the script logging file.
	$ecode = "411" ; Setting error code to 411
	EventLog() ; Write to Application log in Event Viewer file.
	InfoMessageBox4() ; Confirm to Installer that this function has successfully completed.
	WinWait($xTitle, $xText)
	WinActivate($xTitle, $xText)
	ControlSend($xTitle, $xText, "", "!{F4}")
	Sleep(1000)
	SplashOff()

EndFunc   ;==>MakingSureNetworkIsUp