Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Windows NT/2000/2003 (http://forum.oszone.net/forumdisplay.php?f=5)
-   -   [решено] Среда пользователей в терминальном сервере WinSrv 2003 (http://forum.oszone.net/showthread.php?t=132178)

FuNkY_PePPeR 16-02-2009 19:47 1040466

Среда пользователей в терминальном сервере WinSrv 2003
 
Имеется AD, несколько терминальных серверов под управлением WinSrv 2003. Появилась необходимость определенным пользователям при входе на определенные сервера запускать определенную программу. Если задавать Enviroment/Среда в настройках пользователя, то при заходе на все терминальные сервера идет попытка запустить одну программу, но надо в зависимости от сервера запускать разные программы. Пока пришла мысль приготовить комплект ярлыков подключения mstsc по одному на каждый сервер и в них задать программу, но в этом случае особо умный пользователь догадается убрать галочку и все. Возможно ли реализовать данную затею через AD или скрипты?

Delirium 17-02-2009 02:18 1040797

Цитата:

Цитата FuNkY_PePPeR
Появилась необходимость определенным пользователям при входе на определенные сервера запускать определенную программу »

Цитата:

Цитата FuNkY_PePPeR
Возможно ли реализовать данную затею через AD или скрипты »

А что мешает сделать так: на серваке есть несколько bat файлов(по количеству серверов). А всем пользователям прописан 1 bat файл, который будет выполняться при входе с примерно таким текстом:
if %computername% = 'Server1' then start server1.bat ну и так далее.

artem_ 17-02-2009 10:57 1041020

Код:

V8EXEPATH = "C:\Program Files\1cv8\bin\1cv8.exe"
V8DBPATH  = "C:\acd_data\1c\credits"

V7EXEPATH = "C:\Program Files\1Cv77\BIN\1cv7s.exe"
V7DBPATH  = "C:\1C\1c_BASES\BUH_77"

Set WshNetwork = CreateObject("WScript.Network")
CompName = LCase(WshNetwork.ComputerName)

If CompName = "appserv1" Then

        ' запускаем 1с8
        param = " ENTERPRISE /F" & V8DBPATH
        Set WshShell = CreateObject("WScript.Shell")       
        WshShell.Exec( V8EXEPATH & param )

Else
        ' запускаем 1с7
        param = " ENTERPRISE /D" & V7DBPATH
        Set WshShell = CreateObject("WScript.Shell")       
        WshShell.Exec( V7EXEPATH & param )
End If

Я вот так с этим разобрался на одном серваке запускается 1с 8, а на другом запускается 1с7.


Время: 01:57.

Время: 01:57.
© OSzone.net 2001-