(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      4566,        120]
NotebookOptionsPosition[      4270,        107]
NotebookOutlinePosition[      4613,        122]
CellTagsIndexPosition[      4570,        119]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[GridBox[{
    {
     ButtonBox["\<\"Systemliste\"\>",
      Appearance->Automatic,
      ButtonFunction:>CellPrint[
        Cell[
         BoxData[
          TagBox[
           FrameBox[
            
            GridBox[{{"Eigenschaft", "Wert"}, {"Betriebsystem", $System}, {
              "Computertyp", "PC"}, {"Prozessortyp", $ProcessorType}, {
              "Maschinenpr\[ADoubleDot]zision", 
               ToString[
                NumberForm[$MachinePrecision, {Infinity, 4}]]}, {
              "Max. Pr\[ADoubleDot]zision", 
               ToString[$MaxPrecision, TraditionalForm]}, {
              "Benutzerverzeichnis", $PreferencesDirectory}, {
              "Prozess-Identnummer", $ProcessID}, {"Ausgabe erfolgt nach", 
               ToString[$Display]}}, 
             GridBoxAlignment -> {
              "Columns" -> {Left, {Left}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
             GridBoxDividers -> {"Columns" -> {False, 
                 AbsoluteThickness[2], False, {False}, False}, 
               "ColumnsIndexed" -> {}, "Rows" -> {False, 
                 AbsoluteThickness[2], {False}, False}, "RowsIndexed" -> {}}],
             BoxFrame -> 5], DisplayForm]], "Output", 
         CellChangeTimes -> {3.7446061815132847`*^9}]],
      Evaluator->Automatic,
      Method->"Preemptive"], 
     ButtonBox["\<\"Lizenzliste\"\>",
      Appearance->Automatic,
      ButtonFunction:>CellPrint[
        Cell[
         BoxData[
          TagBox[
           FrameBox[
            
            GridBox[{{"Eigenschaft", "Wert"}, {"Lizenznummer", $LicenseID}, {
              "Aktivierungsschl\[UDoubleDot]ssel", $ActivationKey}, {
              "MathID", $MachineID}, {"Passwort-Datei", $PasswordFile}, {
              "Netzwerklizenz?", 
               If[$NetworkLicense, "Ja", "Nein"]}, {"Ablaufdatum der Lizenz", 
               StringDrop[
                DateString[$LicenseExpirationDate], 4]}, {
              "Mathematica-Version", 
               StringJoin["V ", 
                StringReplace[
                 StringJoin[
                  ToString[$VersionNumber], ".", 
                  ToString[$ReleaseNumber]], " " -> ""]]}, {
              "Erstellungsdatum des Releases des \n Wolfram Language Kernel", 
               StringDrop[
                StringDrop[
                 DateString[$CreationDate], 4], -9]}, {
              "Name des Lizenzservers", $LicenseServer}, {
              "Max. Mathematica Prozesse", $MaxLicenseProcesses}}, 
             GridBoxAlignment -> {
              "Columns" -> {Left, {Left}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
             GridBoxDividers -> {"Columns" -> {False, 
                 AbsoluteThickness[2], False, {False}, False}, 
               "ColumnsIndexed" -> {}, "Rows" -> {False, 
                 AbsoluteThickness[2], {False}, False}, "RowsIndexed" -> {}}],
             BoxFrame -> 5], DisplayForm]], "Output", 
         CellChangeTimes -> {3.7446061815132847`*^9}]],
      Evaluator->Automatic,
      Method->"Preemptive"]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.744609239661812*^9},ExpressionUUID->"bde7ea79-64db-4820-8f4a-\
964484dca93a"]
},
WindowSize->{751, 797},
WindowMargins->{{466, Automatic}, {Automatic, 62}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3708, 85, 49, "Output",ExpressionUUID->"bde7ea79-64db-4820-8f4a-964484dca93a"]
}
]
*)