¿Cómo se configura cuota de carpeta mediante programación en vb.net
-
23-09-2019 - |
Pregunta
Tengo entorno cliente-servidor y ha desarrollado un proyecto de cliente-servidor.
necesito compartir una carpeta de mi equipo del servidor usando programación VB.NET
Por favor, ayúdame.
Solución
Aquí está un ejemplo que muestra el concepto usando ManagmentClass . Es de C #, pero fácilmente convertibles en VB.NET:
ACTUALIZACIÓN:
Directory.CreateDirectory("C:\MyTestShare")
Dim managementClass As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
inParams.Item("Description") = "My Files Share"
inParams.Item("Name") = "My Files Share"
inParams.Item("Path") = "C:\MyTestShare"
inParams.Item("Type") = 0
If (DirectCast(managementClass.InvokeMethod("Create", inParams, Nothing).Properties.Item("ReturnValue").Value, UInt32) <> 0) Then
Throw New Exception("Unable to share directory.")
End If
Otros consejos
Tengo código que es similar a esto que funciona en equipos Vista y Win2k3, pero cuando lo intento en el servidor Windows 2008 R2 (con actualizaciones recientes) falla con un "acceso denegado". He probado el código de arriba y exacta el mismo resultado. Soy un administrador en la caja y he intentado desactivar UAC, pero sin ningún efecto.
(sé que esto no es una respuesta, no tengo poder para comentario)