'''' <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)

End Select

End Sub

End Class

Public Enum ShareType As Integer
DiskDrive = 0
PrintQueue = 1
Device = 2
Ipc = 3
DiskDriveAdmin = &H80000000
PrintQueueAdmin = &H80000001
DeviceAdmin = &H80000002
IpcAdmin = &H80000003
End Enum

<Flags()> Public Enum AccessMasks As Integer
ListDirectory = &H1
AddFile = &H2
AddSubdirectory = &H4
ReadExtendedAttributes = &H8
WriteExtendedAttributes = &H10
Traverse = &H20
DeleteChild = &H40
ReadAttributes = &H80
WriteAttributes = &H100
Delete = &H10000
ReadControl = &H20000
WriteDac = &H40000
WriteOwner = &H80000
Synchronize = &H100000

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

End Enum

End Namespace