ory>
'''''' [Eduardo Morcillo] 11/08/2004 Created
'''''' </history>
'''''' -----------------------------------------------------------------------------
Public Shared Function Create( _
ByVal path As String, _
ByVal type As ShareType, _
ByVal name As String, _
ByVal maximumAllowed As Integer, _
ByVal description As String, _
ByVal password As String) As NetShare

Return Create(".", path, type, name, maximumAllowed, description, password)

End Function

'''''' -----------------------------------------------------------------------------
'''''' <summary>
'''''' Creates a shared resource in the specified computer.
'''''' </summary>
'''''' <history>
'''''' [Eduardo Morcillo] 11/08/2004 Created
'''''' </history>
'''''' -----------------------------------------------------------------------------
Public Shared Function Create( _
ByVal computerName As String, _
ByVal path As String, _
ByVal type As ShareType, _
ByVal name As String, _
ByVal maximumAllowed As Integer, _
ByVal description As String, _
ByVal password As String) As NetShare

Dim shareClass As New System.Management.ManagementClass(String.Format("\\{0}\root\cimv2:Win32_Share", computerName))
Dim res As Integer

Try

If maximumAllowed < 0 Then

res = Convert.ToInt32( _
shareClass.InvokeMethod("Create", _
New Object() {path, name, type, Nothing, description, password, Nothing}), CultureInfo.InvariantCulture)

Else

res = Convert.ToInt32( _
shareClass.InvokeMethod("Create", _
New Object() {path, name, type, maximumAllowed, description, password, Nothing}), CultureInfo.InvariantCulture)

End If

If res <> 0 Then ThrowException(res)

Return GetShare(computerName, name)

Finally

shareClass.Dispose()

End Try

End Function

'''''' -----------------------------------------------------------------------------
'''''' <summary>
'''''' Returns a NetShare object that represents the shared resource in the
'''''' specified computer.
'''''' </summary>
'''''' <history>
'''''' [Eduardo Morcillo] 11/08/2004 Created
'''''' </history>
'''''' -----------------------------------------------------------------------------
Public Shared Function GetShare(ByVal computerName As String, ByVal shareName As String) As NetShare

Dim share As ManagementObject

share = New ManagementObject(String.Format("\\{0}\root\cimv2:Win32_Share.Name=""{1}""", computerName, shareName))
share.Get()

Return New NetShare(share)

End Function

'''''' -----------------------------------------------------------------------------
'''''' <summary>
'''''' Returns a NetShare object that represents the shared resource.
'''''' </summary>
'''''' <history>
'''''' [Eduardo Morcillo] 11/08/2004 Created
'''''' </history>
'''''' -----------------------------------------------------------------------------
Public Shared Function GetShare(ByVal shareName As String) As NetShare

Return GetShare(".", shareName)

End Function

'''''' -----------------------------------------------------------------------------
'''''' <summary>
'''''' Returns the names of shared r