1 Partial Public Module Examples
3 ''' Demonstrates various uses of GPublishServer()
5 ''' <param name="server_name">The name to publish the server under.</param>
6 ''' <returns>The success status Or error code of the function.</returns>
7 ''' <remarks>See remote_server_example.cs for an example.</remarks>
8 Function Remote_Server(server_name As String) As Integer
9 Dim gclib = New Gclib()
11 Console.WriteLine("<p> Publish this server to the network" + vbNewLine +
12 "<r> Remove this server from the network" + vbNewLine +
18 Select Case Console.ReadKey(True).Key
22 gclib.GPublishServer(server_name, True, False)
23 Console.WriteLine("Published Server")
25 gclib.GPublishServer(server_name, False, False)
26 Console.WriteLine("Removed Server")
31 Return Examples.GALIL_EXAMPLE_OK