Private Sub GetAllAddresses(broadcast As String) As Map
Dim no As NativeObject
Return NSDictionaryToMap(no.Initialize("B4IServerSocketWrapper").RunMethod("getIPAddresses:", Array(broadcast)))
End Sub
Private Sub NSDictionaryToMap(Dictionary As Object) As Map
Dim NewMap As NativeObject
NewMap = NewMap.Initialize("B4IMap").RunMethod("convertToMap:",Array(Dictionary))
Return NewMap
End Sub