'###########START Job Runner HSS Point###########

'(Declarations)

Dim g_objJobRunner : Set g_objJobRunner = CreateObject("CygNet.AE.JobRunner.JobRunner


'End of (Declarations)

Sub JOBRUNNER_SCRIPT_OnInitializeEx(This)
	
	Points.AddPoint("JAKKU.HSS::JOBRUNNER.TRIGGER"), This
	This.Value = "Init"
		
End Sub

Sub JOBRUNNER_SCRIPT_OnPointChange(This, Tag)
	
	Dim Point1 : Set Point1 = Points.Point("JAKKU.HSS::JOBRUNNER.TRIGGER")
		
		If Point1.Value = 1 Then
		
			Dim objScriptJob
			Set objScriptJob = CreateObject("CygNet.AE.JobRunner.Scriptjob")
			
			g_objJobRunner.SetStatusPoint("JAKKU.UIS:JOBRUNNER1_STATUS")
			
			objScriptJob.ScriptSourceType = 0
			objScriptJob.ScriptSource = "C:\Users\e219371\Desktop\Job Runner\script.vbs"
			
			g_objJobRunner.ExecuteJob(objScriptJob)
			
			SetPointEx "JAKKU.HSS::JOBRUNNER.TRIGGER", 0, Now, 0, 1000
	
		End If
	
End Sub

'###########END Job Runner HSS Point###########

'###########START CygNet Designer Validation script###########

Dim objValidation 
Set objValidation = CreateObject("CygNet.AE.BlueprintAPI.Validation") 

objValidation.Validate "C:\CygNet\Utilities\Designer\Blueprints\Blueprint_CygProd_Sample_Data.blu", "C:\CygNet\Utilities\Designer\UISoptions.xml", "C:\CygNet\Utilities\Designer\UISresults.xml"

'###########END CygNet Designer Validation script###########