{"id":26,"date":"2007-06-21T06:37:10","date_gmt":"2007-06-21T06:37:10","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?p=26"},"modified":"2023-01-16T06:31:58","modified_gmt":"2023-01-16T06:31:58","slug":"a-simple-miis-scheduler","status":"publish","type":"post","link":"https:\/\/www.wapshere.com\/missmiis\/a-simple-miis-scheduler","title":{"rendered":"A Simple MIIS Scheduler"},"content":{"rendered":"

OK now it’s time to get into the scheduling script I wrote for MIIS.<\/span><\/span><\/p>\n

At some point I’d like to have a go at rewriting this as a .NET service (addendum: this is now done, see here<\/a>), but VBScript was where I started, mostly because of the examples in the Developer’s Reference.<\/span><\/span><\/p>\n

I’m not going to post the entire script (sorry) because it’s too specific to the environment it was created for, but I’ll give some ideas and code snippets that may be useful.<\/span><\/span><\/p>\n

The Task Queue<\/span><\/span><\/h3>\n

The first thing my scheduler needs is a queue. I created this as a SQL table to avoid file locking problems, and to allow jobs to be inserted from other sources. (In particular the client app I wrote ‘MiisApp’.)<\/span><\/span><\/p>\n

The following example Queue shows a Delta Import from SQL, followed by an Export to AD. There are various other steps included that run things outside of MIIS such as a SQL DTS package. The final instruction stops the script.<\/span><\/span><\/p>\n\n\n\n\n\n\n\n\n\n\n
Task<\/span><\/strong><\/td>\nName<\/span><\/strong><\/td>\nProfile<\/span><\/strong><\/td>\nPriority<\/span><\/strong><\/td>\n<\/tr>\n
RunDTS<\/span><\/td>\nCreateDeltaTables<\/span><\/td>\n<\/td>\n1<\/span><\/td>\n<\/tr>\n
RunProfile<\/span><\/td>\nSQL_People<\/span><\/td>\nDelta Import and Delta Sync<\/span><\/td>\n2<\/span><\/td>\n<\/tr>\n
RunSub<\/span><\/td>\nCheckADExports<\/span><\/td>\n<\/td>\n3<\/span><\/td>\n<\/tr>\n
RunProfile<\/span><\/td>\nAD<\/span><\/td>\nExport<\/span><\/td>\n4<\/span><\/td>\n<\/tr>\n
RunSub<\/span><\/td>\nPostADExportTasks<\/span><\/td>\n<\/td>\n5<\/span><\/td>\n<\/tr>\n
RunProfile<\/span><\/td>\nAD<\/span><\/td>\nDelta Import and Delta Sync<\/span><\/td>\n6<\/span><\/td>\n<\/tr>\n
Stop<\/span><\/td>\n<\/td>\n<\/td>\n99<\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

RunDTS<\/h4>\n

A sub that runs the named DTS package in SQL. More on this in another post<\/a>.<\/span><\/span><\/p>\n

RunProfile<\/h4>\n

A simple sub-routine that executes the Profile in MIIS. There’s a perfectly good <\/span>example<\/span><\/a> in the Developer’s Reference, so I would suggest starting there.<\/span><\/span><\/p>\n

RunSub<\/h4>\n

The RunSub subroutine was really just a way to get around VBScript not being able to use a variable value as a subroutine name – i.e. I couldn’t just pass it the value “CheckADExports” and have it run that sub. It’s basically just a Case statement where I list all my possible subroutines that may be found in the Queue:<\/span><\/span><\/p>\n

Select Case LCase(Name)<\/span><\/span><\/span><\/span><\/span>
\n\u00a0 Case “checkadexports”<\/span><\/span><\/span><\/span><\/span>
\n\u00a0 CheckADExports<\/span><\/span><\/span><\/span><\/span><\/p>\n

\u00a0 Case “postadexporttasks”<\/span><\/span><\/span>
\n<\/span><\/span>\u00a0 PostADExportTasks<\/span><\/span><\/span>
\n…<\/span><\/span>
\nEnd Select<\/span><\/span><\/span><\/span><\/span><\/p><\/blockquote>\n

Processing the Queue<\/span><\/span><\/h3>\n

The main body of the script is fairly simple. It keeps looping until it gets to a STOP command in the queue (which, by the way, you could insert using a Scheduled Task if you want the syncs to stop overnight). Meanwhile it runs all queued commands and, if the queue is empty, it inserts a default cycle. I also like to add ten minutes of sleep at the end, so the server is not cycling continuously, and I have a window if I need to jump on and do anything manually.<\/span><\/span><\/p>\n

I won’t include all the subroutines in this post, but follow the links if you want to see them.<\/span><\/span><\/p>\n

\n

Do While Not STOP<\/span><\/span><\/p>\n

\u00a0 If JobInQueue<\/a>(Task, Name) Then<\/span><\/span><\/span><\/p>\n

\u00a0 If LCase(Task) = \u00e2\u20ac\u0153stop\u00e2\u20ac\u009d Then<\/span><\/span><\/span><\/p>\n

\u00a0WriteLog \u00e2\u20ac\u0153Stopping.\u00e2\u20ac\u009d<\/span><\/span><\/span><\/p>\n

STOP = TRUE<\/span><\/span><\/span><\/p>\n

Else<\/span><\/span><\/span><\/p>\n

\u00a0<\/span><\/span>RunQueuedJob<\/span><\/a> Task, Name<\/span><\/span><\/p>\n

\u00a0End If<\/span><\/span><\/span><\/p>\n

\u00a0Else \u00e2\u20ac\u02dcNo queued job \u00e2\u20ac\u201c insert jobs as listed in the DefaultCycle array<\/span><\/span><\/span><\/p>\n

\u00a0For i = 1 To Ubound(DefaultCycle,1)<\/span><\/span><\/span><\/p>\n

\u00a0 AddToQueue<\/a> DefaultCycle(i), i<\/span><\/span><\/span><\/p>\n

\u00a0 Next<\/span><\/span><\/span><\/p>\n

\u00a0 AddToQueue<\/a> \u00e2\u20ac\u0153RunSub,sleep,\u00e2\u20ac\u009d, 99<\/span><\/span><\/span><\/p>\n

Loop<\/span><\/span><\/p>\n<\/blockquote>\n

For a list of all the sections of the scheduling script that I’ve posted see the jobRunner.vbs<\/strong> section on the Code Snippets page<\/a>.<\/p>\n","protected":false},"excerpt":{"rendered":"

OK now it’s time to get into the scheduling script I wrote for MIIS. At some point I’d like to have a go at rewriting this as a .NET service (addendum: this is now done, see here), but VBScript was where I started, mostly because of the examples in the Developer’s Reference. I’m not going…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"footnotes":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":[]},"categories":[34,28,10],"tags":[],"class_list":["post-26","post","type-post","status-publish","format-standard","hentry","category-ilm2007","category-miis2003","category-vbscript"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pkp1o-q","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/posts\/26","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=26"}],"version-history":[{"count":5,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/posts\/26\/revisions"}],"predecessor-version":[{"id":3344,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/posts\/26\/revisions\/3344"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=26"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/categories?post=26"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/tags?post=26"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}