Again, another question from a very green novice. I am using a home automation program that uses VB scripts. I am trying to get MS Agent to speak if a device flag (5 AM)is set (ON). Here is the script and I keep getting the following error no matter what I try.
Script Error: Line 350 Expected ')'
Rem **************************************************************
Rem Flag Device Event
Rem **************************************************************
sub Devices_FlagUpdate(Index)
with Devices.Flags
Select Case .Item(Index).State
Case dsOff
Case dsOn
If (.Item(5 AM).State) = Case dson Then
Character.speak "Tammy, I will have your coffee ready for you at 4 AM"
End If
Case dsIdle
End Select
end with
end sub
Can someone show me the error of my ways.
Script Error: Line 350 Expected ')'
Rem **************************************************************
Rem Flag Device Event
Rem **************************************************************
sub Devices_FlagUpdate(Index)
with Devices.Flags
Select Case .Item(Index).State
Case dsOff
Case dsOn
If (.Item(5 AM).State) = Case dson Then
Character.speak "Tammy, I will have your coffee ready for you at 4 AM"
End If
Case dsIdle
End Select
end with
end sub
Can someone show me the error of my ways.