This is a small VB script that moves a person's cursor to a random spot on their screen. It relies on Excel to run a macro.

rando_cursor

Option Explicit
Dim Excel, x, y, i
Dim min, max

Randomize

min = 0
max = 500
Set Excel = WScript.CreateObject("Excel.Application")

Do While True
  x = ((max-min+1)*Rnd+min)
	y = ((max-min+1)*Rnd+min)
	Excel.ExecuteExcel4Macro ( _
		"CALL(""user32"",""SetCursorPos"",""JJJ""," & x & "," & y & ")")

	WScript.Sleep (5000)
Loop