I found a solution.
Here's the action:
{actionpath}homeDir.vbs "{cn}"
Here's the VBS named homeDir.vbs:
If WScript.Arguments.Count = 1 Then
struser= WScript.Arguments(0)
Set objUser = GetObject("LDAP://" & struser)
strHD = objUser.Get("homeDirectory")
Set shell = wscript.CreateObject("Shell.Application")
shell.Open strHD
end if
I hope it's useful to some.
Jono