2 ''' Demonstrates various uses of GPublishServer().
4 ''' <remarks>The first argument is optional and defines the name to publish the server under.</remarks>
5 Module Remote_Server_Example
8 ''' Main function for the Remote Server example.
10 ''' <returns>The success status Or error code of the function.</returns>
11 ''' <remarks>The first argument is optional and defines the name to publish the server under.</remarks>
12 Function Main() As Integer
13 Dim rc As Integer = Examples.GALIL_EXAMPLE_OK
14 Dim args() As String = Environment.GetCommandLineArgs()
16 Dim server_name As String
18 If args.Count() <> 2 Then
19 Console.Write("Enter Server Name: ")
20 server_name = Console.ReadLine()
25 rc = Examples.Remote_Server(server_name)
27 Console.WriteLine(ex.Message)
28 rc = Examples.GALIL_EXAMPLE_ERROR
31 Console.Write(vbCrLf + "Press any key to close the example.")