FIX: "0x80040e4d" error when Forefront TMG 2010 is configured to generate the daily summary data overnight on a computer that has SP1 preinstalled

set root = CreateObject("FPC.Root")
Set arr = root.GetContainingArray
 
WScript.Echo "Creating new Reporting Services configuration id"
Dim newConfigId
Set TypeLib = CreateObject("Scriptlet.TypeLib") 
newConfigId = TypeLib.Guid
newConfigId = Left(newConfigId, Len(newConfigId)-2) 
newConfigId = newConfigId & "#fpcISA2010SP1"
 
arr.Reports.ReportingServicesProperties.ReportingServicesConfigurationId = newConfigId
wscript.echo "Changing Reporting Services configuration id"
arr.Save
wscript.echo "Waiting for reload on array " & arr.name
arr.WaitForReload
wscript.echo "Done reloading array " & arr.name
 
Dim adStateOpen
adStateOpen = 1
 
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "Provider=SQLOLEDB;Data Source='(local)\ISARS';Integrated Security=SSPI"
cnn.Open
If cnn.State <> adStateOpen Then
    wscript.echo "Failed to open SQL connection: " & cnn.ConnectionString
End If
 
Dim sqlCommand
 
sqlCommand = "IF EXISTS(SELECT * FROM ISA_RS_Db.sys.database_principals WHERE name='ISA_RS_USER')" + vbCr + vbLf
sqlCommand = sqlCommand + "    BEGIN" + vbCr + vbLf
sqlCommand = sqlCommand + "        PRINT 'User already have a role on this db'" + vbCr + vbLf
sqlCommand = sqlCommand + "    END" + vbCr + vbLf
sqlCommand = sqlCommand + "ELSE" + vbCr + vbLf
sqlCommand = sqlCommand + "    BEGIN" + vbCr + vbLf
sqlCommand = sqlCommand + "        PRINT 'User does not yet have a role on this db, adding...'" + vbCr + vbLf
sqlCommand = sqlCommand + "        EXEC ISA_RS_Db..sp_adduser 'ISA_RS_USER'" + vbCr + vbLf
sqlCommand = sqlCommand + "        EXEC ISA_RS_Db..sp_addrolemember 'db_owner', 'ISA_RS_USER'" + vbCr + vbLf
sqlCommand = sqlCommand + "    END" + vbCr + vbLf
 
wscript.echo "Will execute " & vbCr & vbLf & sqlCommand
Set rs = cnn.Execute(sqlCommand)
cnn.Close
 
WScript.Echo "Done!"