[问题求助] VBS怎样对指定程序生成的快捷方式进行隐藏和加权限？

rkenshin

求一对指定程序生成的快捷方式进行隐藏和加权限

有个程序会自动在桌面上生成一个快捷方式。快捷方式的名字是随机的。快捷方式的路径为"c:\windows\file.exe HFDH434636" 前面的路径是固定。后面跟了一串随机的代码。要求是隐藏这个快捷方式。并赋予权限为everyone完全拒绝。。找了一段VBS可以实现功能。

Wscript.Sleep 3000
set fso=wscript.createobject("scripting.filesystemobject")
set WshShell = WScript.CreateObject("WScript.Shell")
set f=fso.getfolder(WshShell.SpecialFolders("Desktop"))
set fs=f.files
for each f1 in fs
set file=fso.getfile(f1)
if right(file.name,4)=".lnk" then
set oShellLink=WshShell.CreateShortcut(file.name)
if oShellLink.Targetpath = "C:\WINDOWS\file.exe" THEN
fso.GetFile(file.name).Attributes = 2
WshShell.Run ("cacls """ & file.name & """ /e /c /d everyone"), vbHide
end if
end if
next
复制代码

但是这段代码有个缺点。一定要快捷方式和VBS放在同一目录下。。有没有高手能帮我改进一下？我只要隐藏桌面上的快捷方式。这个VBS我要放在其它的位置运行。
在线等 。

s700800900

Wscript.Sleep 3000
set fso=wscript.createobject("scripting.filesystemobject")
set WshShell = WScript.CreateObject("WScript.Shell")
set f=fso.getfolder(WshShell.SpecialFolders("Desktop"))
set fs=f.files
for each f1 in fs
set file=fso.getfile(f1)
if right(file.path,4)=".lnk" then
set oShellLink=WshShell.CreateShortcut(file.path)
if oShellLink.Targetpath = "C:\WINDOWS\file.exe" THEN
fso.GetFile(file.path).Attributes = 2
WshShell.Run ("cacls """ & file.path & """ /e /c /d everyone"), vbHide
end if
end if
next
复制代码