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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Windows NT/2000/2003 (http://forum.oszone.net/forumdisplay.php?f=5)
-   -   Добавление ярлыков в групповой политике (http://forum.oszone.net/showthread.php?t=135845)

boalni 25-03-2009 17:22 1074529
Добавление ярлыков в групповой политике
 
Здравтвуйте!!!
Подскажите,как можно с помощью групповых политик добавить ярлыки на рабочий стол пользователям домена.
И еще ,как можно сделать так,чтобы пользователи домена,с правами пользователя ,могли устанавливать программы,а точнее конфигурации 1С.

artem_ 25-03-2009 17:34 1074546
Цитата:
Цитата boalni
очнее конфигурации 1С. »
их не обязательно устанавливать.

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

boalni 25-03-2009 17:43 1074558
Ну просто компания занимается франчайзи 1С.И пользователи постоянно устанавливают конфигурации.так что не очень удобно постоянно устанавливать

artem_ 25-03-2009 17:51 1074569
Тогда понятно - они у вас типа програмеры. В таком случаи вам придется им дать побольше прав. Придется давать права локальных админов.

Для этого можно пойти 2 путями добавить в локальную группу Администраторы доменного пользователя, которому вы хотите дать админские права на комп или же через групповые политики при помощи Групп с ограниченным доступом .

boalni 25-03-2009 18:39 1074606
Вот первым пользуюсь,ну тут хватанул вирус ,и теперь мне не охота им давать админов.Так ,что ищу обходные маневры.
Спасибо за ссылку.Завтра попробуем.
А с ярлыками никак?

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

artem_ 25-03-2009 19:13 1074639
или так


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 1076108
или так

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

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

boalni 27-03-2009 14:16 1076191
а как создать этот скрипт?В какой-то определенной программе или в обычном блокноте?

Lex7er 27-03-2009 16:02 1076320
В блокноте, только расширение файла измени см txt на vbs.

boalni 30-03-2009 13:28 1078886
Правильно я прописал?

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 1078907
попробуй вот так:

Код:
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 1078926
что-то не получается.На рабочем столе пользователя белый экран

artem_ 30-03-2009 13:57 1078934
Цитата:
Цитата Lex7er
WorkingPath = oShell.SpecialFolders("\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\") »
поменяйте на
WorkingPath = "\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\"

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

Lex7er 30-03-2009 15:25 1079042
Цитата:
сделал так,и чето все равно не применяется
скрипт работает если его вручную запустить, ярлык создается?

boalni 03-04-2009 10:13 1082836
нет,не работает и вручную


Время: 08:30.

Время: 08:30.
© OSzone.net 2001-