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

##</code><code>##

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