Trigger VBS For Opening Program in Background Process

Kali ini saya akan mencontohkan bagaimana mentrigger suatu program tanpa kita harus membuka program tersebut, dalam hal ini saya akan menggunakan vbscript untuk membantu dalam proses ini, dan program yang akan saya contohkan ada SAS Enterprise Guide 4 penggunaan vbs ini membantu untuk pekerjaan yang bersifat harian dan bisa di gunakan untuk program apa saja dan trigger ini dipasang sesuai dengan scheduler pada windows ini untuk contoh script nya Option Explicit Dim app1 Call dowork1 'shut down the app1 If not (app1 Is Nothing) Then app1.Quit Set app1 = Nothing End If Sub dowork1() On Error Resume Next '---- ' Start up Enterprise Guide using the project name '---- Dim prjName1 Dim prjObject1 prjName1 = "\\Nasbio02\cc_dm01\GRCDBMA\Information\Codes \DDAutomation\ADDevelopment\AProject1_1.egp" 'Project Name Set app1 = CreateObject("SASEGObjectModel.Application.4") If Checkerror1("CreateObject") = True Then Exit Sub End If '----- ' open the project '----- Set prjObject1 = app1.Open(prjName1,"") If Checkerror1("app1.Open") = True Then Exit Sub End If '----- ' run the project '----- prjObject1.run If Checkerror1("Project.run") = True Then Exit Sub End If '----- ' Save the new project '----- prjObject1.Save If Checkerror1("Project.Save") = True Then Exit Sub End If '----- ' Close the project '----- prjObject1.Close If Checkerror1("Project.Close") = True Then Exit Sub End If End Sub Function Checkerror1(fnName) Checkerror1 = False Dim strmsg1 Dim errNum1 If Err.Number <> 0 Then strmsg1 = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description 'MsgBox strmsg1 'Uncomment this line if you want to be notified via MessageBox of Errors in the script. Checkerror1 = True End If End Function
Selamat mencoba
Waldy