Компьютерный форум NoWa.cc
Правила Форума
редакция от 29.01.2013
Портал .::2Baksa.Net::. Трекер BRODIM.COM Фильмы HD Онлайн Форум вебкам моделей
Вернуться   Компьютерный форум NoWa.cc > Операционные системы > Microsoft Windows

Уважаемые пользователи nowa.cc и 2baksa.net. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 12 лет
и теперь вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney Z826074280762 Webmoney R087294265364 Webmoney U051530505194 Webmoney E804621616710
PayPal E-mail для связи / to Contact E-mail для связи по вопросу помощи / to Contact : E-mail для связи / to Contact
Кошелек для вашей помощи Yandex 410013204813773
Yandex Спасибо за поддержку!

Российский интернет-шлюз: контроль трафика, DLP, антивирус, fail2ban, прокси-сервер, шифрование данных, https-фильтрация. Сертификат ФСТЭК

загрузка...
Ответ
 
Опции темы Language
Старый 20.02.2007, 13:25   #1
Постоялец
 
Аватар для mishaProgr
 
Пол:Мужской
Регистрация: 17.10.2006
Сообщений: 200
Репутация: 55
По умолчанию Помогите созд. скрипт создания папки на рабочем столе.

Прошу людей помочь создать скрипт.
Он будет загружаться при входе компа в домен из политик. Я сам программер 1С и VB не знаю. Я написал маппирование диска на сетевой ресурс, но надо на рабочем столе(к сожалению юзеры плохо понимают что такое диск - а тыкают все на рабочий стол). А надо, что бы ходили на сетевую папку.
Итак задача:
Программа на VB, при входе проверяет набор прав юзера и его логин. Если набор не администратор то - далее проверяет - есть ли на рабочем столе папка с именем "Общие документы организации", если нет - создает с указанным именем и ссылка на \\SERVER\D\Global_Docs.

Кажется просто, но т.к. не знаю VB, то и написать затрудняюсь.
mishaProgr вне форума
 
Ответить с цитированием Вверх
Надежный китайский посредник Taobao.com


Реклама: заказ автобуса на 15 человекотели санкт петербургамодули 1 контролируемый вход fdci221http://neocinema.ru/nastennyie-akusticheskie-paneli.htmlудаление вмятины после града стоимость пушкино


Старый 20.02.2007, 14:37   #2
fylhtqrf
Постоялец
 
Пол:Мужской
Регистрация: 03.09.2005
Адрес: отдаленный район ссыльных каторжников
Сообщений: 243
Репутация: 42
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Канечна без папки на столе но с диском в "моем кокомпьютере"

Set obj=Createobject ("wscript.shell")
obj.run "net use z: \\SERVER\Global_Docs"

Эти две строки помещаем в файл с расширение vbs - и прикручиваем этот файл ко входу пользователя в AD В групповых политиках
и не забываем расшарить тока папку Global_Docs а не весь сервачный диск
затем cmd -> gpupdatе /force
затем на клиентской машине логинимся под пользователем 2 раза (чтобы политики гарантированно применились)
Вкратце вроде все
__________________
ВСе что мне нужно: доброе слово, теплая постель ..... и не ограниченная власть
fylhtqrf вне форума
 
Ответить с цитированием Вверх
Старый 20.02.2007, 15:30   #3
mishaProgr
Постоялец
 
Аватар для mishaProgr
 
Пол:Мужской
Регистрация: 17.10.2006
Сообщений: 200
Репутация: 55
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Так нет, я же написал, диск не катит - не рубят в дисках.
И хоть я программер 1С, но моих скромных возможностей по скипту на диски подключения чрез политики хватило.
Надо на рабочем столе. И с проверкой прав пользователя. И я знаю это можно делать.
Вот получение имени, домена, машины
user = wshNetwork.username
domain = wshNetwork.userdomain
WshNetwork.ComputerName
А как с правами
Кстати, диск мапируется проще WshNetwork.MapNetworkDrive "\\SERVER\Global_Docs", "Z", без использования внешнего вызова.
Рабочий стол можно через переменные окружения вызвать. Но дальше не знаю

Последний раз редактировалось mishaProgr; 20.02.2007 в 15:40..
mishaProgr вне форума
 
Ответить с цитированием Вверх
Старый 20.02.2007, 15:39   #4
mikle
Постоялец
 
Пол:Мужской
Регистрация: 25.12.2006
Сообщений: 561
Репутация: 184
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Цитата:
А как с правами

в связи с тем, что с правами довольно-таки геморно, я бы прям в тексте скрипта прописал сравнение с известными логинами админов (небось, не так уж и много в домене администраторов?)
mikle вне форума
 
Ответить с цитированием Вверх
Старый 20.02.2007, 15:44   #5
mishaProgr
Постоялец
 
Аватар для mishaProgr
 
Пол:Мужской
Регистрация: 17.10.2006
Сообщений: 200
Репутация: 55
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Согласен, отслежу юзера по логину, так как папку то на рабочем столе создать(предварительно проверив ее там наличие)?
mishaProgr вне форума
 
Ответить с цитированием Вверх
Старый 21.02.2007, 11:20   #6
mishaProgr
Постоялец
 
Аватар для mishaProgr
 
Пол:Мужской
Регистрация: 17.10.2006
Сообщений: 200
Репутация: 55
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Так что же все молчат то! Неужели никто не знает? Может на путь хоть укажите, например как получить рабочий стол?
mishaProgr вне форума
 
Ответить с цитированием Вверх
Старый 21.02.2007, 12:30   #7
fylhtqrf
Постоялец
 
Пол:Мужской
Регистрация: 03.09.2005
Адрес: отдаленный район ссыльных каторжников
Сообщений: 243
Репутация: 42
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Вот взял с сайта микрософта([Для просмотра ссылок требуется регистрация. Зарегистрироваться...] показывает перечень объектов на РАБОЧЕМ ДЕСКТОПЕ

Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path
Set colItems = objFolder.Items
For Each objItem in colItems
Wscript.Echo objItem.Name
Next
счас может еще ченибудь нарою
__________________
ВСе что мне нужно: доброе слово, теплая постель ..... и не ограниченная власть
fylhtqrf вне форума
 
Ответить с цитированием Вверх
Старый 21.02.2007, 13:53   #8
mishaProgr
Постоялец
 
Аватар для mishaProgr
 
Пол:Мужской
Регистрация: 17.10.2006
Сообщений: 200
Репутация: 55
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Буду весьма признателен
mishaProgr вне форума
 
Ответить с цитированием Вверх
Старый 21.02.2007, 15:26   #9
fylhtqrf
Постоялец
 
Пол:Мужской
Регистрация: 03.09.2005
Адрес: отдаленный район ссыльных каторжников
Сообщений: 243
Репутация: 42
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

А эта фигня создает ярлык на рабочем столе на "\\atl-finance-01\public"
по имени "Finance Department Public Folder"
Const NETHOOD = &H10&

Set objWSHShell = CreateObject("Wscript.Shell")
Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(NETHOOD)
Set objFolderItem = objFolder.Self
strNetHood = objFolderItem.Path

strShortcutName = "Finance Department Public Folder"
strShortcutPath = "\\atl-finance-01\public"

Set objShortcut = objWSHShell.CreateShortcut _
(strNetHood & "\" & strShortcutName & ".lnk")
objShortcut.TargetPath = strShortcutPath
objShortcut.Save
помоему то что нужно - осталось тока объеденить эти два сценария
__________________
ВСе что мне нужно: доброе слово, теплая постель ..... и не ограниченная власть
fylhtqrf вне форума
 
Ответить с цитированием Вверх
Ответ
 Уважаемые пользователи портала 2BakSa.NeT и форума NoWa.cc !

  Рады Вам сообщить, что у нас открылся Torrent трекер >> BRODIM.COM

  Приглашаем вас принять участие в обмене полезной информацией,

  и ждем от вас поддержки в создании новых раздач.

Опции темы

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Телепрограмма на рабочем столе burbakant Скорая помощь 4 29.03.2009 15:06
Надпись на рабочем столе KIT Архив 3 25.10.2006 12:51
Папка на рабочем столе Hyde Архив 4 24.09.2006 10:07
3D космос на рабочем столе CosmiC Архив 11 04.09.2006 16:22

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 17:33. Часовой пояс GMT +3.


Rambler's Top100
Copyright ©2004 - 2017 2Baksa.Net

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.14601 секунды с 10 запросами