; '''''''''''' </history> '''''''''''' ----------------------------------------------------------------------------- Public Sub Delete()
Dim res As Integer
res = Convert.ToInt32(_share.InvokeMethod("Delete", Nothing), CultureInfo.InvariantCulture)
If res <> 0 Then ThrowException(res)
End Sub
Public Sub Dispose() Implements System.IDisposable.Dispose
'''' Dispose the WMI object _share.Dispose()
GC.SuppressFinalize(Me)
End Sub
'''''''''''' ----------------------------------------------------------------------------- '''''''''''' <summary> '''''''''''' Sets the share info. '''''''''''' </summary> '''''''''''' <remarks>The security descriptor is not supported by this class.</remarks> '''''''''''' <history> '''''''''''' [Eduardo Morcillo] 11/08/2004 Created '''''''''''' </history> '''''''''''' ----------------------------------------------------------------------------- Private Sub SetShareInfo( _ ByVal maximumAllowed As Integer, _ ByVal description As String, _ ByVal descriptor As ManagementBaseObject)
Dim res As Integer
'''' Set the share info res = Convert.ToInt32(_share.InvokeMethod("SetShareInfo", New Object() {maximumAllowed, description, descriptor}), CultureInfo.InvariantCulture)
If res <> 0 Then ThrowException(res)
End Sub
'''''''''''' ----------------------------------------------------------------------------- '''''''''''' <summary> '''''''''''' Throws an exception for the specified WMI error number. '''''''''''' </summary> '''''''''''' <history> '''''''''''' [Eduardo Morcillo] 11/08/2004 Created '''''''''''' </history> '''''''''''' ----------------------------------------------------------------------------- Private Shared Sub ThrowException(ByVal res As Integer)
Select Case res
Case 2 '''' Access denied Throw New Win32Exception(65) Case 9 '''' Invalid name Throw New Win32Exception(1215) Case 10 '''' Invalid level Throw New Win32Exception(124) Case 21 '''' Invalid parameter Throw New Win32Exception(87) Case 22 '''' Duplicate Share Throw New Win32Exception(2118) Case 23 '''' Redirected Path Throw New Win32Exception(2117) Case 24 '''' Unknown device Or directory Throw New Win32Exception(2116) Case 25 '''' Net name not found Throw New Win32Exception(67) Case Else Throw New Exception("Unknown error: " & res)
Read = ListDirectory Or ReadExtendedAttributes Or ReadAttributes Or ReadControl Or Synchronize ReadAndExecute = Read Or Traverse Write = AddFile Or AddSubdirectory Or WriteExtendedAttributes Or WriteAttributes Or Synchronize Modify = Read Or Write Or Delete Or Traverse FullControl = DeleteChild Or WriteDac Or WriteOwner Or Modify
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
