标题: [问题求助] VBS怎样对指定程序生成的快捷方式进行隐藏和加权限? [打印本页]
作者: rkenshin 时间: 2011-9-12 11:14 标题: VBS怎样对指定程序生成的快捷方式进行隐藏和加权限?
求一对指定程序生成的快捷方式进行隐藏和加权限
有个程序会自动在桌面上生成一个快捷方式。快捷方式的名字是随机的。快捷方式的路径为"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 时间: 2011-9-13 08:19
- 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
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |