'---------------------------------------------------------
' This sample launches the application as interactive user.
'---------------------------------------------------------

const TriggerTypeRegistration = 7 ' A constant that specifies a registration trigger.
const ActionTypeExecutable = 0 ' A constant that specifies an executable action.
const FlagTaskCreate = 2 ' A constant that specifies the flag in RegisterTaskDefinition.
const LogonTypeInteractive = 3 ' A constant that specifies an executable action.
const MaxTaskTime = 5 'The length of time in minutes before the task is automatically deleted

If WScript.Arguments.Length 1 Then
WScript.Echo "Usage: cscript launchapp.wsf "
WScript.Quit
End If

strAppPath = WScript.Arguments(0) ' This is the script to run.

'********************************************************
' Is this Vista or XP?
' Begin the section added by Jarvis
'********************************************************

' This section that determines OS version is a modified version of code
' originally posted at the following web page:
' http://blog.eqinox.net/jed/archive/2006/12/05/1270.aspx
'
Dim NotVistaClient
Dim wshShell

NotVistaClient = False
Set wshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objOSList = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each os In objOSList
BuildNumber = OS.BuildNumber
If BuildNumber < 6000 Then
NotVistaClient = True
End If
Next
If NotVistaClient = True Then
wshShell.Run(strAppPath), 0, False ' Run the logon script normally
WScript.Quit
Else ' Run the logon script using launchapp.wsf

'********************************************************
' The next lines set a string variable that adds time MaxTaskTime to the
' current date/time to be used to set an expiration to the scheduled task.
'********************************************************

Dim atb

atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
offset = wshShell.RegRead(atb) / 60 'get the time offset from the registry and convert it into the hour offset. This script will probably need modification for non-US locales
offsetHour = offset Mod 60
offsetMin = offset \ 60
If offset < 0 Then
strOffset = "+" & TwoDigit(offsetHour) & ":" & TwoDigit(offsetMin)
Else
strOffset = "-" & TwoDigit(offsetHour) & ":" & TwoDigit(offsetMin)
End If
cdt = DateAdd("n",MaxTaskTime,Now()) 'Add time to the current date and time so we can set the trigger expiration to that
ExpireTime = Year(cdt) & "-" & TwoDigit(Month(cdt)) & "-" & TwoDigit(Day(cdt)) &_
"T" & TwoDigit(Hour(cdt)) & ":" & TwoDigit(Minute(cdt)) & ":" & TwoDigit(Second(cdt)) &_
strOffset

Function TwoDigit(vExpression) 'makes single digit numbers have a leading 0 and returns only positive values
If Abs(vExpression) < 10 Then
TwoDigit = "0" & Abs(vExpression)
Else
TwoDigit = Abs(vExpression)
End If
End Function

'********************************************************
'********************************************************
' End the section added by Jarvis
'********************************************************
'********************************************************
' Create the TaskService object.
'********************************************************

Set service = CreateObject("Schedule.Service")
call service.Connect()
Set TypeLib = CreateObject("Scriptlet.TypeLib") 'Used only to generate a GUID
strTaskName = "Logon script task " & mid(TypeLib.GUID,2,36) 'Give it a unique name using the GUID without the { }

'********************************************************
' Get a folder to create a task definition in.
'********************************************************

Dim rootFolder
Set rootFolder = service.GetFolder("\")

'Delete the task if already present
On Error Resume Next
call rootFolder.DeleteTask(strTaskName, 0)
Err.Clear
On Error GoTo 0

'********************************************************
' Create the new task
'********************************************************

Dim taskDefinition
Set taskDefinition = service.NewTask(0)

'********************************************************
' Create a registration trigger.
'********************************************************

Dim triggers
Set triggers = taskDefinition.Triggers

Dim trigger
Set trigger = triggers.Create(TriggerTypeRegistration)
trigger.EndBoundary = ExpireTime 'Set the task to expire so it can be deleted automatically

'***********************************************************
' Create the action for the task to execute.
'***********************************************************

' Add an action to the task. The action executes the app.
Dim Action
Set Action = taskDefinition.Actions.Create( ActionTypeExecutable )
Action.Path = strAppPath

'***********************************************************
' Set the settings for the task
'***********************************************************

'Dim settings
Set settings = taskDefinition.Settings
settings.DeleteExpiredTaskAfter = "PT0M" 'Delete the task immediately after the trigger expires

'***********************************************************
' Register (create) the task.
'***********************************************************

call rootFolder.RegisterTaskDefinition(strTaskName, taskDefinition, FlagTaskCreate,,, LogonTypeInteractive)
End If