Reconocer carpetas compartidas de una PC
Publicado por Nicolás (164 intervenciones) el 13/07/2006 17:48:58
Saludos:
Quisiera saber como puedo obtener la lista de carpetas compartidas de una PC que se encuentra en mi red y que cumplan con cierta característica en el nombre.
Actualmente tengo el sgte. código:
Dim objWMIService As WbemScripting.SWbemServices
Dim colShares As WbemScripting.SWbemObjectSet
List1.Clear
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\Desarrollo2\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name LIKE 'Terminal%'")
For Each objShare In colShares
List1.AddItem objShare.Path
Next
Para la PC en la que se corre el programa funciona perféctamente.
El problema lo tengo en la línea Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\Desarrollo2\root\cimv2"), me dice "permiso denegado" al tratar de acceder a otra PC en la red.
Las carpetas están compartidas de lectura y escritura, porqué me dice permiso denegado?
Desde ya, muchas gracias.
Quisiera saber como puedo obtener la lista de carpetas compartidas de una PC que se encuentra en mi red y que cumplan con cierta característica en el nombre.
Actualmente tengo el sgte. código:
Dim objWMIService As WbemScripting.SWbemServices
Dim colShares As WbemScripting.SWbemObjectSet
List1.Clear
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\Desarrollo2\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name LIKE 'Terminal%'")
For Each objShare In colShares
List1.AddItem objShare.Path
Next
Para la PC en la que se corre el programa funciona perféctamente.
El problema lo tengo en la línea Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\Desarrollo2\root\cimv2"), me dice "permiso denegado" al tratar de acceder a otra PC en la red.
Las carpetas están compartidas de lectura y escritura, porqué me dice permiso denegado?
Desde ya, muchas gracias.
Valora esta pregunta
0