$target = Win32::OLE-> GetObject("WinNT://$server");
print "OLE Error: ".Win32::OLE->LastError)."\n";
$user = $target-> Create("user", wacka);
print "OLE Error: ".Win32::OLE->LastError)."\n";
$set=$user->SetInfo;