不要拿来做坏事哟。新建一个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