■環境
OS Windows8 Microsoft Visual Studio Express 2013 for Windows Desktop
■日付変更するアプリ(日付変更.exe)を作成
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'システム日付を2014/10/18にする
DateString = "2014-10-18"
End
End Sub
End Class
■権限エラー
↓
■管理者起動でUACエラー。
↓
■タスクスケジュール登録。
WindowsKey + Rを押下:「taskschd.msc /s」
↓
■スクリプト作成(UACEscape.vbs)
Option Explicit
Dim objTaskService
Dim objFolder
Dim objTask
Dim strAppPath
'' ===ここにプログラムのフルパスを設定===
strAppPath = "C:\日付変更.exe"
'' タスクサービスオブジェクトの取得
Set objTaskService = CreateObject("Schedule.Service")
'' タスクサービスとの接続
objTaskService.Connect
'' 場所を指定してフォルダオブジェクトの取得
Set objFolder = objTaskService.GetFolder("\")
'' タスク名を指定してタスクオブジェクトを取得
Set objTask = objFolder.GetTask("UACEscape")
'' タスクを実行
objTask.Run """" & strAppPath & """"