Извлечь программу запуска среды для пользователя локального сервера? - PullRequest
Новая
       33

Извлечь программу запуска среды для пользователя локального сервера?

0 голосов
/ 06 октября 2011

Я использую 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

Можно ли прочитать путь «Среда -> Запуск программы»?

enter image description here

1 Ответ

1 голос
/ 05 сентября 2012

Информация, которую вы ищете, поступает из ADSI, поэтому я немного искал и нашел эту ссылку на virtualizationadmin.com. В ней представлена ​​хорошая таблица, показывающая, какие поля на вкладке «Active Directory - пользователи и компьютеры» соответствуют их атрибутам для использования в сценарии (batch, vbs и т. Д.).

Имея эту информацию в руках, activexperts.com предоставляет отличный пример 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
...