VBScript to create outlook appointment

Hi,

I have a following vbscript which creates the outlook appointments at the specified time and date.

How do I add the time zone to it so that the appointment gets created based on the specified time zone.

Thanks

Dim objOL   'As Outlook.Application
    Dim objAppt 'As Outlook.AppointmentItem
    Const olAppointmentItem = 1
    Const olMeeting = 1
    
    Set objOL = CreateObject("Outlook.Application")
    Set objAppt = objOL.CreateItem(olAppointmentItem)
	
    With objAppt
        .Subject = "Test"
	.Body = "Test"
        .Start = ("04/9/2010 8:00 AM")
	.End = DateAdd("h", 1, .Start)
	       
        ' make it a meeting request
        .MeetingStatus = olMeeting
        .RequiredAttendees = "abc@xyz.com"
        .Send
    End With
    
    Set objAppt = Nothing
    Set objOL = Nothing

Select allOpen in new window