Update HomeDirectory Using Win32::Ole

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Perl Version: Activestate 5.6.1, Environment: Windows 2003 running NTEmulation

Problem:

I'm trying to convert some VBScript code to Perl. Specifically, I'm trying to change the home directory path for some users.

Vbscript Code:

Set User = GetObject("WinNT://Domain/" & username & ",user")
    User.HomeDirectory = "\\server\homeshare"
    User.SetInfo
[download]

Perl Code:

$User=Win32::OLE-> GetObject("WinNT://wsi/$username", "user");
#Reports error - not allowed $User->HomeDirectory="\\server\homeshare"
+;
#Doesn't Work $update=$User->HomeDirectory("\\server\homeshare");
$set=$update->SetInfo;
[download]

How should the vbscript function, User.HomeDirectory = "\\server\homeshare" be written in Perl?

Any help would be much appreciated.

Comment on Update HomeDirectory Using Win32::Ole Select or Download Code

Replies are listed 'Best First'.
Re: Update HomeDirectory Using Win32::Ole by ikegami (Patriarch) on Jun 07, 2005 at 01:01 UTC
A found a few problems. According to you VB snippet, ",user" is appended to the first string; it's not a seperate argument. `Win32::OLE->GetObject("WinNT://wsi/$username", "user");` should be `Win32::OLE->GetObject("WinNT://wsi/$username,user");` Don't forget to double backslashes in hard-coded strings. `"\\server\homeshare"` should be `"\\\\server\\homeshare"` HomeDirectory is proably a property, not a method, so `$User->HomeDirectory("\\server\homeshare");` should be `$User->{HomeDirectory} = "\\\\server\\homeshare";` Unfortunately, that doesn't seem to be enough. `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;` [download] But that's probably cause I'm not running a compatible platform. MSDN says this interface is only available on Windows 2000 Server and Windows Server 2003, which I don't have.	[reply] [d/l] [select]
Re^2: Update HomeDirectory Using Win32::Ole by bart (Canon) on Jun 07, 2005 at 05:16 UTC
HomeDirectory is proably a property, not a method, so `$User->HomeDirectory("\\server\homeshare");` [download] should be `$User->{HomeDirectory} = "\\\\server\\homeshare";` [download] Win32::OLE uses a lot of `AUTOLOAD` magic, so both might be exchangeable. Well, at least, I do think the accessor version of the property without parameters, is equivalent to just reading the property: `$home = $User->HomeDirectory();` [download] vs. `$home = $User->{HomeDirectory};` [download]	[reply] [d/l] [select]
Re: Update HomeDirectory Using Win32::Ole by johnnywang (Priest) on Jun 07, 2005 at 06:11 UTC
The module Win32::NetAdmin has a method `UserSetAttributes(server, userName, password, passwordAge, privilege, +homeDir, comment, flags, scriptPath)` [download] for doing that (the homeDir parameter).	[reply] [d/l]
Re: Update HomeDirectory Using Win32::Ole by DaWolf (Curate) on Jun 07, 2005 at 09:06 UTC
I've noticed that you have a blank space in your perl code: So, where you have: `$User=Win32::OLE-> GetObject("WinNT://wsi/$username", "user");` [download] It should be: `$User=Win32::OLE->GetObject("WinNT://wsi/$username", "user");` [download] Just my 2 cents. Er Galvão Abbott www.galvao.eti.br Porto Alegre Perl Mongers	[reply] [d/l] [select]
Re: Update HomeDirectory Using Win32::Ole by Anonymous Monk on Jun 07, 2005 at 16:38 UTC
Thanks everyone for your help. The below code works: `$User=Win32::OLE->GetObject("WinNT://Domain/$user", "user"); $User->{HomeDirectory}="$homedir"; $user->SetInfo;` [download] Thanks again.	[reply] [d/l]