удаление ряда ярлыков с рабочего стола - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - удаление ряда ярлыков с рабочего стола (http://forum.oszone.net/showthread.php?t=260582)

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

Всем здрасти.
Есть парк ПК на них 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
--------------------

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

спасибо вам.

Цитата:

Цитата Iska

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

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

Цитата:

Цитата morozov_s_v

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

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

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

Цитата:

Цитата morozov_s_v

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

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