誰でもWindows API NetApi32を手伝ってもらえますか？

Question

私は特定のマシン上の共有のリストを取得しようとしています。だから私はWindows API NetApi32.dllを使うことに決めました。ここに私のコードスニペットは、次のとおりです。

Dim svr As String = Environment.MachineName 
Dim level As Integer = 2 
Dim sharesRead As Integer, totalEntries As Integer, nRet As Integer, hResume As Integer = 0 
Dim pBuffer As IntPtr = IntPtr.Zero 

nRet = NetApi32.NetShareEnum(svr, level, pBuffer, -1, sharesRead, totalEntries, hResume) 

私は1231年のリターンコードを取得していますが、それはに相当するものを見つけるように見えることはできません。それが間違った方法であれば誰でも正しい方法で私に指摘できますか？

Answer 1

http://msdn.microsoft.com/en-us/library/ms681383(VS.85).aspx

ERROR_NETWORK_UNREACHABLE 1231（0x4CF）

ネットワークの場所に到達することができません。

Answer 2

あなたのNetShareEnum定義は有効ですか？私はVB.NETによく似ていませんが、過去にはC＃でnetapi32を使用していましたが、一般的に問題はありませんでした。

しかし、お使いのコンピュータのすべての共有を列挙したい場合は、別の方法で実行できます。あなたはすべての現在のコンピュータの共有を見つけることができ、次のレジストリキーで ：

HKLM \システム\ CURRENTCONTROLSET \ Servicesの\のLanmanServer \共有

株につき1つのキーと値のペアがあります。値は単純なiniのように見えるREG_MULTI_SZ型です。 「type = 0」（ファイル共有）と読み取りパスを確認します。