This will list ALL shares. Using this you could do an InStr check for a specific user name if your user folders are named using the users logonID

Code:

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
 

Dim $sComputer,$Servers,$objWMIService,$colShares,$objShare,$File,$Report
$sComputer='msef002'
$objWMIService = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\" + $sComputer + "\root\cimv2")
$colShares = $objWMIService.ExecQuery("Select * from Win32_Share")
For Each $objShare In $colShares
  $sComputer + " " + $objShare.Name + ' Path: ' + $objShare.Path ?
Next