Dear BrightSign
Last year I tried to get the wifi on some of players to work with our 802.1x network. This was the answer I got from you back then:
Quote<<
To use WPA enterpise:
1. Create normal setup files for wireless.
2. Edit the an enterprise modified setupcommon.brs file based on the info below. The link in this email is for a setupcommon.brs file from brightuathor 4.1.1.21.
3. Replace the setupcommon.brs file with the modified one
4. Power up the unit with the setup card.
There are two sections of the setupcommon.brs file that you need to edit with your file name and settings:
1. Edit the these two lins to match your ssid and the passphrase you used
Function SetWirelessParameters(spec As Object, registrySection As Object, modelSupportsWifi As Boolean) As String
essid = "WLAN-TWDC"
passphrase$ = "1111"
2. Edit these 4 lines entering your ssid, the names of the ca file and p12 file, and the password.
Sub ConfigureWifi(wifiNetworkingParameters As Object, ssid$ As String, passphrase$ As String, networkConnectionPriorityWireless$ As String, timeServer$ As String, proxySpec$ As String)
essid = "WLAN-TWDC"
cafile = "ca.pem"
pkcs12file = "90ac3f00fdef.p12"
pkcspass = "1111"
Once this is done, you can copy this file to an already configured setup card.
>>End quote
This is how the lines in my SetupCommen.brs look right now:
Quote<<
Function SetWirelessParameters(spec As Object, registrySection As Object, modelSupportsWifi As Boolean) As String
useWireless = GetEntry(spec, "useWireless")
' if the user specifies wireless on a system that doesn't support wireless, don't try to use wireless
if not modelSupportsWifi
useWireless = "no"
endif
if useWireless = "yes" then
ssid$ = GetEntry(spec, "ssid")
passphrase$ = GetEntry(spec, "passphrase")
registrySection.Write("wifi", "yes")
registrySection.Write("ss", ssid$)
registrySection.Write("pp", passphrase$)
registrySection.Write("ncp2", GetEntry(spec, "networkConnectionPriorityWireless"))
registrySection.Write("cwf", GetEntry(spec, "contentDataTypeEnabledWireless"))
registrySection.Write("twf", GetEntry(spec, "textFeedsDataTypeEnabledWireless"))
registrySection.Write("hwf", GetEntry(spec, "healthDataTypeEnabledWireless"))
registrySection.Write("mwf", GetEntry(spec, "mediaFeedsDataTypeEnabledWireless"))
registrySection.Write("lwf", GetEntry(spec, "logUploadsDataTypeEnabledWireless"))
else
registrySection.Write("wifi", "no")
endif
return useWireless
End Function
>>End quote
Am I correct to assume that I change
ssid$ = GetEntry(spec, "ssid")
to
ssid$ = "WLAN-NAME"
and
passphrase$ = GetEntry(spec, "passphrase")
to
passphrase$ = "1111"
or whatever the passphrase is?
And how about the other part of the script? This is what it looks like right now:
Quote<<
Sub ConfigureWifi(wifiNetworkingParameters As Object, ssid$ As String, passphrase$ As String, networkConnectionPriorityWireless$ As String, timeServer$ As String, proxySpec$ As String, bypassProxyHosts As Object, featureMinRevs As Object)
nc = CreateObject("roNetworkConfiguration", 1)
if type(nc) = "roNetworkConfiguration" then
nc.SetWiFiESSID(ssid$)
nc.SetObfuscatedWifiPassphrase(passphrase$)
ConfigureNetwork(nc, wifiNetworkingParameters, networkConnectionPriorityWireless$, timeServer$, proxySpec$, bypassProxyHosts, featureMinRevs)
else
print "Unable to create roNetworkConfiguration - index = 1"
endif
End Sub
>>End quote
Do I ad the lines
essid = "WLAN-NAME"
cafile = "ca.pem"
pkcs12file = "90ac3f00fdef.p12"
pkcspass = "1111"
after the line
Sub ConfigureWifi....
And finally where do I put the ca file and the p12 file? In the root of the sd card with the setup files.
I hope you can help me out.
I'm going to have look at it with our network administrator in a couple of days, and have him generate the necessary ca and p12 files for me.
Kind regards
Mikkel Hjort
