Disabling Instant Messaging in exchnage 2000 through VBScript   

How can I disable instant messaging in exchange 2000/Windows 2000
through VBScript? I have the VBScript to enable it. I'm searching for
this for past 3 weeks. Please suggest.

Thanks in advance for reply.

date: Thu, 11 Oct 2007 12:39:54 -0700   author:   unknown