VBSについて質問です。良い回答は200ポイント以上を差し上げます。

「出来ると思う」…　そんな言葉は使う必要がねーんだ
なぜなら　オレや　オレたちの仲間は　その言葉を頭の中に思い浮かべた時には！
実際にコードを書いちまって　もうすでにテストしちまってるからだッ！
だから　使った事がねェーーーッ！

const STARTUP_FILE = "test.url"
const STARTUP_URL  = "http://www.google.com"

set fso    = CreateObject("Scripting.FileSystemObject")
set wshell = CreateObject("WScript.Shell")
startUpPath = wshell.SpecialFolders("AllUsersStartup")

call RunAdmin

set sc = wshell.CreateShortcut(fso.BuildPath(startUpPath,STARTUP_FILE))
sc.TargetPath = STARTUP_URL
sc.Save

WScript.echo "end"

Sub RunAdmin()
	' 管理者権限に昇格　★AllUsersに書き込むのでWindowsVista以降では必須
	' WScript.Arguemnts.Count = 0:GUI 1:CUI
	do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7

	  ' Check WScript5.7~ and Vista~
	  Set wmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
	  Set os = wmi.ExecQuery("SELECT *FROM Win32_OperatingSystem")
	  For Each value in os
	    if left(value.Version, 3) < 6.0 then exit do  'Exit if not vista
	  Next
	 
	  ' Run this script as admin.
	  Set sha = CreateObject("Shell.Application")
	  sha.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas"
	 
	  WScript.Quit
	loop
End Sub