以前にSystemアカウントでプログラムを起動する投稿をしましたが、
WSHにて書いてみました。(以外にあっさりでしたが…)
今回のコードはとりあえず、コマンドプロンプトを起動します。
コマンドプロンプトさえ起動すれば、そこで実行するコマンドは全てSystemアカウントで実行されます。
Option Explicit
Dim OBJ_WshShell 'WSH Shell Object
Dim STR_Time 'String Object
Set OBJ_WshShell = WScript.CreateObject("WScript.Shell")
STR_Time = DateAdd("n", 1 , Time())
OBJ_WshShell.run "at " & STR_Time & " /interactive" & " cmd /K",0
Scriptのダウンロードは こちら です。
Leave a Reply