Sub GetDeviceModel As String
Dim NaObj As NativeObject = Me
Return NaObj.RunMethod("Get",Null).AsString
#If OBJC
#import <sys/utsname.h>
-(NSString*)Get{
struct utsname systemInfo;
uname(&systemInfo);
return [NSString stringWithCString:systemInfo.machine encoding:NSUTF8StringEncoding];
}
#end if
End Sub