Configures the Diagnostic Web Server on a BrightSign. See notify.brs for the Notify subroutine.

dws.brs

Sub Main()
	nc = CreateObject("roNetworkConfiguration", 0)
	if type(nc) <> "roNetworkConfiguration" then
		nc = CreateObject("roNetworkConfiguration", 1)
	endif
	if type(nc) = "roNetworkConfiguration" then
		dwsAA = CreateObject("roAssociativeArray")
		dwsAA["port"] = "80"

    		' Turn off authentication:
		dwsAA["password"] = ""
    		' If you prefer using authentication:
		'dwsAA["open"] = "brightsign"

		nc.SetupDWS(dwsAA)
		nc.Apply()

    		Notify("DWS is configured", -1)
	endif

End Sub