如何查询类似于“net use”的记住的 UNC 连接?

Posted

技术标签:

【中文标题】如何查询类似于“net use”的记住的 UNC 连接?【英文标题】:How can I query remembered UNC connections similar to "net use"? 【发布时间】:2010-07-29 20:58:30 【问题描述】:

我了解如何从注册表 (HKEY_CURRENT_USER\Network) 检索映射驱动器的 UNC 路径,但我还需要检索与未映射的网络资源的远程连接。

例如,打开“运行”对话框并输入 。如果我输入“net use”,我会看到这个映射,但我无法确定这些信息存储在文件系统或注册表的什么位置。

alt text http://www.freeimagehosting.net/uploads/5bf1a0e3c5.jpg

有谁知道我可以从中查询这个位置,或者我可以调用一个 API 来获取这个?欢迎提出涉及 vbscript、C 和 Delphi 的建议!

【问题讨论】:

【参考方案1】:

Mick,尝试使用 Win32_NetworkConnection WMI

检查此示例

program GetWMI_Win32_NetworkConnection;

$APPTYPE CONSOLE

uses
  SysUtils
  ,ActiveX
  ,ComObj
  ,Variants;


Procedure  GetWin32_NetworkConnection;
var
  objWMIService : OLEVariant;
  colItems      : OLEVariant;
  colItem       : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;

  function GetWMIObject(const objectName: String): IDispatch;
  var
    chEaten: Integer;
    BindCtx: IBindCtx;
    Moniker: IMoniker;
  begin
    OleCheck(CreateBindCtx(0, bindCtx));
    OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker));
    OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
  end;

begin
  objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2');
  colItems      := objWMIService.ExecQuery('SELECT * FROM Win32_NetworkConnection','WQL',0);
  oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
  while oEnum.Next(1, colItem, iValue) = 0 do
  begin
    Writeln('Caption        '+colItem.Caption);
    Writeln('Name           '+colItem.Name);
    Writeln('ConnectionState'+colItem.ConnectionState);
    Writeln('ConnectionType '+colItem.ConnectionType);
    Writeln('Description    '+colItem.Description);
    Writeln('DisplayType    '+colItem.DisplayType);
    Writeln('LocalName      '+colItem.LocalName);
    Writeln('ProviderName   '+colItem.ProviderName);
    Writeln('RemoteName     '+colItem.RemoteName);
    Writeln('RemotePath     '+colItem.RemotePath);
    Writeln('ResourceType   '+colItem.ResourceType);
    Writeln('Status         '+colItem.Status);
    Writeln('UserName       '+colItem.UserName);
    Writeln;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetWin32_NetworkConnection;
      Readln;
    finally
    CoUninitialize;
    end;
 except
    on E:Exception do
    Begin
        Writeln(E.Classname, ': ', E.Message);
        Readln;
    End;
  end;
end.

【讨论】:

请注意,对于许多 WMI 事务,您需要成为 PC 上的(本地)管理员。我不确定这是否适用于 Win32_NetworkConnection,但我过去曾被此咬得很厉害。【参考方案2】:

WNetOpenEnum(RESOURCE_REMEMBERED,...)

(如果你需要支持Win9x,你可能不得不回退到NetUseEnum)

【讨论】:

以上是关于如何查询类似于“net use”的记住的 UNC 连接?的主要内容,如果未能解决你的问题,请参考以下文章

PySpark:如何添加数据来自查询的列(类似于每行的子查询)

浏览器记住密码,对应字段有问题,如何解决?

如何(快速)检查 UNC 路径是不是可用

如何使用 SHCreateStreamOnFileEx 创建具有长 UNC 路径的文件

Amazon Red Shift:如何在 SQL Server 中编写类似于存储过程的查询批处理

Directory.Exists - 访问被拒绝 C# 的 UNC 路径