само подсказвам, не е пълно решение:

Set objConnection = GetObject("WinNT://NETBIOS_COMPUTER_NAME/LanmanServer")

Set colResources = objConnection.Resources

'на мястото на NETBIOS_COMPUTER_NAME да се въведе името на компютъра

For Each objResource in colResources

    Wscript.Echo "Path: " & objResource.Path

    Wscript.Echo "User: " & objResource.User

    Wscript.Echo

Next