Показать сообщение отдельно
Старый 21.02.2007, 14: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 вне форума
 
Ответить с цитированием Вверх
Сказали спасибо:
 
Время генерации страницы 0.08158 секунды с 9 запросами