纯脚本创建桌面快捷方式
不要拿来做坏事哟。新建一个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
个人网站:生活百科
本文版权所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。