;=============================================================================================== 

; 

;Dependencies: UDF's:Scheduletask, Serialtime, netview2, Osid, DateMath, SerialDate, abs. 

;			Service: Task Scheduler must be installed and running. 



; variables Scheduletask function  

$name='test' 

$date=@DATE

$type='ONCE'

$cmd='notepad'

; variables Serialtime function  

$timediff='00:30'

$time='16:30'



; Calling UDF's 

;? @scriptdir 

Call @Scriptdir+'\netview2.udf'

Call @Scriptdir+'\osid.udf'

;Call @Scriptdir+'\serialtime.udf' 

Call @Scriptdir+'\scheduletask.udf'

Call @Scriptdir+'\serialdate.udf'

Call @Scriptdir+'\abs.udf'

Call @Scriptdir+'\datemath.udf'



; Domain scan 

$computers=netview2(sasapp)

For Each $computer In $computers



; filter 

$os = osid($computer)



If $os[1]='Win2K' AND $os[2]<>'Workstation' AND InStr($computer,"sasn")<>0

	$time=serialtime(serialtime($time)+ serialtime($timediff))

	

	; Date

	If $time='00:00' OR $TIME='24:00' 

		$date= DateMath($date, 1)

	EndIf

	

	;$rc=scheduletask($name, $comp, $date, $time, $type, $cmd)

	? 'Found'+ $computer ; test 

	? 'date'+ $date	;test	

EndIf	

Next

Exit





;FUNCTION SerialTime (modified -> (HH:MM)) 

; 

;AUTHOR Jens Meyer (sealeopard@usa.net) 

; 

;SYNTAX SERIALTIME(STRTIME) 

; 

;EXAMPLE $rc=SERIALTIME('02:20') 

; 

;KIXTART BBS http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000039 

; 

Function serialtime($strtime)

Dim $hours, $minutes



If InStr($strtime,':')

	$strtime=Split($strtime,':')



	Select

	Case Ubound($strtime)<1

	ReDim preserve $strtime[1]



	Case Ubound($strtime)>1

	$serialtime=-1

	Exit 87

	EndSelect



	$hours=Val($strtime[0])

	If $hours<0 OR $hours>23

		$serialtime=-1

		Exit 87

	EndIf

	$minutes=Val($strtime[1])

	If $minutes<0 OR $minutes>59

	? 'fifteen' +Chr(9)+@ERROR+Chr(9)+$serialtime

		$serialtime=-1

		Exit 87

	EndIf

	$serialtime=0.0+($hours*3600)+($minutes*60)

Else

		$strtime=Val(CDbl($strtime)*1000)

	If $strtime<=86400000 AND $strtime>=0

		$hours=$strtime/3600/1000

		$strtime=$strtime-($hours*3600*1000)

		$hours=Right('00'+$hours,2)

		$minutes=$strtime/60/1000

		$strtime=$strtime-($minutes*60*1000)

		$minutes=Right('00'+$minutes,2)

		$serialtime=$hours+':'+$minutes

		? 'sixteen' +Chr(9)+@ERROR+Chr(9)+$serialtime

	Else

	? 'seventeen' +Chr(9)+@ERROR+Chr(9)+$serialtime

		$serialtime='-1'

		Exit 87

	EndIf

EndIf

EndFunction