Convert Powershell script to VBNet

Question

Convert Powershell script to VBNet

Nagaraj 1

Param(
[Parameter(Mandatory=$true,
ValueFromPipeline=$true)]
[string]
$SixDigitRestaurantCode
)
try
{
if(($SixDigitRestaurantCode -ne $null) -and ($SixDigitRestaurantCode.Length -eq 6)
-and (($SixDigitRestaurantCode.ToUpper().Substring(0,2) -eq "C0")
-or ($SixDigitRestaurantCode.ToUpper().Substring(0,2) -eq "MG")))
{
$addr = [String]::Format("{0}BServer",$SixDigitRestaurantCode)
$res = [Net.DNS]::GetHostAddresses([String]::Format("{0}BServer",$SixDigitRestaurantCode))
return $addr
}
else {
return "Invalid SixDigitRestaurantCode"
}
}
catch
{
$addr = [String]::Format("{0}Server",$SixDigitRestaurantCode)
return $addr
}
Could someone help me to convert the above PS script to VBNet.

LesHay 7,146

Hi
The first part, if I have understood it, is straightforward. Don't know about the server side.

Option Strict On
Option Explicit On
Public Class Form1
  Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    ' a few test codes
    Dim lst As New List(Of String)({"CO6578", DBNull.Value.ToString, "mg6578", "AB6578", "MG6578", "xy6578", "co6578"})

    For Each s As String In lst
      If GetValidRestCode(s) Then
        TextBox1.AppendText(s & " is VALID" & vbCrLf)
      Else
        TextBox1.AppendText(s & " is INVALID" & vbCrLf)
      End If
    Next
  End Sub
  Function GetValidRestCode(s As String) As Boolean
    If Not s.Length = 6 Then Return False
    If s.ToUpper.StartsWith("CO") Or s.ToUpper.StartsWith("MG") Then
      Return True
    End If
    Return False
  End Function
End Class