use Win32::OLE;
my $password = Win32::OLE::CreateObject('user.ws');