Salve a tutti, ho un problemino, devo creare una list con tutte le cartelle condivise in una rete, inizio col dire che la dimensione della rete è variabile quindi potrei dover scansionare vari computer in cerca di cartelle condivise, io (cercando e sperimentando direttamente) sono riuscito a trovare questo:
Dim objClass As ManagementClass = New ManagementClass("\\127.0.0.1\root\cimv2:Win32_Shar e")
For Each objShare As ManagementObject In objClass.GetInstances()
MsgBox(String.Format("{0} -> {1}", objShare.Properties("Name").Value, objShare.Properties("Path").Value) & Environment.NewLine)
Next
che sembra funzioni a meraviglia sul mio computer, tuttavia quando provo a cambiare l'IP mi restituisce un errore:
Server RPC non disponibile.
eppure se provo da esegui a fare \\192.168.1.3\Prova funziona perfettamente quindi non è vero che non è disponibile...non capisco proprio come mai mi dia quell'errore...
comunque il codice sopra funziona perfettamente in locale.
grazie 1000 in anticipo
Rispondi quotando