use strict;
use warnings;

use Win32::OLE ();

my $user_name = 'Administrator';

my $user = Win32::OLE->GetObject("WinNT://wsi/$user_name,user")
or die("\$user is undef\n");  # <---- dies here

print($User->{HomeDirectory}, "\n");

# $user->{HomeDirectory} = "\\\\server\\homeshare";
# $user->SetInfo;