检索本地服务器用户的环境启动程序？答案

【问题标题】：Retrieving the Environment Starting Program for a Local Server user?检索本地服务器用户的环境启动程序？
【发布时间】：2011-10-06 17:58:38
【问题描述】：

我正在使用vbscript 检索本地用户帐户详细信息。该脚本使用Win32_Account。

该脚本的摘录：

If (bWMILocalAccounts) Then
    ReportProgress " Gathering local users"
    Set colItems = objWMIService.ExecQuery("Select Description, Name, FullName, LocalAccount from Win32_UserAccount Where Domain='" & strComputerSystem_Name & "'",,48)
    Set objDbrLocalAccounts = CreateObject("ADOR.Recordset")
    objDbrLocalAccounts.Fields.Append "Description", adVarChar, MaxCharacters
    objDbrLocalAccounts.Fields.Append "UserName", adVarChar, MaxCharacters

是否可以读取“环境->启动程序”路径？

【问题讨论】：

标签： vbscript windows-server-2003

【解决方案1】：

您要查找的信息来自 ADSI，所以我搜索了一下，在 virtualizationadmin.com 上找到了这个link。它提供了一个漂亮的表格，显示 Active Directory 用户和计算机选项卡中的哪些字段与其属性匹配，以便在脚本（批处理、vbs 等）中使用。

有了这些信息，activexperts.com gives a great sample VBScript 将显示此信息，复制到此处，您可以在脚本中使用这些信息。

Set objUser = GetObject _
  ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")

intConnectClientDrivesAtLogon = objUser.ConnectClientDrivesAtLogon
intConnectClientPrintersAtLogon = objUser.ConnectClientPrintersAtLogon
intDefaultToMainPrinter = objUser.DefaultToMainPrinter
strTerminalServicesInitialProgram = objUser.TerminalServicesInitialProgram
strTerminalServicesWorkDirectory = objUser.TerminalServicesWorkDirectory

WScript.echo "ConnectClientDrivesAtLogon: " & intConnectClientDrivesAtLogon
WScript.echo "ConnectClientPrintersAtLogon: " & _
    intConnectClientPrintersAtLogon
WScript.echo "DefaultToMainPrinter: " & intDefaultToMainPrinter
WScript.echo "TerminalServicesInitialProgram: " & _
    strTerminalServicesInitialProgram 
WScript.echo "TerminalServicesWorkDirectory: " & _
    strTerminalServicesWorkDirectory

【讨论】：