以前に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