Добавление ярлыков в групповой политике [Версия для КПК]

boalni

25-03-2009, 17:22

Здравтвуйте!!!
Подскажите,как можно с помощью групповых политик добавить ярлыки на рабочий стол пользователям домена.
И еще ,как можно сделать так,чтобы пользователи домена,с правами пользователя ,могли устанавливать программы,а точнее конфигурации 1С.

artem_

25-03-2009, 17:34

очнее конфигурации 1С. »
их не обязательно устанавливать.

Создаете шару. У себя на компе устанавливаете конфу (процесс установки это просто распаковка файлов в определенный каталог). То, что распаковалось копируете в шару и пускай забирают.

boalni

25-03-2009, 17:43

Ну просто компания занимается франчайзи 1С.И пользователи постоянно устанавливают конфигурации.так что не очень удобно постоянно устанавливать

artem_

25-03-2009, 17:51

Тогда понятно - они у вас типа програмеры. В таком случаи вам придется им дать побольше прав. Придется давать права локальных админов.

Для этого можно пойти 2 путями добавить в локальную группу Администраторы доменного пользователя, которому вы хотите дать админские права на комп или же через групповые политики при помощи Групп с ограниченным доступом (http://technet.microsoft.com/ru-ru/library/cc785631.aspx).

boalni

25-03-2009, 18:39

Вот первым пользуюсь,ну тут хватанул вирус ,и теперь мне не охота им давать админов.Так ,что ищу обходные маневры.
Спасибо за ссылку.Завтра попробуем.
А с ярлыками никак?

okamen

25-03-2009, 19:01

В логонскрипте прописываешь copy file1.lnk c:\documents and settings\%username%\desktop\file1.lnk
Как то так, но думаю должно работать :)

artem_

25-03-2009, 19:13

или так

ShortcutCopy.vbs

Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

sDestPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") ' путь к рабочему столу
sShortcutPath = "\\acd.local.org\NETLOGON\имя_ярлыка.lnk" ' путь к копируемому ярлыку

FSO.CopyFile sShortcutPath, sDestPath & "\"

Lex7er

27-03-2009, 12:22

или так

CreateShortcut.vbs

Set oShell = WScript.CreateObject("WScript.Shell")
DesktopPath = oShell.SpecialFolders("Desktop") -Месторасположение ярлыка
WorkingPath = oShell.SpecialFolders("Desktop") -Рабочая папка
Set oShortCut = oShell.CreateShortcut(DesktopPath & "\Shortcut.lnk") -Название ярлыка
oShortCut.TargetPath = "c:\program.exe" -Путь до исполняемого файла
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Save

boalni

27-03-2009, 12:23

Я недавно начал заниматься этим.Подскажите тупому ,а как это прописать.
Ну я имеею ввиду ,это обычный батник или что-то другое .И куда его вставлять

Lex7er

27-03-2009, 14:14

Создаешь скрипт vbs, выкладываешь в сетевую папку чтоб у пользователей был доступ на чтение. Далее в GPO->Конфигурация пользоветеля->Конфигурация Windows->Сценарии->Вход в систему, добавляешь этот скрипт в формате \\server\scripts\script1.vbs.

boalni

27-03-2009, 14:16

а как создать этот скрипт?В какой-то определенной программе или в обычном блокноте?

Lex7er

27-03-2009, 16:02

В блокноте, только расширение файла измени см txt на vbs.

boalni

30-03-2009, 13:28

Правильно я прописал?

Set oShell = WScript.CreateObject("WScript.Shell")
DesktopPath = oShell.SpecialFolders("Desktop") -\\ws200\For WS\Btk2008.lnk
WorkingPath = oShell.SpecialFolders("Desktop") -\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\
Set oShortCut = oShell.CreateShortcut(DesktopPath & "\Shortcut.lnk") -Btk2008.lnk
oShortCut.TargetPath = "c:\program.exe" -\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\Btk2008.exe
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Save

Lex7er

30-03-2009, 13:43

попробуй вот так:

Set oShell = WScript.CreateObject("WScript.Shell")
DesktopPath = oShell.SpecialFolders("Desktop")
WorkingPath = oShell.SpecialFolders("\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\")
Set oShortCut = oShell.CreateShortcut(DesktopPath & "\Btk2008.lnk")
oShortCut.TargetPath = "\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\Btk2008.exe"
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Save

Ярлык Btk2008.lnk создастся на рабочем столе пользователя и будет ссылаться на Btk2008.exe

boalni

30-03-2009, 13:54

что-то не получается.На рабочем столе пользователя белый экран

artem_

30-03-2009, 13:57

WorkingPath = oShell.SpecialFolders("\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\") »
поменяйте на
WorkingPath = "\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\"

boalni

30-03-2009, 14:44

поменял ,сделал так,и чето все равно не применяетсяСоздаешь скрипт vbs, выкладываешь в сетевую папку чтоб у пользователей был доступ на чтение. Далее в GPO->Конфигурация пользоветеля->Конфигурация Windows->Сценарии->Вход в систему, добавляешь этот скрипт в формате \\server\scripts\script1.vbs. »

Lex7er

30-03-2009, 15:25

сделал так,и чето все равно не применяется

скрипт работает если его вручную запустить, ярлык создается?