Execute SQL-DMO Database method on all databases

<?xml version="1.0"?>

<package>
<job id="main">

<resource id="Name">ExecuteMethodOnServer[s].wsf</resource>
<resource id="Version">0.1</resource>
<resource id="Author">Roy Ashbrook</resource> 
<resource id="Email">RoyAshbrook@Yahoo.com</resource> 

<comment>performs a given sqldmo method on every database on a server</comment>

<runtime>
<unnamed
name="Method"
helpstring="name of method"
required="true"
type="string"
/>
<unnamed
name="Server"
helpstring="name of server or servers"
required="true"
many="true"
type="string"
/>
<description>
Performs a given sqldmo database object method on every database object on the given server or servers.
</description>
<example>
Example:

1. ExecuteMethodOnServer[s].wsf UpdateIndexStatistics Server1
2. ExecuteMethodOnServer[s].wsf UpdateIndexStatistics Server1 Server2 Server3

Note:

1. Some special characters may not work properly when passed as arguments.
2. Script currently only setup for windows authentication.

Methods:
1. UpdateIndexStatistics
2. Shrink
3. RecalcSpaceUsage
... more
check BOL for database object SQL-DMO methods.
</example>
</runtime>

<object id="objServer" progid="SQLDMO.SQLServer" events="true" reference="true" />

<script language="VBScript">
<![CDATA[

'strict
Option Explicit

'check args
if not WScript.Arguments.Unnamed.Count >= 2 and WScript.Arguments.Named.Count = 0 then
WScript.Arguments.ShowUsage()
WScript.Quit
end if

'call main sub
Main()

'main sub
Sub Main()

'dim
dim strServerName, strMethod, i

'get method name
strMethod = WScript.Arguments.Unnamed.Item(0)

'process each server given
for i = 1 to WScript.Arguments.Unnamed.Count-1

'get current server name
strServerName = WScript.Arguments.Unnamed.Item(i)

'perform method
PerformMethod strServerName, strMethod
next

End Sub

'this sub performs a given method on every database on a given server
Sub PerformMethod(strServerName, strMethod)

'dims
dim objDatabase

'connect to server
objServer.LoginSecure = TRUE
'objServer.Connect strServerName, "user", "password"

'iterate through databases
for each objDatabase in objServer.Databases

'custom error checking
on error resume next

'execute the method
Eval ("objDatabase." & strMethod)

'echo status
wscript.echo _
"Successful execution of method (" & strMethod & ") " & _
"on database (" & objDatabase.Name & ")? --- " & Cstr(isobject(err))

'return error checking to normal
on error goto 0

next

objServer.Disconnect

End Sub
]]>
</script>
</job>
</package>