Win32API::Net::UserGetInfo($server, Win32::LoginName(), 2, $userinfo); if ($userinfo) { return $userinfo->{homeDir}; }