Set objLocator = CreateObject("WbemScripting.SWbemLocator") 
Set objWMIService = objLocator.ConnectServer("es-g01-app01", "root\cimv2", "NDRSMP\p57571", "Dragon#06") 
Set colItems = objWMIService.ExecQuery(wmiQuery) 
 
wscript.echo "Now establish a scheduled task"
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
set objTZone = objWMIService.ExecQuery("Select Bias From Win32_TimeZone")

for each objItem in objTZone
	strBias = objItem.Bias
Next

SchdTime = TimeConvert(time, strBias)

Set objWMIService = GetObject("winmgmts:" _
                              & "{impersonationLevel=impersonate, (Security)}!\\" _
                              & "es-g01-app01" & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")      
errJobCreated = objNewJob.Create("C:\Rescue21\install\fixsnmp.bat", _
                                  SchdTime, False , , , , JobID)