CODE: [Copy to clipboard]
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run "%comspec% /c regedit /s C:\windows\mod_reg.reg",0,true
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk")
oShellLink.TargetPath = "D:\backup\qq\QQ.exe"
oShellLink.WindowStyle = 2
oShellLink.Hotkey = ""
oShellLink.IconLocation = "D:\backup\qq\QQ.exe, 0"
oShellLink.Description = ""
oShellLink.WorkingDirectory = "D:\backup\qq"
oShellLink.Save
set fso=wscript.createobject("scripting.filesystemobject")
fso.deletefile "C:\windows\mod_reg.reg"
fso.deletefile "C:\Docume~1\Administrator\「开始」菜单\程序\启动\mod_reg.vbs"