{"id":122,"date":"2008-07-07T16:18:36","date_gmt":"2008-07-07T16:18:36","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=122"},"modified":"2008-07-08T12:26:47","modified_gmt":"2008-07-08T12:26:47","slug":"vbscript-function-runprofile","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/vbscript-function-runprofile","title":{"rendered":"vbscript: Function RunProfile"},"content":{"rendered":"<p>VBScript function to run profile &#8220;Profile&#8221; for management agent &#8220;MA&#8221;.<\/p>\n<blockquote><p>\u00c2\u00a0<br \/>\n&#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<br \/>\n&#8216;\u00c2\u00a0 Function RunProfile<br \/>\n&#8216;\u00c2\u00a0 + Run a MA run profile<br \/>\n&#8216;\u00c2\u00a0 + Returns 0 for success<br \/>\n&#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>Function RunProfile(MA, Profile)<br \/>\n\u00c2\u00a0 Dim ManagementAgent,\u00c2\u00a0 Status<br \/>\n\u00c2\u00a0 Dim runDetails, runResults<br \/>\n\u00c2\u00a0 Dim xmlDoc, x<br \/>\n\u00c2\u00a0 Dim iStart, iEnd<br \/>\n\u00c2\u00a0 Dim numUpdates, numAdds, numDeletes<\/p>\n<p>\u00c2\u00a0 If MA = &#8220;&#8221; then Exit Function<br \/>\n\u00c2\u00a0 WriteLog &#8220;Running &#8221; &amp; MA &amp; &#8221; &#8221; &amp; Profile<br \/>\n\u00c2\u00a0 Set ManagementAgent = MIIS_Service.Get(&#8220;MIIS_ManagementAgent.Name='&#8221;&amp; MA &amp;&#8221;&#8216;&#8221;)<\/p>\n<p>\u00c2\u00a0 Status = ManagementAgent.Execute(Profile)<br \/>\n\u00c2\u00a0 WriteLog MA &amp; &#8220;, &#8221; &amp; Profile &amp; &#8221; &#8221; &amp; ManagementAgent.RunStatus<\/p>\n<p>\u00c2\u00a0 If Status = &#8220;success&#8221; then\u00c2\u00a0<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RunProfile = 0<\/p>\n<p>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 runDetails = ManagementAgent.RunDetails<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 iStart = InStr(runDetails, &#8220;&lt;staging-counters&gt;&#8221;)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 iEnd = InStr(runDetails, &#8220;&lt;\/staging-counters&gt;&#8221;)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 runDetails = Mid(runDetails, iStart, (iEnd+19) &#8211; iStart)<\/p>\n<p>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Set xmlDoc = CreateObject(&#8220;Microsoft.XMLDOM&#8221;)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 xmlDoc.async=&#8221;false&#8221;<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 xmlDoc.loadXML(runDetails)<\/p>\n<p>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 For Each x in xmlDoc.documentElement.childNodes<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 runResults = runResults\u00c2\u00a0&amp; Mid(x.nodename,7) &amp; &#8220;: &#8221; &amp; x.text &amp; &#8220;, &#8221;<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Next<\/p>\n<p>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog runResults<\/p>\n<p>\u00c2\u00a0 Else<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RunProfile = -1<br \/>\n\u00c2\u00a0 End if<\/p>\n<p>End Function<\/p>\n<p>\u00c2\u00a0<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"<p>VBScript function to run profile &#8220;Profile&#8221; for management agent &#8220;MA&#8221;. \u00c2\u00a0 &#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211; &#8216;\u00c2\u00a0 Function RunProfile &#8216;\u00c2\u00a0 + Run a MA run profile &#8216;\u00c2\u00a0 + Returns 0 for success &#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211; Function RunProfile(MA, Profile) \u00c2\u00a0 Dim ManagementAgent,\u00c2\u00a0 Status \u00c2\u00a0 Dim runDetails, runResults \u00c2\u00a0 Dim xmlDoc, x \u00c2\u00a0 Dim iStart, iEnd \u00c2\u00a0 Dim numUpdates, numAdds, numDeletes \u00c2\u00a0 If&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-122","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-1Y","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/122","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"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=122"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/122\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=122"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}