This works on win2k. Edit to fit your Windows directory structure. Save to "Disable-Enable wisptis.exe.vbs". Pls note U must first create the zero byte file (wisptis.exe.zero)


'Disable-Enable wisptis.exe

'--------------------------------------------------------------------------------
' Written by ProgrammerDude
'--------------------------------------------------------------------------------

subject ="Pen input device"
pdir ="C:\winnt\system32\"
pgm ="wisptis.exe"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(pdir +pgm +".disabled") Then
Set file = fso.GetFile(pdir +pgm)
file.Name = pgm +".disabled"
Set file = fso.GetFile(pdir +pgm +".zero")
file.Name = pgm
MsgBox subject +" has been disabled." _
, vbExclamation +vbSystemModal, " " +subject +" has been disabled"
Else
On Error Resume Next
Set file = fso.GetFile(pdir +pgm)
file.Name = pgm +".zero"
On Error Goto 0
Set file = fso.GetFile(pdir +pgm +".disabled")
file.Name = pgm
MsgBox subject +" is enabled." _
, vbInformation +vbSystemModal, " " +subject +" is enabled"
End If