[Iska]

Пробуйте так:

Код:

Option Explicit

With WScript.CreateObject("WScript.Shell").CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:desktop").self.Path & "\Поиск в Google.lnk")
	.TargetPath   = "%ProgramFiles%\Internet Explorer\iexplore.exe"
	.Arguments    = "http://google.com/"
	.WindowStyle  = 1
	.Hotkey       = "CTRL+SHIFT+G"
	.IconLocation = "SHELL32.dll,220"
	.Description  = "Запустить поисковик"
	.Save
End With

WScript.Quit 0