Hola
Lo del VBscript no lo controlo, pero crear algo así en VB6 sería algo parecido a:
Código vb:
Ver originalDim sDesk As String
Dim lFNum As Long
Dim oShell As New IWshShell_Class
sDesk = oShell.SpecialFolders.Item("MyDocuments")
lFNum = FreeFile
Open sDesk & "\" & "GOOGLE" & ".url" For Output As lFNum
Print #lFNum, "[InternetShortcut]"
Print #lFNum, "URL=" & "www.google.es"
Close #lFNum
Set oShell = Nothing
Puedes cambiar el MyDocuments por Desktop para crearlo en el escritorio en lugar de en Mis Documentos. Recuerda que para que funcione tienes que agregar la referencia Windows Script Host Object Model.
Espero que te sea útil.
P.D. Código obtenido de
http://www.thescarms.com
--Saludos--