Vista - syntax error in a class

Hello,

I'm trying to create a simple class that can display the current date using
WMI functions.

When I use the following code I get an error
Syntax error in line strComputer = "."


Why could this line cause a syntax error ?

Here is the code :

class current_date

private strComputer
public month
public day
public year

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_LocalTime")

For Each objItem in colItems

month = objItem.Month
day = objItem.Day
year = objItem.Year

Next


end class

'**********************

dim test
set test = new current_date

wscript.echo test.month
wscript.echo test.day
wscript.echo test.year




Thank you

Heinz

Heinz wrote:
VBScript classes can define properties and methods, but don't have
executable code outside of methods. They are not subroutines or functions in
themselves, although they can define them within. This version worked for
me, where I encapsulated the executable code in a Sub. Note I had to call
the Sub to have the public properties assigned values:
===============
class current_date

public month
public day
public year

Public Sub GetDate
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From
Win32_LocalTime")

For Each objItem in colItems
month = objItem.Month
day = objItem.Day
year = objItem.Year
Next
End Sub

end class

'**********************

dim test
set test = new current_date

test.GetDate

wscript.echo test.month
wscript.echo test.day
wscript.echo test.year

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> schrieb im
Newsbeitrag news:u5BjMpVBKHA.1488@xxxxxx
great, thank you