スクリプト：特権を保有していません

質問

Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")

intReturn = objShell.Popup("再起動処理キャンセルしますか？(60秒以内)", _
60, "再起動処理開始", wshYesNoDialog + wshQuestionMark)

If intReturn = wshYes Then
Wscript.Echo "再起動処理をキャンセルしました"
ElseIf intReturn = wshNo Then
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(6)
Next
Wscript.Echo "再起動処理を実行しています。"
Else
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(6)
Next
Wscript.Echo "タイムアウトです。再起動処理を実行しています。"
End If

とスクリプトをいただきましたが、特権を保有していません。コード 80041062 が表示されてしまいます。あいにく、ど素人のため特権を付与してあげる方法がわかりません。もしお分かりになるか
いらっしゃいましたら、ご教示をお願いいたします。

回答No.1

8ive22ty

どんな方法でscriptを実行していますか。
たとえば、scriptファイル(またはアイコン)を右クリック->「管理者として実行」で実行してみましたか。

お礼

スクリプト内でどうしてもＵｓｅｒ権限で実行したかったのですが、あきらめ管理者のユーザで実施することとしました。