| Pregunta: | 31858 - RECURSOS COMPARTIDOS EN VB |
| Autor: | Iñigo Cabrera Sánchez |
| Necesito compartir una carpeta y ponerle contraseña, a través de código vb, además de poder acceder a ella del mismo modo, a través de código vb. He planteado esta misma pregunta en varios foros y no he recibido una respuesta coherente. Ya se que esta es difícil, que no es la típica de fechas, combobox autodesplegables, etc. ... pero si alguien puede arrojar luz sobre esto, seguro que interesará a más de uno. | |
| Respuesta: | Jesús lopez |
| '-------------------------- ''COMPARTIRLA '-------------------------- Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("C:\Carpeta", "CarpetaCompartida", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Esta es una carpeta compartida.") WScript.Echo "errReturn = " & errReturn '---------------------------------------------- ''DESCOMPARTIRLA '---------------------------------------------- 'Establecer Variables strComputer = NombrePC 'Establecer Equipo donde se creara el Recurso Compartido Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\cimv2") 'Eliminar Recurso Compartido Set colShares = objWMIService.ExecQuery ("Select * from Win32_Share Where Name = 'C'") For Each objShare in colShares objShare.Delete Next | |