Home > IT Answers > Networking > Scan network for each computers Mapped Drives
Chetta
85 pts.
0
Q:
Scan network for each computers Mapped Drives
Mapped Drive, Network scanning, Network performance, Network performance monitoring
Hello,

Our companies network and shared network drives has become majorly disorganized. I was wondering if anyone had ideas on how to check computers on the network and view what networked drives they have in My Computer.

Thank you for the input
ASKED: Apr 20 2009  3:29 PM GMT
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
RELATED QUESTIONS
0
Carlosdl
29340 pts.
0
A:
 RATE THIS ANSWER
0
Click to Vote:
  •   1
  •  -1
  • AddThis Social Bookmark Button
With enough privileges (E.g. you're Domain Admin) you might be able to perform a NET VIEW \\COMPUTERNAME and see which shares the computers have

------------------

Here's an script that could help. Just create a new vbs file with this code:

strComputer="***** PUT THE COMPUTER NAME 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


See this thread, where this script was originally posted.
Last Answered: Apr 28 2009  10:42 PM GMT by Carlosdl   29340 pts.
Latest Contributors: Alessandro.panzetta   9615 pts.
  •   
0
0
RSS - Discussions Help
Discuss This Answer:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _



_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

KevinBeaver   7385 pts.  |   Apr 21 2009  12:10AM GMT

You can try running an authenticated scan (logged-in as administrator) using GFI LANguard or, if I remember correctly, SuperScan version 4.

 
0