Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - удаление ряда ярлыков с рабочего стола

Ответить
Настройки темы
VBS/WSH/JS - удаление ряда ярлыков с рабочего стола

Пользователь


Сообщения: 147
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: morozov_s_v
Дата: 15-05-2013
Всем здрасти.
Есть парк ПК на них Win XP SP3 ru и Win 7.
Есть задача по удалению ряда ярлыков с рабочих столов пользователей.
так вот например некоторые ярлыки могут неудаляться или через какое то время удаляться после запуска скриптика в чем может быть причина не понимаю.
сам я только только начинаю вникать в VBS так что не судите строго, а лучше помогите пожалуйста.
вот скрипт какой я использую:
--------------------

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'-----------Удаление ярлыков OBMEN на раб. столах ------------------
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\obmen на server2.lnk", True
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'---- Удаление " obmen (server2).lnk " с раб стола.--------------------
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\obmen (server2).lnk", True
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'---- Удаление " obmen.lnk " с раб стола.--------------------
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\obmen.lnk", True
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'---- Удаление " -=Декларация_2011=-.lnk " с раб стола.--------------------
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\-=Декларация_2011=-.lnk", True
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'-----------Удаление ярлыков 2GIS на раб. столах ------------------
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\Ярлык для grym.exe.lnk", True
'////////////////////////////////////////////////////////////////////////////
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
fso.DeleteFile strDesktop & "\Ярлык для grym.lnk", True
--------------------

Отправлено: 09:25, 15-05-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

morozov_s_v, Теги форума.

Код: Выделить весь код
Option Explicit

Dim objFSO
Dim strPath2Desktop
Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	strPath2Desktop = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
	
	For Each strFile In Array( _
			"obmen на server2.lnk", _
			"obmen (server2).lnk", _
			"obmen.lnk", _
			"-=Декларация_2011=-.lnk", _
			"Ярлык для grym.exe.lnk", _
			"Ярлык для grym.lnk" _
		)
		
		strPath = .BuildPath(strPath2Desktop, strFile)
		
		If .FileExists(strPath) Then
			.DeleteFile strPath, True
		End If
	Next
End With

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:23, 15-05-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 147
Благодарности: 0

Профиль | Отправить PM | Цитировать

спасибо вам.

Цитата Iska:
Iska Iska сейчас на форуме »

Может вы сможетет подсказать как сократить скрипт при создании ну например подобных ярлыков с указание пути к запускающему файлу ?

Отправлено: 14:25, 17-05-2013 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата morozov_s_v:
Может вы сможетет подсказать как сократить скрипт при создании ну например подобных ярлыков с указание пути к запускающему файлу ? »
Пожалуйста, ещё раз, и по-русски.

Отправлено: 14:42, 17-05-2013 | #4


Пользователь


Сообщения: 147
Благодарности: 0

Профиль | Отправить PM | Цитировать

ну есть необходимость создать 5 ярлыков от запускающих файлов разных программ на рабочем столе. так вот есть ли возможность их создать так же сразу все ?

Отправлено: 16:02, 17-05-2013 | #5


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата morozov_s_v:
есть ли возможность их создать так же сразу все ? »
Вопрос не понятен. А можно как-то не все, или не сразу? Какая иная трактовка противопоставляется фразе «создать так же сразу все»?

Отправлено: 17:12, 17-05-2013 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - удаление ряда ярлыков с рабочего стола

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Не видит ярлыков Рабочего стола InSi-19 Microsoft Windows 2000/XP 11 19-10-2013 15:35
Интерфейс - [решено] Пропали рисунки ярлыков рабочего стола akalibr Microsoft Windows 2000/XP 2 18-02-2012 05:00
Интерфейс - Тень под названием ярлыков рабочего стола surgutfred Microsoft Windows Vista 1 05-12-2011 16:18
Интерфейс - [решено] Переодически меняются картинки ярлыков рабочего стола и меню пуск. ser_d Microsoft Windows 2000/XP 3 30-11-2011 22:23
Интерфейс - [решено] прозрачность подписей ярлыков рабочего стола vav535 Microsoft Windows 7 2 15-11-2009 21:46


« Предыдущая тема | Следующая тема »


 
Переход