Setting Terminal Server User Profile Settings

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

I need help setting some Terminal Server user profile settings on a 2008 Server machine. In particular, I want to uncheck the "Connect client drives at logon" checkbox. If I were a Windows hacker (which I admit, I'm not), I would apparently have to use the IADsTSUserEx interface described here http://msdn.microsoft.com/en-us/library/aa380823(VS.85).aspx

I don't understand how to do that with Perl.

What I was trying and failing with was:

$user->SetProperty('msTSConnectClientDrives', 0);
$user->SetInfo();
[download]

where $user is a Win32::OLE object I created in Active Directory through LDAP.

I get the error:

Win32::OLE(0.1709) error 0x8007200b: "The attribute syntax specified to the directory service is invalid"

Comment on Setting Terminal Server User Profile Settings Download Code

Replies are listed 'Best First'.
Re: Setting Terminal Server User Profile Settings by Anonymous Monk on May 13, 2011 at 17:41 UTC
What I was trying and failing with was By my understanding, you're doing it right, maybe you want to try alternate forms of SetProperty? Or maybe try Win32::OLE wrapper Win32::AD::User? For learning about Win32/OLE, I've accumulated this list of links :) Win32::OLE The behavior of Win32::OLE->new Using Win32::OLE and Excel - Tips and Tricks http://www.perl.com/pub/a/2005/04/21/win32ole.html, Re: perl library for controlling Windows GUI (like AutoIt) Re: Write to WIndows Event Log Re: How to get location of Desktop folder on Win32 Read and write Windows "shortcut" links Where is the Win32::OLE Docs Using Win32::GuiTest WinSpy OLESPY Win32::OLE - Type Library Browser http://www.microsoft.com/com/ OLE/COM Object Viewer (oleview.exe) Scriptomatic 2.0 #develop Office Automation with Perl How do I convert a VBA macro to Perl? OLE withevents site:perlmonks.org Excel Object Model Overview	[reply]
Re^2: Setting Terminal Server User Profile Settings by ToolHack (Novice) on May 13, 2011 at 21:04 UTC
Thanks for the links. I've read most of them. I'm not sure what alternate forms of SetProperty means. There is a form that takes @ARGS as a parameter before the value you want to set, but I have no idea what that is for. I have tried setting different values: `SetProperty("msTSConnectClientDrives", 0); SetProperty("msTSConnectClientDrives", 'No'); SetProperty("msTSConnectClientDrives", 'False'); SetProperty("msTSConnectClientDrives", Variant(VT_BOOL,0));` [download] Only the last one does not give an error, but it also doesn't change the check box. I have been able to set other TS properties. For example, TerminalServicesHomeDirectory. None of the ones that start with msTS* work though. Maybe there is a different name I should be using?	[reply] [d/l]
Re^3: Setting Terminal Server User Profile Settings by Anonymous Monk on May 13, 2013 at 08:08 UTC
I'm not sure what alternate forms of SetProperty means. Well, if you read Win32::OLE SetProperty documentation it discusses masking, so if the object you're working with has a SetProperty method, it will conflict with Win32::OLE's method, so you have to use $obj->Invoke('SetProperty', @args )	[reply]
Re^2: Setting Terminal Server User Profile Settings by Anonymous Monk on Oct 31, 2012 at 10:00 UTC
Automated GUI Testing - Perl.com	[reply]
Re: Setting Terminal Server User Profile Settings by natxo (Scribe) on May 15, 2011 at 20:07 UTC
I think you could use Win32::Lanman for that (http://www.cpan.org/authors/id/J/JH/JHELBERG/ ) provided you can still install it in a modern Perl installation. Otherwise, use the terminal server command (tscmd) from systemtools.com (http://www.systemtools.com/cgi-bin/download.pl?tscmd) in your script.	[reply]
Re^2: Setting Terminal Server User Profile Settings by ToolHack (Novice) on May 18, 2011 at 14:44 UTC
I'd rather not depend on a 3rd party tool for this. I'll see if Lanman can do the job. Notice I don't consider Perl as 3rd party. ;-) Thanks.	[reply]
Re^3: Setting Terminal Server User Profile Settings by ToolHack (Novice) on May 18, 2011 at 20:19 UTC
Doesn't look like Lanman is supported on Perl 5.10...	[reply]
Re^4: Setting Terminal Server User Profile Settings by natxo (Scribe) on Jun 02, 2011 at 19:32 UTC

Back to Seekers of Perl Wisdom