Script to show other machines mapped drives

[rmgates]

We have a simple script to input a machine name and list that machines mapped drives:

strComputer = "computername"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDrives = objWMIService.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 4")
For Each objDrive in colDrives
Wscript.Echo "Drive letter: " & objDrive.DeviceID
Wscript.Echo "Network path: " & objDrive.ProviderName
Next

If I run and neter my machine it returns info, when I run for any other machine on domain, it returns nothing. Rghts/permission issue?
Ideas?

 

[Geates]

Not sure. I believe the Win32_LogicalDisk method only enumerates those drives that were mapped using the WMI or manually via the Windows environment. I like to enumerate the current user's Network reg key.

CONST HKCU = &H80000001
strComputer = "somename"
set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objReg.EnumKey HKCU, "Network", arrDriveLetters

for each strDriveLetter in arrDriveLetters
   objReg.GetStringValue HKCU, "Network\" & strDriveLetter, "RemotePath", strPath
   msgbox "Drive Letter: " & strDriveLetter & vbNewLine & "Path: " & strPath
next

-Geates

"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer

 

[guitarzan]

Apparently it's tricky to get mapped drives from remote machines.

The script here gets the job done by looking at registry for the logged-in user; seems like a klunky way to go, but I haven't seen a better way yet.

http://gallery.technet.microsoft.com/scriptcenter/3dd6af3e-edfa-4581-bc35-805314f26bb8