Imports System.Management
 
 Public Enum WMI_INFO
        Success = 0
        AccessDenied = 2
        UnknownFailure = 8
        InvalidName = 9
        InvalidLevel = 10
        InvalidParameter = 21
        DuplicateShare = 22
        RedirectedPath = 23
        Unknown_Device_or_Directory = 24
        NetName_Not_Found = 25
    End Enum
 
Public Shared Function AddShare(ByVal Server As String, ByVal SharName As _
  String, ByVal Path As String, ByVal Description As String) As _
  Netzwerk.WMI_INFO
        Dim ms As ManagementScope = New ManagementScope
        Dim mc As ManagementClass
 
        ms.Options.Username = "Admin"
        ms.Options.Password = "Passwort"
        ms.Options.Authentication = AuthenticationLevel.PacketPrivacy
        ms.Options.Impersonation = ImpersonationLevel.Impersonate
        Dim s As String = "\\" & Server & "\root\CIMv2"
        ms.Path = New ManagementPath(s)
 
        mc = New ManagementClass(ms, New ManagementPath("Win32_Share"), Nothing)
 
        Dim Parameters As ManagementBaseObject = mc.GetMethodParameters( _
          "Create")
        Parameters.Properties("Name").Value = SharName
        Parameters.Properties("Path").Value = Path
        Parameters.Properties("Type").Value = 0
        Parameters.Properties("Access").Value = Nothing
        Parameters.Properties("Description").Value = Description
        Parameters.Properties("MaximumAllowed").Value = Nothing
 
        Dim result As ManagementBaseObject = mc.InvokeMethod("Create", _
          Parameters, Nothing)
 
        Return result.Properties("ReturnValue").Value
 
    End Function