beste forum gebruikers wie ken mij helpen met dit script


///////////////////////////////////////////////////////
//
// This script is written by Mark 'markee' Kernke
//
// Please do not reproduce this script (part or whole)
// without prior concent of the author.
//
///////////////////////////////////////////////////////


var Status = new Array("","Offline","","Online","Busy","Be Right Back","Idle","Away","In a Call","Out to Lunch");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var E2;
function OnEvent_Initialize(M){
if(!fso.FolderExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\"))
fso.CreateFolder(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\");
}
function OnEvent_ContactSignin(Email){
if(!fso.FolderExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\"))
fso.CreateFolder(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\");
if(Messenger.MyContacts.GetContact(Email).status!=1){
var Contact = Messenger.MyContacts.GetContact(Email);
if(fso.FileExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\"+Email+".txt")){
MsgPlus.DisplayToastContact("Send On Sign-in",Contact.Name,"Signed in ("+Status[Contact.Status]+")\r\nClick to send personal hello","","Open",Contact);

}else{
MsgPlus.DisplayToastContact("Send On Sign-in",Contact.Name,"Signed in ("+Status[Contact.Status]+")\r\nClick to Open Chat","","Chat",Contact);
}
}else if(Messenger.MyContacts.GetContact("yahoo:"+Email).status!=1){
Email = "yahoo:"+Email;
var Contact = Messenger.MyContacts.GetContact(Email);
if(fso.FileExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\"+Email+".txt")){
MsgPlus.DisplayToastContact("Send On Sign-in",Contact.Name,"Signed in ("+Status[Contact.Status]+")\r\nClick to send personal hello","","Open",Contact);

}else{
MsgPlus.DisplayToastContact("Send On Sign-in",Contact.Name,"Signed in ("+Status[Contact.Status]+")\r\nClick to Open Chat","","Chat",Contact);
}
}
}
function Chat(Contact){
Messenger.OpenChat(Contact.Email);
}
function Open(Contact){
CWnd = Messenger.OpenChat(Contact.Email);
CWnd.SendMessage(fso.OpenTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"\\"+((Contact.Network===1)?"":"yahoo:")+Contact.Email+".txt",1).ReadAll().replace(/[\s\S]{2}$/,""));
}
function OnGetScriptMenu(Location){
var ScriptMenu ="<ScriptMenu>";
ScriptMenu +="<MenuEntry Id=\"Pref\">Preferences</MenuEntry>";
ScriptMenu +="</ScriptMenu>";
return ScriptMenu;
}
function OnEvent_MenuClicked(MenuId,Location,ChatWnd){
if(MenuId=="Pref"){
StartPref();
}
}
function StartPref(){
var Wnd = MsgPlus.CreateWnd("UI.xml","WndUI",1);
var i=0;
var arr = new Array();
var Email;
var e = new Enumerator(Messenger.MyContacts);
for(;!e.atEnd();e.moveNext()){
arr[i] = ((e.item().Network===1)?e.item().Email:"yahoo:"+e.item().Email);
i++;
}
arr = arr.sort();
if(!fso.FolderExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\")){
fso.CopyFolder(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId, MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy");
}
for(i in arr){
Wnd.LstView_AddItem("ListContacts",arr[i]);
Wnd.LstView_SetItemText("ListContacts",i,1,Messenger.MyContacts.GetContact(arr[i]).Name);
}
Wnd.visible = true;
}
function OnWndUIEvent_CtrlClicked(Wnd,Ctrl){
switch(Ctrl){
case "BtnSave":
ts = fso.OpenTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt",2,true)
ts.WriteLine(Wnd.GetControlText("EdtSend"));
ts.Close();
fso.CopyFolder(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy",MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId);
Wnd.Close(0);
E2 = "undefined";
break;
case "BtnApply":
ts = fso.OpenTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt",2,true)
ts.WriteLine(Wnd.GetControlText("EdtSend"));
ts.Close();
fso.CopyFolder(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy",MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId);
E2 = "undefined";
break;
}
}
function OnWndUIEvent_LstViewClicked(Wnd,Ctrl,Index){
ts = fso.OpenTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt",2)
ts.WriteLine(Wnd.GetControlText("EdtSend"));
ts.Close();
E2 = Wnd.LstView_GetItemText(Ctrl,Index,0);
Debug.Trace(E2);
if(!fso.FileExists(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt")){
ts = fso.CreateTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt");
ts.WriteBlankLines(1);
ts.Close();
}
Wnd.SetControlText("EdtSend","");
ts = fso.OpenTextFile(MsgPlus.ScriptFilesPath+"\\"+Messenger.MyUserId+"copy\\"+E2+".txt",1,true)
Wnd.SetControlText("EdtSend",ts.ReadAll().replace(/[\s\S]{2}$/,""));
ts.Close();
}

function OnEvent_Timer(TimerId){
Open(Messenger.MyContacts.GetContact(TimerId));
}


hij moet aan mijn gebruikers in mijn msn automaties een bericht sturen zonder dat ik zelf wat moet doen en dat moet naar alle gebruikers in mijn lijst hoe moet ik dat doen ?