Visual Basic

Bruce Duncan, CP#9088, CPUA 0xA1EE, Sonork 100.10030
Blackadder: Baldrick, have you no idea what irony is?
Baldrick: Yeah, it's like goldy and bronzy only it's made of iron.

'=====================
'1.)
Public Function MoveNext() As Boolean
     Dim svrInfo As Win32API.SERVER_INFO_101
     Dim bResult as Boolean = False 'Unnecessary because Boolean = False by default
     
     CurrentItem += 1 'Increment the CurrentItem Counter
     If (CurrentItem < ItemCount) Then
          Dim iOffset As Integer = (svrInfoPtr.ToInt32 + SERVER_INFO_101_SIZE * CurrentItem)
          Marshal.PtrToStructure(New IntPtr(iOffset), GetType(svrInfo))
          CurrentServerName = Marshal.PtrToStringAuto(svrInfo.lpszServerName)
          bResult = True
     End If
     
     Return bResult
End Function
'=====================

'=====================
'1.)
Public Function MoveNext() As Boolean
     Dim svrInfo As Win32API.SERVER_INFO_101
     Dim bSuccess As Boolean
     
     CurrentItem += 1 'Increment the CurrentItem Counter
     If (CurrentItem >= ItemCount) Then Return False  'Exit if the Item is outside the Memory Address Range
     
     Try
          Dim iOffset As Integer = (svrInfoPtr.ToInt32 + SERVER_INFO_101_SIZE * CurrentItem)
          Marshal.PtrToStructure(New IntPtr(iOffset), GetType(svrInfo))
          CurrentServerName = Marshal.PtrToStringAuto(svrInfo.lpszServerName)
          bSuccess = True
     Catch
          'Display Error Message if you want
          bSuccess = False
     End Try
     
     Return bSuccess
End Function
'=====================

'=====================
'2)
Public Function GetServerType(ByVal ServerName As String) As ServerTypes
     Dim svrInfoPtr As IntPtr = IntPtr.Zero
     Dim svrInfo As Win32.SERVER_INFO_101
     Dim hResult As Integer = Win32API.NetServerGetInfo(ServerName, 101, svrInfoPtr) 'Make sure the API Declarations have the Appropriate Byval / Byref
     
     If (hResult <> 0) Then
          'Marshal.PtrToStructure(svrInfoPtr, GetType(svrInfo))
          Marshal.PtrToStructure(svrInfoPtr, svrInfo)
          Return Ctype(svrInfo.dwType, ServerTypes)
     Else
         Return ServerTypes.None  
     End If
End Function