issues with template Exchange 2007 - 2010 ESE Database Size-Whitespace Monitor

FormerMember

I m unable to get this template to run in my environment Exchange 2010 SP3 RU2.

I receive the following error:

C:\ProgramData\SolarWinds\Orion\temp\fa9d13cc-7e08-4d2d-9669-e52585cfed8a(1, 1) Microsoft VBScript compilation error: Expected statement

Errors:      ==============================================

C:\ProgramData\SolarWinds\Orion\temp\fa9d13cc-7e08-4d2d-9669-e52585cfed8a(1, 1) Microsoft VBScript compilation error: Expected statement

Anyone have any ideas?

Sincerely

MNT

FormerMember

here is the script:

Dim objNamedArgs

Set objNamedArgs = WScript.Arguments.Named

If objNamedArgs.Exists(""wbohpexchmb01"") Then

Else

WScript.Echo ("Message: Please set correct argument into counter's argument box: Name of target server in double quotes according to the output of command: Get-ExchangeServer. Example: /ServerName:""mailserver"" or /ServerName:""mailserver.test.com"".")

exitCode = 1

Wscript.Quit

End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("C:\Windows\Temp\Whitespace_database_ID.ps1", 2, True)

objTextFile.WriteLine("add-pssnapin Microsoft.Exchange.Management.PowerShell.Admin;")

objTextFile.WriteLine("add-pssnapin Microsoft.Exchange.Management.PowerShell.E2010;")

objTextFile.WriteLine("$Error.Clear();")

objTextFile.Write("$target = """)

objTextFile.Write(objNamedArgs(""wbohpexchmb01""))

objTextFile.WriteLine(""";")

objTextFile.WriteLine("$stat = (Get-MailboxDatabase -Status -identity ""nadb-06"" | foreach {$_.AvailableNewMailboxSpace.ToMb()})")

objTextFile.WriteLine("if ($Error.Count -eq 0) {")

objTextFile.WriteLine(" Write-Host ""Message: Available Whitespace on nadb-06 database (MB): $stat"";")

objTextFile.WriteLine(" Write-Host ""Statistic: $stat""; ")

objTextFile.WriteLine(" Exit 0;")

objTextFile.WriteLine(" }")

objTextFile.WriteLine("Write-Host ""Message: $($Error[0])""; ")

objTextFile.WriteLine("Exit 1; ")

objTextFile.Close

Set objShell = CreateObject("Wscript.Shell")

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _

    & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery _

    ("SELECT Architecture FROM Win32_Processor")

For Each objProcessor In colSettings

    If objProcessor.Architecture = 9 Then

     powerpath = "%windir%\sysnative"

Exit For

    ElseIf objProcessor.Architecture = 0 Then

     powerpath = "c:\windows\system32"

Exit For

    End If

Next

Set vPSscrIpt = objShell.Exec( powerpath & "\windowspowershell\v1.0\powershell.exe C:\Windows\Temp\Whitespace_database_ID.ps1")

vPSscrIpt.StdIn.Close()

WScript.Echo(vPSscrIpt.StdOut.ReadAll)

WScript.Quit vPSscrIpt.ExitCode