高度情報技術科

option explicit
dim obj, file
 
'ファイルのパス
const filepath = "C:\test.txt"
 
set obj = createobject("scripting.filesystemobject")
set file = obj.getfile(filepath)
 
'名前をtest.txtからtest2.txtに変更
file.name = "test2.txt"
 
set sfo = nothing
set gfile = nothing

Dim command,starttime,runrepeat,dayofweek,dayofmonth,interact   
 
'実行するスクリプト ファイルまたは実行可能ファイルへのパス   
command = "C:\uhahi.txt"  
 
'日本で実行する場合には540分(9時間)を足す   
'記述方法はYYYYMMDDHHMMSS.MMMMMM(+-)OOO,YYYYMMDDの部分は********に置き換え
starttime = "********173500.000000+540"
 
'スケジュール設定されたジョブを繰り返し実行するかどうか
'繰り返し実行する必要がある場合にはTrueを入力
runrepeat = True
 
 
'スケジュール設定されたジョブを実行する曜日 
'1：月、　2：火、　4：水、 8：木、　16：金、　32：土、　64：日
'曜日設定を複数入れた場合にはrunrepeatをTrueにしておく
daysofweek = 2
 
 
'ジョブを実行する月あたりの日数を指定
dayofmonth = ""  
 
 
'スケジュール設定されたジョブが対話型で、ウィンドウを表示した状態で実行することを示す   
'このパラメータを False (既定の値) に設定すると、このスクリプトはウィンドウを表示しないで実行
interact = True  
 
 
strComputer = "."  
Set objService = GetObject("winmgmts:\\" & strComputer)   
Set objNewJob = objService.Get("Win32_ScheduledJob")   
 
errJobCreated = objNewJob.Create(command, starttime, runrepeat , dayofweek , dayofmonth , interact , jobID)   
 
If Err.Number = 0 Then  
   Wscript.Echo "新しいタスクを追加　ID: " & jobID
 
Else  
   Wscript.Echo "エラー：" & errJobCreated
End If

Option Explicit
On Error Resume Next
 
Dim servername, objservice, objsch, objtask, objinstance, ret, jobId
 
'コンピュータ名
servername = "localhost"
 
Set objservice = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & servername & "\root\cimv2")
 
'タスクを取得
Set objsch = objservice.ExecQuery("select * from Win32_ScheduledJob")
 
'処理
For Each objtask In objsch
    jobId = objtask.JobId
    Set objinstance = objservice.Get("Win32_ScheduledJob.JobID=" & jobId)
    If Err.Number = 0 Then
        ret = objinstance.Delete
        If ret = 0 Then
            WScript.Echo "タスクを削除" & "　ID：" & jobId
        Else
            WScript.Echo "タスクの削除失敗" & "(" & ret & ")"
        End If
    Else
        WScript.Echo "インスタンスの取得失敗"
    End If
    Set objinstance = Nothing
Next
 
Set objsch = Nothing
Set objservice = Nothing