Matt Broadstock

November 2006 - Posts

• MOM Management Pack to find updated MOM Management Pack

  Not sure if anyone already posted on this but every MOM install should have this MP loaded. Cool stuff. Found 8 of them that were out of date at my current client. http://www.microsoft.com/downloads/details.aspx?FamilyID=a24cea3a-1920-4b18-8cf2-8bf78c94c917&DisplayLang=en Share this post:                                        Posted Nov 17 2006, 07:52 PM by Matt Broadstock with no comments Filed under: MOM

• MOM - GUI for putting computers and/or Computer Groups into Maintenance Mode

  I'll blog on it in more detail in a bit but I figured I would share what I have so far and get feedback on it.   I wrote a little app over the past couple of days that I figured others might want to use...   It is an HTA that will allow you to put either Computers or Computer Groups into Maintenance Mode easily (from any system).   Just go to www.smsutils.com and go to the Community Downloads area.   Here is a link to a screenshot (http://www.smsutils.com/portals/0/images/MomMaintUtilGUI-ScreenShot.JPG)   It utilizes the following utility: http://www.momsolutions.org/Tools/MaintenanceModeUtility/Maintenance.htm (v1.01).   I think this util could probably use a few tweaks but it certainly does the job (kudos to whoever did the work on it!). I am pretty they just took the SDK example and made some improvements to it. I'm guessing the SDK example wasn't exactly stellar (they never are)..   So, check it out and let me know what ya think.. Share this post:                                        Posted Nov 17 2006, 07:35 PM by Matt Broadstock with no comments Filed under: Scripting - VBScript, MOM

• VBS - Sorting a dictionary object

  All of the examples that I found on the internet were WAY too complicated and hard to follow. Here is a very simple dictionary sort function that I figured I would share.   Function SortDict(ByVal objDict)  'Call using "Set objDictSorted = SortDict(objDict)"    Dim i, j, temp    For Each i In objDict   For Each j In objDict    If(objDict.Item(i) <= objDict.Item(j)) Then     temp = objDict.Item(i)     objDict.Item(i) = objDict.Item(j)     objDict.Item(j) = temp    End If   Next  Next  'For Each i In objDict  ' WScript.Echo objDict.Item(i)  'Next  Set SortDict = objDict End Function keyword: sortdictionary Share this post:                                        Posted Nov 10 2006, 12:15 PM by Matt Broadstock with no comments Filed under: Scripting - VBScript