For Each N In CreateObject("Shell.Application").NameSpace(&H12).Items
	If N.IsFolder Then S = S & N.Name & vbTab & "|" & vbTab & N.Path & vbCr
Next : MsgBox S

Comp = "Andrey"  ' имя др. ПК
For Each Item In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select * from Win32_NetworkLoginProfile")
   Name = Item.Name
   If InStr(Name, Comp) Then
      MsgBox "Caption: " & Item.Caption & vbCr &_
      "Name: " & Name & vbCr &_
      "Full Name: " & Item.FullName & vbCr &_
      "Home Directory Drive: " & Item.HomeDirectoryDrive & vbCr &_
      "Workstations: " & Item.Workstations
      Exit For
   End If
Next