Here is the error message I got:
startupOptions.VBS - Microsoft VBScript runtime error
Line 55 Column 1
Wrong number of arguments or invalid property assignment:
'sObj.RunAtLoginScreen'
< 0x800A01C2 >
Here is the text of the script:
' StartupOptions
Dim isVisible : isVisible = 0
Dim myHotkey : Set myHotkey =
Keyboard.RegisterHotkey("Alt-Control-Shift-I","LaunchDialog")
' Dim sObj : Set sObj = StartupOptions
Sub LaunchDialog()
If isVisible = 0 Then
Queue "DisplayDialog"
End If
End Sub
Sub DisplayDialog()
Dialog "StartupOptions.xml", "StartupOptions", "DialogEventHandler"
End Sub
Function DialogEventHandler(dObj, dEvent, dId, dControl)
DialogEventHandler = False
End Function
Function DialogEventHandler(dObj, dEvent, dId, dControl)
DialogEventHandler = False
Select Case (dId)
Case "button_cancel"
If dEvent = buttonClicked Then
Speak "Cancel"
isVisible = 0
dObj.Close
DialogEventHandler = True
Exit Function
End If
Case "button_ok"
If dEvent = buttonClicked Then
Speak "ok"
GetSettings dObj, dEvent, dId, dControl
isVisible = 0
dObj.Close
DialogEventHandler = True
Exit Function
End If
Case Else
If dEvent = dialogCreated Then
isVisible = 1
DialogEventHandler = True
End If
End Select
End Function
Function GetSettings (dObj, dEvent, dId, dControl)
Dim sObj : Set sObj = StartupOptions
If dObj.Control("checkbox_RunAtLoginScreen").Checked Then
Speak "Window-Eyes will be run at Log in!"
SObj.RunAtLoginScreen = True
Else
Speak "Window-Eyes will not be run at log in"
sObj.RunAtLoginScreen = False
End If
If dObj.Control("checkbox_RunAfterLoginScreen").Checked Then
Speak "Window-Eyes will be run for all users after log in!"
' Set sObj.RunAfterLoginScreen = 1
Else
Speak "Window-Eyes will not be run after log in for all users."
' Set sObj.RunAfterLoginScreen = 0
End If
If dObj.Control("radiobutton_RunAfterLoginCurrentUser").checked Then
Speak "Window-Eyes will be run using the above configuration"
' Set sObj.RunAfterLoginCurrentUser = sObjscuUseCurrent
end If
If dObj.Control("radiobutton_Always").checked Then
Speak " Window-Eyes will always be run after log in for the current
user"
' Set sObj.RunAfterLoginCurrentUser = scuAlways
End If
If dObj.Control("radiobutton_Never").checked Then
Speak "Window-Eyes will never be run automatically after log in"
' Set sObj.RunAfterLoginCurrentUser = scuNever
End If
ActiveSettings.Save
End Function
-----Original Message-----
From: Aaron Smith [mailto:[email protected]]
Sent: Wednesday, February 25, 2009 2:47 PM
To: [email protected]
Subject: Re: Startup options
Jeff,
You only use the Set statement with object, and RunAtLoginScreen isn't
an object. It is, rather, a property of the StartupOptions object.
You'll note from the documentation that RunAtLoginScreen is a boolean,
so you'd just do:
sObj.RunAtLoginScree = False
You had it right, minus the Set statement.
Aaron
Jeff Weiss wrote:
> I am trying to get the startup options script from the UI section of
> the manual to work.
> The dialog is set up and responds correctly when the items are set.
> My problem again, is still understanding the objects.
> This is how I got the startupOptions object:
>
> Dim sObj : Set sObj = StartupOptions
> This is what I tried to have Window-Eyes not run at the login screen:
>
> Set sObj.RunAtLoginScreen = False
>
> Can some one explain this to me?
> I am sorry, but I'm still having trouble with the objects.
> Jeff Weiss
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3889 (20090225) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>
>
--
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
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3889 (20090225) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
