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

[morozov_s_v]

Всем здрасти.

Есть парк ПК на них 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

--------------------

[Iska]

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

[morozov_s_v]

спасибо вам.




Цитата Iska:



Iska Iska сейчас на форуме

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

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

[Iska]

Цитата morozov_s_v:



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

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

Пожалуйста, ещё раз, и по-русски.

[morozov_s_v]

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

[morozov_s_v]

Цитата morozov_s_v:



есть ли возможность их создать так же сразу все ?

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

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