Dim mgcShare As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = mgcShare.GetMethodParameters("Create")
If impersonateValidUser("User", My.Computer.Name, "Kennwort") Then
 inParams("Path") = "c:\test"
 inParams("Name") = "test"
 inParams("Type") = 0
 inParams("Description") = "Freigabe"
 Dim outParams As ManagementBaseObject = mgcShare.InvokeMethod("Create", _
   inParams, Nothing)
 Dim res As String = Convert.ToUInt32(outParams.Properties("ReturnValue").Value)
 If res <> 0 Then
  MessageBox.Show("Unable to share directory." & res)
 Else
  MessageBox.Show("Shared folder successfully!")
 End If
 undoImpersonation()
End If