纯脚本创建桌面快捷方式

最近在看关于wmi的书，深深感觉wscript的危害之大。这里将书上提到的一些应用的例程放上来，大家鉴赏一下，可

不要拿来做坏事哟。新建一个vbs脚本文件。键入下面的内容

call testwmi()

function testwmi()
dim objShell

set objShell = WScript.CreateObject("WScript.Shell")
dim strDesktop

strDesktop = objShell.SpecialFolders("Desktop")

'now, we can create shortcuts on the desktop
'let's do Internet Explorer

dim objShortcut

set objShortcut= objShell.CreateShortcut(strDesktop & "\IE.lnk")

 

     objShortcut.TargetPath = "iexplore.exe"

     objShortcut.WindowStyle = 1

     objShortcut.Hotkey = "CTRL+SHIFT+I"

     objShortcut.Description = "Launch Internet Explorer"

     objShortcut.WorkingDirectory = strDesktop

     objShortcut.Save

'let's create a link to my home page

dim objURL
set objURL = objShell.CreateShortcut(strDesktop & "\webtrados.url")
objURL.TargetPath = "http://www.iwebtrados.com.cn/"
objURL.Save
end function

转载于:https://www.cnblogs.com/webtrados/archive/2009/08/07/1541516.html

总结

以上是生活随笔为你收集整理的纯脚本创建桌面快捷方式的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。