Here it is:
Sub OnStateChange(objName, objState)
If objName = "com.GWMicro.GWToolkit.StandardHelpDialog" Then
If objState Then
Set SOStandardHelpDialog = SharedObjects(objName, 0).NewDialog
SOStandardHelpDialog.INIFileName = myINIFile
SOStandardHelpDialog.HelpTitle = ClientInformation.ScriptName & " " &
ClientInformation.ScriptVersion
SOStandardHelpDialog.HelpText = myStrings("ScriptHelp")
SOStandardHelpDialog.ScriptName = ClientInformation.ScriptName
SOStandardHelpDialog.ScriptVersion = ClientInformation.ScriptVersion
SOStandardHelpDialog.FocusCloseButton = True
SOStandardHelpDialog.UpdateUrl = myScriptUpdateURL
SOStandardHelpDialog.UseAboutBox = True
SOStandardHelpDialog.AboutAuthor = ScriptAuthor
Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
Dim rDate
rDate = fsObj.GetFile(ClientInformation.ScriptPath & "\" &
ClientInformation.ScriptFileName).DateLastModified
SOStandardHelpDialog.AboutReleaseDate = FormatDateTime(rDate, 1)
Set fsObj = Nothing
SOStandardHelpDialog.AboutCopyright = ScriptLicense
SOStandardHelpDialog.AboutWebsite = ""
If Not SOHotkeyManager Is Nothing Then
Set SOStandardHelpDialog.UseHotkeyManager = SOHotkeyManager
End If
' Change ClientInformation.ScriptHelp to our real routine
ClientInformation.ScriptHelp = "ScriptHelp"
Else
' Change ClientInformation.ScriptHelp to our default message
Set SOStandardHelpDialog = Nothing
ClientInformation.ScriptHelp = myStrings("GWToolkitRequired")
End If
ElseIf objName = "com.GWMicro.GWToolkit.CheckForUpdate" Then
If objState Then
Set SOCheckForUpdate = SharedObjects(objName, 0).NewCheck
If Not checkedForUpdates Then
Queue "CheckForUpdates"
checkedForUpdates = True
End If
Else
Set SOCheckForUpdate = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.ErrorReporting" And objState
Then
' The ErrorReporting object was just loaded, so now we can execute
' the code it provides for enhanced error reporting, assuming we haven't
' already done so (with the errorReportingEnabled variable will tell
us).
' ErrorReporting is not stored as a global variable, because we only
care
' about executing it once, and never again.
If Not errorReportingEnabled Then
ExecuteGlobal SharedObjects(objName, 0)(ClientInformation.ScriptVersion,
"[email protected]", True)
errorReportingEnabled = True
End If
ElseIf objName = "com.GWMicro.GWToolkit.HotkeyManager" Then
' Initialize Hotkey Manager for use with the StandardHelpDialog object
for
' managing Script hotkeys
If objState Then
Set SOHotkeyManager = SharedObjects(objName, 0).NewDialog
SOHotkeyManager.INIFileName = myINIFile
SOHotkeyManager.INISectionName = "Hotkeys"
Set SOHotkeyManager.KeyStrings = myStrings
RegisterHotkeys
Else
Set SOHotkeyManager = Nothing
End if
ElseIf objName = "com.GWMicro.GWToolkit.CompareVersions" Then
If objState Then
Set SOCompareVersions = SharedObjects(objName, 0)
Else
Set SOCompareVersions = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.DynamicArray" Then
If objState Then
Set SODynamicArray = SharedObjects(objName, 0)
Else
Set SODynamicArray = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.FileToString" Then
If objState Then
Set SOFileToString = SharedObjects(objName, 0)
Else
Set SOFileToString = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.MessageBox" Then
If objState Then
Set SOMessageBox = SharedObjects(objName, 0)
Else
Set SOMessageBox = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.SimpleDialogs" Then
If objState Then
Set SOSimpleDialogs = SharedObjects(objName, 0)
Else
Set SOSimpleDialogs = Nothing
End If
ElseIf objName = "com.GWMicro.GWToolkit.Version" Then
If objState Then
Set SOVersion = SharedObjects(objName, 0)
Else
Set SOVersion = Nothing
End If
End If
End Sub
-----Original Message-----
From: Aaron Smith [mailto:[email protected]]
Sent: Wednesday, September 16, 2009 3:59 PM
To: [email protected]
Subject: Re: The server threw an exception.
Can you include the entire OnStateChange routine from your script?
Aaron
On 9/14/2009 2:47 PM, Jeff Weiss wrote:
> It comes from the WeScript Framework Wizzard--here are a few lines
from
> the script, and it usually works just fine:
>
> Set SOMessageBox = SharedObjects(objName, 0)
> Dim MyMessageBox
> Set MyMessageBox = SOMessageBox.NewDialog
>
> I only got this error once and I just wondered why--and is there
> something to do to prevent such an error?
> Jeff Weiss
>
>
> -----Original Message-----
> From: Aaron Smith [mailto:[email protected]]
> Sent: Monday, September 14, 2009 11:17 AM
> To: [email protected]
> Subject: Re: The server threw an exception.
>
> Jeff,
>
> Where does the MyMessageBox object come from?
>
> Aaron
>
> On 9/14/2009 10:54 AM, Jeff Weiss wrote:
>> Can some one explain what this error means.
>>
>> I got this error message from my DailyBlessings script.
>>
>> User Comments: just pressed the hotkey
>>
>> An error occurred in script DailyBlessings.vbs at 10:30:22 PM on
> Friday,
>> September 11, 2009.
>> Name: DailyBlessings.vbs
>> Version: 1.0
>> Source:
>> Description: The server threw an exception.
>>
>> Column: 1
>> Line: 335
>> Path: C:\Users\jeff weiss\AppData\Roaming\GW
> Micro\Window-Eyes\Users\Default
>> Error Code: 80010105
>> Script Context: returnValue = MyMessageBox.Show
>> Active Window Overlap Class: CabinetWClass
>> Active Window Title: C:\Users\jeff weiss\AppData\Roaming\GW
>> Micro\Window-Eyes\users\default\t
>> Active Window Module: BROWSEUI
>> Active Window Class: CabinetWClass
>> Active Window Original Class: CabinetWClass
>> Active Window Type: 1
>> Active Window Original Type: 1
>> Active Window Is Valid: True
>> Active Window Set File: EXPLORER.000
>> Focused Window Overlap Class: SysListView32
>> Focused Window Module: SHELL32
>> Focused Window Class: SysListView32
>> Focused Window Original Class: SysListView32
>> Focused Window Type: 21
>> Focused Window Original Type: 21
>> Focused Window Is Valid: True
>> Window-Eyes Application Path: C:\Program Files\GW Micro\Window-Eyes
>> Window-Eyes User Profile Path: C:\Users\jeff weiss\AppData\Roaming\GW
>> Micro\Window-Eyes\Users\Default\
>> Window-Eyes Version: 7.1
>> Window-Eyes Language: 0
>> Active Synthesizer: DECtalk Access32 (Window-Eyes)
>> Active Braille Display: Focus 44/70/84
>> Run in System Tray: True
>> Run at Login Screen: False
>> OS Version: 6.0 (6002) SP: 2.0
>> WSH Version: VBScript 5.8.18702
>> Internet Explorer: 8.0.6001.18813
>> GW Toolkit: 8.0.1
>> XML Language: 1033
>> System Start Time: 9/11/2009 8:35:10 PM
>> Total Disk Space: 239.21GB
>> Free Disk Space: 167.64GB
>> Total Memory: 3.48GB
>> Available Memory: 2030.41MB
>> Resolution: 1024x768 (32bit)
>> Process Information:
>> System Idle Process ID:0, CPU Time:13096.78, MEM:0MB, VM:0MB
>> S y stem ID:4, CPU Time:37.07, MEM:88.2MB, VM:0MB
>> smss.exe ID:488, CPU Time:0.02, MEM:0.7MB, VM:0MB
>> csrss.exe ID:556, CPU Time:1.12, MEM:6MB, VM:0MB
>> csrss.exe ID:600, CPU Time:1.39, MEM:8MB, VM:0MB
>> wininit.exe ID:608, CPU Time:0.55, MEM:4.1MB, VM:0MB
>> services.exe ID:660, CPU Time:8.44, MEM:6.8MB, VM:0MB
>> winlogon.exe ID:684, CPU Time:0.41, MEM:5.7MB, VM:0MB
>> lsass.exe ID:704, CPU Time:3.06, MEM:2.6MB, VM:0MB
>> lsm.exe ID:716, CPU Time:0.12, MEM:4.1MB, VM:0MB
>> svchost.exe ID:960, CPU Time:14.7, MEM:6.7MB, VM:0MB
>> svchost.exe ID:1032, CPU Time:1.45, MEM:7.3MB, VM:0MB
>> svchost.exe ID:1072, CPU Time:2.2, MEM:28MB, VM:0.1MB
>> svchost.exe ID:1216, CPU Time:3.87, MEM:11MB, VM:0MB
>> svchost.exe ID:1276, CPU Time:30.98, MEM:58.3MB, VM:0.1MB
>> svchost.exe ID:1316, CPU Time:336.24, MEM:47.3MB, VM:0MB
>> audiodg.exe ID:1412, CPU Time:9.41, MEM:25.9MB, VM:0MB
>> svchost.exe ID:1436, CPU Time:0.05, MEM:4.8MB, VM:0MB
>> SLsvc.exe ID:1456, CPU Time:1.34, MEM:10.6MB, VM:0MB
>> svchost.exe ID:1496, CPU Time:6.19, MEM:11.3MB, VM:0MB
>> svchost.exe ID:1672, CPU Time:38.86, MEM:12.4MB, VM:0MB
>> spoolsv.exe ID:1916, CPU Time:0.37, MEM:9.2MB, VM:0MB
>> svchost.exe ID:1948, CPU Time:3.07, MEM:14.2MB, VM:0MB
>> dwm.exe ID:2036, CPU Time:0.05, MEM:3.6MB, VM:0MB
>> taskeng.exe ID:2044, CPU Time:0.2, MEM:10MB, VM:0MB
>> explorer.exe ID:372, CPU Time:14.04, MEM:40.5MB, VM:0MB
>> RtHDVCpl.exe ID:1016, CPU Time:0.16, MEM:7.7MB, VM:0MB
>> igfxpers.exe ID:1472, CPU Time:0.09, MEM:4MB, VM:0MB
>> avgtray.exe ID:1660, CPU Time:0.61, MEM:2.7MB, VM:0MB
>> taskeng.exe ID:2108, CPU Time:0.16, MEM:5.9MB, VM:0MB
>> winampa.exe ID:2128, CPU Time:0.02, MEM:3.2MB, VM:0MB
>> fipagent.exe ID:2140, CPU Time:0, MEM:2.7MB, VM:0MB
>> hpwuSchd2.exe ID:2148, CPU Time:0.06, MEM:5.3MB, VM:0MB
>> HpqSRmon.exe ID:2160, CPU Time:0.09, MEM:5.1MB, VM:0MB
>> issch.exe ID:2176, CPU Time:0, MEM:2.8MB, VM:0MB
>> igfxsrvc.exe ID:2208, CPU Time:0.56, MEM:4.8MB, VM:0MB
>> AERTSrv.exe I D :2864, CPU Time:0.03, MEM:1.6MB, VM:0MB
>> svchost.exe ID:2876, CPU Time:0.19, MEM:8.5MB, VM:0MB
>> avgwdsvc.exe ID:2892, CPU Time:3.37, MEM:2.7MB, VM:0MB
>> CISVC.EXE ID:2956, CPU Time:0.02, MEM:0.2MB, VM:0MB
>> FaxMan4.exe ID:2988, CPU Time:0.22, MEM:5MB, VM:0MB
>> avgrsx.exe ID:3120, CPU Time:23.12, MEM:10.3MB, VM:0MB
>> avgnsx.exe ID:3128, CPU Time:2.43, MEM:1MB, VM:0MB
>> SMSvcHost.exe ID:3248, CPU Time:0.2, MEM:17MB, VM:0MB
>> svchost.exe ID:3376, CPU Time:1.29, MEM:5.6MB, VM:0MB
>> svchost.exe ID:3404, CPU Time:0.22, MEM:6.9MB, VM:0MB
>> svchost.exe ID:3436, CPU Time:0.08, MEM:7.3MB, VM:0MB
>> svchost.exe ID:3480, CPU Time:0.03, MEM:4MB, VM:0MB
>> weserv.exe ID:3508, CPU Time:0.25, MEM:4MB, VM:0MB
>> SearchIndexer.exe ID:3580, CPU Time:1.7, MEM:16.9MB, VM:0MB
>> avgemc.exe ID:3712, CPU Time:0.3, MEM:1.5MB, VM:0MB
>> avgcsrvx.exe ID:3860, CPU Time:0.17, MEM:10.5MB, VM:0MB
>> weproxea.exe ID:2336, CPU Time:0.03, MEM:3.8MB, VM:0MB
>> wineyes.exe ID:2368, CPU Time:70.5, M E M:132.8MB, VM:0.1MB
>> weli.exe ID:1420, CPU Time:0, MEM:1MB, VM:0MB
>> bdisplay.exe ID:2652, CPU Time:0.09, MEM:4.2MB, VM:0MB
>> wecom.exe ID:2584, CPU Time:11.59, MEM:14.2MB, VM:0MB
>> wuauclt.exe ID:5992, CPU Time:0.22, MEM:5.2MB, VM:0MB
>> hpqpse.exe ID:1136, CPU Time:0.33, MEM:16.8MB, VM:0MB
>> WUDFHost.exe ID:5652, CPU Time:0.14, MEM:5.7MB, VM:0MB
>> WMIADAP.exe ID:4648, CPU Time:0.2, MEM:5MB, VM:0MB
>> WmiPrvSE.exe ID:2812, CPU Time:0.12, MEM:5.8MB, VM:0MB
>> WmiPrvSE.exe ID:4628, CPU Time:0.06, MEM:5.2MB, VM:0MB
>> WmiPrvSE.exe ID:5016, CPU Time:0.11, MEM:7.8MB, VM:0MB
>> Appended Details:
>>
>> *THIS IS AN AUTOMATED MESSAGE. DO NOT REPLY.*
>>
>
--
To insure that you receive proper support, please include all past
correspondence (where applicable), and any relevant information
pertinent to your situation when submitting a problem report to the GW
Micro Technical Support Team.
Aaron Smith
GW Micro
Phone: 260/489-3671
Fax: 260/489-2608
WWW: http://www.gwmicro.com
FTP: ftp://ftp.gwmicro.com
Technical Support & Web Development
