Help for this page
$User=Win32::OLE-> GetObject("WinNT://wsi/$username", "user");
$User=Win32::OLE->GetObject("WinNT://wsi/$username", "user");