удаление ряда ярлыков с рабочего стола

[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, Теги форума (http://forum.oszone.net/misc.php?do=bbcode).

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]

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

[morozov_s_v]

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

[Iska]

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