ࡱ> ?(   !"#$%&'>*+,-./912345678):;<=Root Entry:6@Info lAliases EventsScript1466Fab Information Syteme www.klient.comF___fabrice_69@hotmail.com1.1$ CeServeur'Parameters: WindowHan ServerHandle, ' WindowName, WindowType ' Scri$$$andl$$$ TousServeurs'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "CeServeur" Klient.CommandFrom WindowHandle, "InfosServeur" Klient.CommandFrom WindowHandle, "TotalCanaux"$ UptimeSystemeV'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ name = Self.Nick (ServerHandle) Uptime = DateTime.Duration( DateTime.TickCount / 1000 / 60 / 60 / 24 ) Klient.CommandFrom WindowHandle, "say "& name &" tourne sur " & SysInfo.OSLong Klient.CommandFrom WindowHandle, "say depuis " & UptimeWindowType, Params ' TotalLibre = 0 TotalDispo = 0 for i=0 to SysInfo.DriveCount-1 if not (sysinfo.Drive(i)=DriveA) or (sysinfo.Drive(i)=DriveB)then if (not (SysInfo.DiskSpaceFree(sysinfo.Drive(i))=0)) then if (sysinfo.drivetype(sysinfo.Drive(i)) <> "Remote" ) Then LibrIdentifiersPopups :6:6Channel /Chat <rom WindowHandle, "UptimeSysteme"6BM66(  ddf?FH@EGj`iù?AF ;+z*x>C_`kź <~9-/,50CJ%#-D?G8B?  )'BIc`iy>?YQO  ) 9ƾACDVjW -'DDc`ddyhu #(ABD Yl|  2y$)9FItb AS$6\df~={d *B?*A | 0,9?5?GBBM{  ;FHs$Disques'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "InfosDisques"6BM66(  wh,.4+&9 670+ 0 97 ) SHIzR0 wbf) wa9` S! C" > 9 8 431 {I[UғP8>x@,nYxQwRvTwSzU|/+N ׸a;A*p wolv@2D49yWɞֹ^; | ~ fX!G#P)G@F%}VxO}MyUzPySxSwQxRxTyRxRǁQM\J*ļ~{w| $ CeServeur'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ TotalCanaux = Servers.channelcount(ServerHandle) Klient.CommandFrom WindowHandle, "say Ce serveur : " & Servers.NameByHandle(ServerHandle) Klient.CommandFrom WindowHandle, "say Lag sur ce Serveur : " & formatNumber(Servers.LagByHandle(ServerHandle),2) &" Secondes" Klient.CommandFrom WindowHandle, "say est sur " & TotalCanaux & " Canaux sur ce Serveur "$HeureSys'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "say Heure Systme : "& Time$infoF'Parameters: WindowHandle, ServerHandle, WindowName, ' WindowType, Params ' Script : F___ Klient.CommandFrom WindowHandle, "say Script fait par F___"$ InfosDisques'Parameters: WindowHandle, ServerHandle, WindowName, ' WindowType, Params ' TotalLibre = 0 TotalDispo = 0 for i=0 to SysInfo.DriveCount-1 if not (sysinfo.Drive(i)=DriveA) or (sysinfo.Drive(i)=DriveB)then if (not (SysInfo.DiskSpaceFree(sysinfo.Drive(i))=0)) then if (sysinfo.drivetype(sysinfo.Drive(i)) <> "Remote" ) Then Libre = FormatNumber((SysInfo.DiskSpaceFree(sysinfo.Drive(i))/1024/1024),2) Total = FormatNumber((SysInfo.DiskSpace(sysinfo.Drive(i))/1024/1024),2) TotalLibre = TotalLibre + Libre TotalDispo = TotalDispo + Total Klient.CommandFrom WindowHandle, "say Lecteur : " & (sysinfo.Drive(i))& " ("&SysInfo.VolumeName(sysinfo.Drive(i)) &") = " & Libre & " MO Libre / " & Total & " MO au Total" else Klient.CommandFrom WindowHandle, "say Lecteur [Rseau] : " & (sysinfo.Drive(i))& " ("&SysInfo.VolumeName(sysinfo.Drive(i)) &") = " & Libre & " MO Libre / " & Total & " MO au Total" end if end if end if next Klient.CommandFrom WindowHandle, "say Total sur les disques durs locaux : " & SysInfo.DriveCount - 2& " Partitions = " & FormatNumber(TotalLibre,2) & " MO Libre / " & FormatNumber(TotalDispo, 2) & " MO au Total"$ InfosServeurT'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Dim i, j Dim SName, total Dim NomCanal Klient.CommandFrom WindowHandle, "say Total de Serveurs connects : " & Servers.Count for i=0 to Servers.Count-1 NomCanal = "" SName = Servers.NameByIndex(i) if not SName = "" then total = Servers.ChannelCount(servers.Handle(i)) for j=0 to Channels.Count if (Channels.serverByHandle(Channels.Handle(j)) = Servers.Handle(i)) Then nomCanal = Channels.NameByIndex(j) &" "& nomCanal end If next Klient.CommandFrom WindowHandle, "say Serveur "&i+1&" : "& SName &" sur "&total&" Canaux ( "&NomCanal&")" else Klient.CommandFrom WindowHandle, "say Serveur "&i+1&" : NON CONNECTE" end if next$ InfoSysteme|'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ dim i, name, DriveA, DriveB, TotalLibre, TotalDispo, Libre, Total name = Self.Nick (ServerHandle) DriveA="A" DriveB="B" Uptime = DateTime.Duration( DateTime.TickCount / 1000 / 60 / 60 / 24 ) Klient.CommandFrom WindowHandle, "say "& name &" tourne sur " & SysInfo.OSLong Klient.CommandFrom WindowHandle, "say depuis " & Uptime Klient.CommandFrom WindowHandle, "say avec un " & SysInfo.CPUName & " donn " & SysInfo.CPUSpeed &" MHz" Klient.CommandFrom WindowHandle, "say avec " & FormatNumber((SysInfo.MemoryAvailable * 1.024),2) & " / " & FormatNumber((SysInfo.MemoryTotal* 1.024),2) & " MO de RAM Libre" Klient.CommandFrom WindowHandle, "say Version de Klient : "& Klient.Version & " <<<>>> Build: " & Klient.Build Klient.CommandFrom WindowHandle, "say Heure Systme: "& Time$ TotalCanauxN'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Dim i Dim total Dim tserver total=0 for i=0 to servers.Count-1 tserver=servers.Handle(i) total=Servers.channelcount(tserver)+total next Klient.CommandFrom WindowHandle, "say est sur " & total & " Canaux au Total"$z}||~~ź$ Info Serveur`'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___6BM66(  qY`Ab5c<]9sd>}tZ½~i4[6]@X?pf?h8ƹNT\: WV5t`B}ƨW]@HU}>B}ĕJ~SxNtVPʵƵPL{HuSu߯`sώ4ɈœMw@kǒ7[ܟ`^;vzN\DdńhrC}N# {ݦ6Z7u΀N߸͒\6vGTB@¯HG,Ԭt3g=߶x̀G񥻜Aݯbs|=DAṔIۻٹuGoFuyx||}}wù{|Mfưcz|Sa=c9~bCybB~s^MsJzIŊk`5[@N:2޼૕{5^AR ׼ܰq5 ]BZULIN`$Toutes'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "TousServeurs"6BM66(  Vg.n>vk;RLwLMxhnvuy޺x%$+wr(*N)E2V }{ktosn狒CZ^:MbmF< hiŇ=mNE|G0 <>$$-O'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType$ Informationsj 'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___6BM66(  λmD=H hvpexutEC}Y~pn|vuŽCB!J0 P zsrnpomCB$ ( A yrq}tyiqqY"( (B#tqr^V=4`TFJA{PoUq#4$ MqF?'M64 5&Ge2(7*tW i lP# ]` ɼ}}~|~xRH }}^ ^̻u?>7kADɹ$ Info Systme`'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___6BM66(  [SW@AB¾_SR[KKxtq]Y#B@?\WV]HHz{~rZV E?A]VTdWT¢ȭ{gk!B?B[WUWJGyx{yì«XFG >A@nliŮvN:2'HCAwmn̨ɨ̯o\d=]@ H7#[VTwkmt}U3e7 g=d>d?e?^;8SIA^PP|aPf@m?c@`@a@c@d@Z=L;0p[N_9m=bA^A^Ab@a=^= O9'sia{ndvT*sCfAa@]?^>`? J-ucN-"zmNrFg=`<[;I, {aEgSF~|wbRV3_9 M. x_HhTH{ujc^F5s^G_PB|}}\NK~$Toutes'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "InfoSysteme" Klient.CommandFrom WindowHandle, "InfosDisques"6BM66(  3@Wj׷~|RhӵUpXh.Bk]ͅԁtql Nqd~GtoJh^x]ji$Uptime'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandF ҧ]WN'h, Qv; R uԸDVH |E," zw7YT^OR~ =  >%NCzyp C_`kź <~9-/,50CJ%#-D?G8B?  )'BIc`iy>?YQO  ) 9ƾACDVjW -'DDc`ddyhu #(ABD Yl|  2y$)9FItb AS$6\df~={d *B?*A | 0,9?5?GBBM{  ;FHs$ Info Serveur`'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___6BM66(  qY`Ab5c<]9sd>}tZ½~i4[6]@X?pf?h8ƹNT\: WV5t`B}ƨW]@HU}>B}ĕJ~SxNtVPʵƵPL{HuSu߯`sώ4ɈœMw@kǒ7[ܟ`^;vzN\DdńhrC}N# {ݦ6Z7u΀N߸͒\6vGTB@¯HG,Ԭt3g=߶x̀G񥻜Aݯbs|=DAṔIۻٹuGoFuyx||}}wù{|Mfưcz|Sa=c9~bCybB~s^MsJzIŊk`5[@N:2޼૕{5^AR ׼ܰq5 ]BZULIN`$Toutes'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "TousServeurs"6BM66(  Vg.n>vk;RLwLMxhnvuy޺x%$+wr(*N)E2V }{ktosn狒CZ^:MbmF< hiŇ=mNE|G0 <> ҧ]WN'h, Qv; R uԸDVH |E," zw7YT^OR~ =  >%NCzyp 7kADɹ$ Info Systme`'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___6BM66(  [SW@AB¾_SR[KKxtq]Y#B@?\WV]HHz{~rZV E?A]VTdWT¢ȭ{gk!B?B[WUWJGyx{yì«XFG >A@nliŮvN:2'HCAwmn̨ɨ̯o\d=]@ H7#[VTwkmt}U3e7 g=d>d?e?^;8SIA^PP|aPf@m?c@`@a@c@d@Z=L;0p[N_9m=bA^A^Ab@a=^= O9'sia{ndvT*sCfAa@]?^>`? J-ucN-"zmNrFg=`<[;I, {aEgSF~|wbRV3_9 M. x_HhTH{ujc^F5s^G_PB|}}\NK~$Toutes'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "InfoSysteme"6BM66(  3@Wj׷~|RhӵUpXh.Bk]ͅԁtql Nqd~GtoJh^x]ji$Uptime'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "UptimeSysteme"6BM66(  ddf?kusb__trr8;:~~~ҾZZZtss9::~~~###ίttt999΍<::쀀$Canaux'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "TotalCanaux"6BM66(  }~~~z|~}-/m',h`c~~ b x,*j|~|<@}%#1* m}26~+'SI/- x~{|qs8/iܼ¾{}̽13 qbhўҨЯᛠ͡|$ Ce Serveur'Parameters: WindowHandle, ServerHandle, ' WindowName, WindowType ' Script : F___ Klient.CommandFrom WindowHandle, "infoF" Klient.CommandFrom WindowHandle, "CeServeur"6BM66(  edf|ttu,,,ptuUUU\\\|qvwSUVuuuKKKxlwtRUWpqqfffJJJtgxnPSWstu^^^iii111rģ][joRVZsttfff```888s~Ƣ}QTYqrsdddfff000lmoqstdff_aa444ȦΉacccee222Өӌ_aa222֍111瀀лƀGlobal