Adds F# IPStatus snippet for System.Net.NetworkInformation (#8934)

* Adds F# IPStatus snippet for System.Net.NetworkInformation

* Fix snippet paths.

Co-authored-by: Radek Zikmund <[email protected]>

* Add error message and fix remaining snippet strings.

---------

Co-authored-by: Radek Zikmund <[email protected]>

Author: pyjarrett

snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="syncping.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs

@@ -0,0 +1,42 @@
+module Examples.System.Net.NetworkInformation.PingTest
+
+//NCLPingSync
+//<snippet1>
+open System.Net.NetworkInformation
+open System.Text
+
+// args[0] can be an IPaddress or host name.
+[<EntryPoint>]
+let main args =
+    //<snippet3>
+    //<snippet2>
+    let pingSender = new Ping()
+
+    // Use the default Ttl value which is 128,
+    // but change the fragmentation behavior.
+    let options = PingOptions()
+    options.DontFragment <- true
+
+    //</snippet2>
+    // Create a buffer of 32 bytes of data to be transmitted.
+    let data = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
+    let buffer = Encoding.ASCII.GetBytes data
+    let timeout = 120
+    let reply: PingReply = pingSender.Send(args.[0], timeout, buffer, options)
+    //</snippet3>
+    //<snippet4>
+
+    match reply.Status with
+    | IPStatus.Success ->
+        printfn "Address: %O" reply.Address
+        printfn "RoundTrip time: %d" reply.RoundtripTime
+        printfn "Time to live: %d" reply.Options.Ttl
+        printfn "Don't fragment: %b" reply.Options.DontFragment
+        printfn "Buffer size: %d" reply.Buffer.Length
+        0
+    | _ ->
+        eprintfn "Error sending ping: %O" reply
+        eprintfn "Error was: %O" reply.Status
+        1
+//</snippet4>
+//</snippet1>

xml/System.Net.NetworkInformation/IPStatus.xml

@@ -54,6 +54,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet1":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet1":::  
   
  ]]></format>
     </remarks>

xml/System.Net.NetworkInformation/Ping.xml

@@ -101,6 +101,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet1":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet1":::  
   
  The following code example demonstrates using the <xref:System.Net.NetworkInformation.Ping> class asynchronously.  
   

xml/System.Net.NetworkInformation/PingOptions.xml

@@ -60,6 +60,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet1":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet1":::  
   
  ]]></format>
     </remarks>
@@ -127,6 +128,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet2":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet2":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet2":::  
   
  ]]></format>
         </remarks>

xml/System.Net.NetworkInformation/PingReply.xml

@@ -56,6 +56,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet1":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet1":::  
   
  ]]></format>
     </remarks>
@@ -355,6 +356,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/NclPingSync/CPP/syncping.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.cs" id="Snippet1":::  
+ :::code language="fsharp" source="~/snippets/fsharp/System.Net.NetworkInformation/IPStatus/Overview/syncping.fs" id="Snippet1":::  
   
  ]]></format>
         </remarks>