VbScript脚本

'在指定路径创建一个360极速浏览器的快捷方式
Set WshShell = WScript.CreateObject("WScript.Shell")
appdataDir = WshShell.SpecialFolders("APPDATA") '获取"程序数据"目录
currentDir = WshShell.CurrentDirectory '获取脚本当前目录
desktopDir = WshShell.SpecialFolders("Desktop") '获取"桌面"文件夹目录
taskbarDir = appdataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
CreateLnk(desktopDir)	'桌面快捷

'在指定路径创建一个360极速浏览器的快捷方式
Sub CreateLnk(str)
	Set oShellLink = WshShell.CreateShortcut(str & "\360极速浏览器.lnk")
	oShellLink.TargetPath = currentDir & "\360chrome.exe" '目标
	oShellLink.WindowStyle = 3 '参数1默认窗口激活，参数3最大化激活，参数7最小化
	oShellLink.Description = "360极速浏览器快捷方式" '备注
	oShellLink.WorkingDirectory = str '起始位置
	oShellLink.Save '创建保存快捷方式
End Sub

' 删除脚本自身
Set fso = CreateObject("Scripting.FileSystemObject") 
f = fso.DeleteFile(WScript.ScriptName)