主页 / server / 问题 / 990
Accepted
spoulson
Asked: 2009-05-01 07:06:36 +0800 CST

我如何知道用户映射了哪些网络驱动器？

  • 772

扫描以查找为域中所有桌面上的所有登录用户设置的驱动器映射的最佳方法是什么？这将用于确定环境中正在使用的驱动器号。

这是在 Active Directory 2003 域内的公司环境中。我目前使用运行“网络使用”并通过管道传输到日志文件的 SMS 2003 广告。访问每个桌面需要很长时间。有没有更好的办法？

windows networking

4 个回答

  1. 最快的方法可能是使用WMI。如果您精通 Perl，您甚至可以使用Win32模块。在这里的某个地方，我有一个脚本可以提供大部分信息。

    • 1
  2. Best Answer

    所有这些答案都是让我前进的很好的线索。谢谢你。

    我碰巧遇到了这个 VBScript 示例，它完全符合我的要求并且运行良好。

    这是该帖子的代码片段：

    'Define variables, constants and objects

strComputer="REMOTE MACHINE HERE"
Const HKEY_USERS = &H80000003
Set objWbem = GetObject("winmgmts:")
Set objRegistry = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'Go and get the currently logged on user by checking the owner of the Explorer.exe process.  

Set colProc = objWmiService.ExecQuery("Select Name from Win32_Process" & " Where Name='explorer.exe' and SessionID=0")

If colProc.Count > 0 Then
   For Each oProcess In colProc
       oProcess.GetOwner sUser, sDomain
   Next
End If

'Loop through the HKEY_USERS hive until (ignoring the .DEFAULT and _CLASSES trees) until we find the tree that 
'corresponds to the currently logged on user.
lngRtn = objRegistry.EnumKey(HKEY_USERS, "", arrRegKeys)    

For Each strKey In arrRegKeys
   If UCase(strKey) = ".DEFAULT" Or UCase(Right(strKey, 8)) = "_CLASSES" Then
   Else

       Set objSID = objWbem.Get("Win32_SID.SID='" & strKey & "'")

'If the account name of the current sid we're checking matches the accountname we're looking for Then
'enumerate the Network subtree
       If objSID.accountname = sUser Then 
           regpath2enumerate = strkey & "\Network" 'strkey is the SID
           objRegistry.enumkey hkey_users, regpath2enumerate, arrkeynames

'If the array has elements, go and get the drives info from the registry
           If Not (IsEmpty(arrkeynames)) Then
               For Each subkey In arrkeynames
                   regpath = strkey & "\Network\" & subkey
                   regentry = "RemotePath"
                   objRegistry.getstringvalue hkey_users, regpath, regentry, dapath
                   wscript.echo subkey & ":" & vbTab & dapath
               Next
           End If
       End If
   End If
Next
    • 1

  3. 可能有更好的方法，但是你现在做的方法其实很好，虽然感觉很慢，但速度应该不是问题。

    您的用户不会每天更改他们的映射，即使他们是，您也可能只关心那些相对永久的映射。

    运行网络使用广告虽然需要一段时间，但只需每月执行几次即可掌握驱动器映射。

    -亚当

    • 0

  4. 实际上，我在某个时间点编写了一个程序，该程序将作为登录脚本的一部分运行并收集该信息，然后将其发布到带有网站的数据库中。这会是你对跑步感兴趣的事情吗？如果你愿意，我可以把旧代码掸掉并交出。

    • 0

相关问题