使用ASP.NET和VB更新终端服务配置文件AD属性 [英] Update terminal services profile AD attribute using ASP.NET with VB

问题描述

大家好，



希望你们一切顺利，我已经暂时解决了一段时间的问题，当我更新广告中的所有其他属性时这个代码是有效的，但是对于带有数组的终端服务配置文件（内置到AD中），我得到一个错误就是这样

Hi All,

Hope you are all doing well, i have been battlign with an issue for a while now, when i update all other attributes in ad using this code it works , however for the terminal services profile (which is built into AD ) with an array, i get a an erro as such

Unspecified error

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 

Exception Details: System.Runtime.InteropServices.COMException: Unspecified error

我的代码如下所示：

my code is like the following:

Dim LDAPUser = "domain\Administrator"
Dim LDAPPass = "MyPassword"
Dim CurrentComputerADLocation = "CN=User\, Test,OU=Users,DC=domain,DC=net"
Dim User As New System.DirectoryServices.DirectoryEntry("" + CurrentComputerADLocation + "", LDAPUser, LDAPPass)
        Dim ProDir = "\\\\FILESERVERTEST\\UserData$\\TestUser1"
        Dim RDProfile = "\\\\FILESERVERTEST2\\RD_tsprofiles$\\"
             Try
            User.InvokeSet("TerminalServicesProfilePath", "" + RDProfile + "")
            User.InvokeSet("TerminalServicesHomeDirectory", "" + ProDir + "")
            User.InvokeSet("TerminalServicesHomeDrive", "H:")
            User.CommitChanges()
            User.Close()
            LabelStatus.ForeColor = System.Drawing.ColorTranslator.FromHtml("#256fe8")
            LabelStatus.Text = "User Account has been successfully labelled"
        Catch InvOpEx As InvalidOperationException

            Console.WriteLine(InvOpEx.Message)
            LabelStatus.Text = InvOpEx.Message
        End Try

i甚至试过了一个invokeSet像这样的tatement但仍然得到相同的错误

i have even tried an invokeSet statement like this but still get same error

<br />
User.InvokeSet("TerminalServicesProfilePath", new object[] {RDProfile})<br />
User.InvokeSet("TerminalServicesHomeDirectory", new object[] {ProDir})<br />
User.InvokeSet("TerminalServicesHomeDrive", new object[] {"H:"})<br />

任何人都可以告诉我哪里出错了请



任何和所有帮助总是赞赏



谢谢

Robert



我尝试了什么：



i甚至尝试了这样的invokeSet语句，但仍然得到同样的错误

can anyone show me where i am going wrong please

any and all help is always appreciated

Thanks
Robert

What I have tried:

i have even tried an invokeSet statement like this but still get same error

User.InvokeSet("TerminalServicesProfilePath", new object[] {RDProfile})
User.InvokeSet("TerminalServicesHomeDirectory", new object[] {ProDir})
User.InvokeSet("TerminalServicesHomeDrive", new object[] {"H:"})
<pre>

推荐答案

\\TestUser1
Dim RDProfile = \\\\FILESERVERTEST2 \\\ \\ RD_tsprofiles

\\TestUser1" Dim RDProfile = "\\\\FILESERVERTEST2\\RD_tsprofiles

\\
尝试
User.InvokeSet（< span class =code-string> TerminalServicesProfilePath， + RDProf ile + ）
User.InvokeSet（ TerminalServicesHomeDirectory， + ProDir + ）
User.InvokeSet（ TerminalServicesHomeDrive， H：）
User.CommitChanges（）
User.Close（）
LabelStatus.ForeColor = System.Drawing.ColorTranslator.FromHtml（ ＃256fe8）
LabelStatus.Text = 用户帐户已成功标记为
Catch InvOpEx As InvalidOperationException

Console.WriteLine（InvOpEx.Message）
LabelStatus.Text = InvOpEx.Message
结束 尝试

\\" Try User.InvokeSet("TerminalServicesProfilePath", "" + RDProfile + "") User.InvokeSet("TerminalServicesHomeDirectory", "" + ProDir + "") User.InvokeSet("TerminalServicesHomeDrive", "H:") User.CommitChanges() User.Close() LabelStatus.ForeColor = System.Drawing.ColorTranslator.FromHtml("#256fe8") LabelStatus.Text = "User Account has been successfully labelled" Catch InvOpEx As InvalidOperationException Console.WriteLine(InvOpEx.Message) LabelStatus.Text = InvOpEx.Message End Try

i甚至试过像这样的invokeSet语句，但仍然得到同样的错误

i have even tried an invokeSet statement like this but still get same error

<br />
User.InvokeSet("TerminalServicesProfilePath", new object[] {RDProfile})<br />
User.InvokeSet("TerminalServicesHomeDirectory", new object[] {ProDir})<br />
User.InvokeSet("TerminalServicesHomeDrive", new object[] {"H:"})<br />

任何人都可以显示我在哪里出错了请



任何所有的帮助总是受到赞赏



谢谢

Robert



我尝试过：



i甚至尝试了这样的invokeSet语句，但仍然得到相同的错误

can anyone show me where i am going wrong please

any and all help is always appreciated

Thanks
Robert

What I have tried:

i have even tried an invokeSet statement like this but still get same error

User.InvokeSet("TerminalServicesProfilePath", new object[] {RDProfile})
User.InvokeSet("TerminalServicesHomeDirectory", new object[] {ProDir})
User.InvokeSet("TerminalServicesHomeDrive", new object[] {"H:"})
<pre>

这篇关于使用ASP.NET和VB更新终端服务配置文件AD属性的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！