Profile uses a list of "Get" functions to collect a lot of useful information about the current platform with a single call.
Profile
Let ( [
theDate = Get ( CurrentDate ) ;
hostName = Get ( HostName ) ;
hostTime = Get ( CurrentHostTimeStamp ) ;
clientTime = Get ( CurrentTimeStamp ) ;
systemPlatform = Get ( SystemPlatform ) ;
sysversion = Get ( SystemVersion ) ;
language = Get ( ApplicationLanguage ) ;
appversion = Get ( ApplicationVersion ) ;
networkProtocol = Get ( NetworkProtocol ) ;
IPaddress = Get ( SystemIPAddress ) ;
NICaddress = Get ( SystemNICAddress ) ;
layoutName = Get ( LayoutName ) ;
accountName = Get ( AccountName ) ;
userName = Get ( UserName ) ;
extendedPrivileges = Get ( ExtendedPrivileges )
] ; // end let variable declaration
"Date: " & theDate & "¶" &
"Host Name: " & hostName & "¶" &
"Host Timestamp: " & hostTime & "¶" &
"Client Timestamp: " & clientTime & "¶" &
"Platform: " & systemPlatform & If ( Abs ( systemPlatform ) = 1 ; " Mac" ; " Windows" ) & "¶" &
"System Version: " & sysversion & "¶" &
"Language: " & language & "¶" &
"Application Version: " & appversion & "¶" &
"Network Protocol: " & networkProtocol & "¶" &
"IP Address: " & IPaddress & "¶" &
"NIC Address: " & NICaddress & "¶¶" &
"Layout Name: " & layoutName & "¶" &
"Account Name: " & accountName & "¶" &
"User Name: " & userName & "¶" &
"Extended Privileges: " & extendedPrivileges
) // end let