1) Пример автоматического перезапуска скрипта с повышенными правами
http://www.winhelponline.com/articles/1 … ation.html

2) Примеры определения своих прав в скрипте
http://csi-windows.com/toolkit/ifuserperms
http://blogs.technet.com/b/jhoward/arch … cript.aspx

Если требуется создавать полноценный ярлык с включением запуска от другой учётки, то прийдётся работать с файлом ярлыка в бинарном виде.
н

Спасибо за наводку, все получилось как надо.

Function make_this_shortcut_to_run_as_admin(file_name)
	Set instream = CreateObject("ADODB.Stream")
	Set fso = WScript.CreateObject("Scripting.Filesystemobject")	
	With instream
		.Charset = "ascii"
		.Type = 2
		.Mode = 3
		.Open()
		.Position = 0
		.LoadFromFile(file_name)
	fso.DeleteFile(file_name)
		.Position = 21
		.WriteText Chr(96)
		.Position = 0
		.SaveToFile file_name
		.Close()
	End With
	Set instream = Nothing
	Set Fso = Nothing
End Function

Вот мой вариант

Если в ярлык в любом случае прописывается не программа, то почему бы не создать скрипт (например в C:\RunProgAs.vbs) вроде такого:

option explicit
Dim Shell
Set Shell = CreateObject("Shell.Application")
If WScript.Arguments.Count = 0 then wscript.echo "не указана программа для запуска!" : WScript.Quit
If WScript.Arguments.Count = 1 Then
    Shell.ShellExecute WScript.Arguments(0), , , "runas", 1
Else
    wscript.echo "слишком много параметров!" : WScript.Quit
End If

Тогда в свойствах ярлыка указать:

objShortCut.TargetPath = "wscript.exe"
objShortCut.Arguments = "C:\RunProgAs.vbs notepad.exe"

Если требуется создавать полноценный ярлык с включением запуска от другой учётки, то прийдётся работать с файлом ярлыка в бинарном виде.

Но для меня это задачка требующая длительного отвлечения от забот насущных, а "Времени не хватает... :-(" (с) Евген

Для поддержки UAC я использовал возможности другого скриптового языка - AutiIt. Иформация о нем есть и на "Сером форуме".
AutiIt имеет для UAC специальную включаемую в код опцию, я некоторые свои VBS-наработки, вызывающие/активизирующие другие приложения, довольно быстро перенес на аутоит и усовершенствовал - работают они теперь и под XP и под Win7. Рекомендую.

В Вашем случае можно, например, сделать на AutiIt простейшеет приложение, запускающее полученную параметром программу уже с запросом подтверждения UAC в указанной директории с указаными параметрами окна, заодно можно и проконтролировать старт приложения и много прочего недоступного на vbscript. А ярлык сделать на строку вызова этой программы с передачей параметров.

Спасибо за отзыв Rom5. С AutoIt я знаком и проблемы написать необходимый функционал нет, но в рамках моей текущей задачи создать ярлык необходимо именно из VBScript/Jscript.

2 Rom5: Может всё такие AutoIt, а не AutiIt ?

Каюсь, опечатался и размножил..
Alexey, полезный форум AutoIt-овых коллег: http://autoit-script.ru/

В Вашем случае можно, например, сделать на AutiIt простейшеет приложение, запускающее полученную параметром программу уже с запросом подтверждения UAC в указанной директории с указаными параметрами окна, заодно можно и проконтролировать старт приложения и много прочего недоступного на vbscript. А ярлык сделать на строку вызова этой программы с передачей параметров.