CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 10 04:06:30

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

STATISTIQUE DE VOS DISQUES DUR.

Information sur la source

Note :

9,00 / 10

Catégorie :Divers Classé sous :disquedur, statistique, information, addon Niveau :Débutant Date de création :20/04/2006 Date de mise à jour :16/03/2008 01:39:13 Vu :3 972

Auteur : Nort0n

Ecrire un message privé

Site perso

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Petite remote (fonctionnant sans DLL ni apport exterieur) qui permet de retourner la plupart des infos (Nom, Type, espace total, espace libre, pourcentage d'espace occupé & libre) de vos disques dur. Ce code n'a rien de pretentieux, mais je l'ai fais suite à la demande d'un ami afin d'avoir des stats rapide sur IRC.

Source

on *:input:#: {
if ($$1 == .state) {
if (!$2-) { .timer 1 2 msg $chan 1[ Analyse ] Vous devez préciser le nom du volume à analyser ! (Exemple : .state c:) | halt }
elseif (: !isin $2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
else {
if ((!$disk($2).size) || ($disk($2).size == 0)) { .timer 1 2 msg $chan 1[ Analyse ] Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
else {
if ($disk($2).type == fixed) { var %trans.type Interne }
else { var %trans.type Externe }
.timer 1 2 msg $chan 1Vérification de l'état du volume $$2
.timer 1 3 msg $chan 1Type de disque :14 %trans.type $+ 1,
.timer 1 4 msg $chan 1Nom du volume :14 $disk($$2.label $+ 1,
.timer 1 5 msg $chan 1Espace Total :14 $round($calc($disk($2).size / 1073741824),2) 1Go,
.timer 1 6 msg $chan 1Espace Libre :14 $round($calc($disk($2).free / 1073741824),2) 1Go,
.timer 1 7 msg $chan 1L'espace libre représente14 $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2) $+ 1% de l'espace total,
.timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2)),2) $+ 1% $+ .
.timer 1 9 msg $chan 1Analyse terminée pour $2 $+ .
}
}
}
}

on *:input:#: {
  if ($$1 == .state) { 
    if (!$2-) { .timer 1 2 msg $chan 1[ Analyse ] Vous devez préciser le nom du volume à analyser ! (Exemple : .state c:) | halt }
    elseif (: !isin $2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
    else {
      if ((!$disk($2).size) || ($disk($2).size == 0)) { .timer 1 2 msg $chan 1[ Analyse ] Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
      else {
        if ($disk($2).type == fixed) { var %trans.type Interne }
        else { var %trans.type Externe }
        .timer 1 2 msg $chan 1Vérification de l'état du volume $$2 
        .timer 1 3 msg $chan 1Type de disque :14 %trans.type $+ 1,
        .timer 1 4 msg $chan 1Nom du volume :14 $disk($$2.label $+ 1,
        .timer 1 5 msg $chan 1Espace Total :14 $round($calc($disk($2).size / 1073741824),2) 1Go,
        .timer 1 6 msg $chan 1Espace Libre :14 $round($calc($disk($2).free / 1073741824),2) 1Go,
        .timer 1 7 msg $chan 1L'espace libre représente14 $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2) $+ 1% de l'espace total,
        .timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2)),2) $+ 1% $+ .
        .timer 1 9 msg $chan 1Analyse terminée pour $2 $+ .
      }
    }
  }
}

Conclusion

Pour faire fonctionner ce code, copier le dans une nouvelle page 'remote' de votre client IRC, puis vous faites .state c: sur un salon, et voilà.
ATTENTION : Cette remote analyse un seul disque, pour en tester plusieurs, vous devez repeter la commande autant de fois que necessaire en modifiant le nom du volume.
(Le texte fonctionne sur un input, et retourne les infos sur le salon où la commande a été tapée. Si vous souhaitez avec le meme qui fonctionne sur un alias et qui retourne les infos en echo, suffit de demander ^^).

Si la valeur d'espace total n'est pas exactement la même qu'indiquée sur l'emballage de votre DD, c'est normal, la remote retourne les valeurs 'reeles' et non les octets 'informatique'. (cf google pour plus d'infos).

Historique

04 novembre 2006 17:54:17 :: - Tous les calculs sont implentés directement dans le retour. (Suppression des variables globales) - Les variables globales pour le type de disque passent en locales. - Regroupement des conditions pour vérifier la présence du volume. - Pour bientôt, un p'tit ajout pour permettre d'avoir les infos sur salon (tjrs avec le '.state *:'), et aussi de les avoir en echo avec un '/state *:'.
04 novembre 2006 18:01:16 :: - Suppression de la var qui donnait le type de volume.
04 novembre 2006 18:31:08 :: - (Encore une ..) - Changement des conditions 'if ($2- == $null)' en '(!$2-)' (C'est mieux pour les yeux ...)
16 mars 2008 01:39:13 :: P'tite MàJ par rapport aux remarques :)

Sources du même auteur

STATISTIQUES DISQUE(S) DUR(S)

LISTE DES RAWS QUE J'AI TROUVÉ

WHOIS EN RAWS SIMPLE ET CLAIR

Toutes les sources de Nort0n

Sources de la même categorie

CRÉER DU MONDE SUR VOTRE SERVEUR IRC par Averell

AVOIR UNE LISTE D'UTILISATEUR EN COULEURS SELON LEURS SEXE P... par WorldDMT

COMMANDES FANTAISIES ( OP DEOP , VOICE DEVOICE ) ORIGINALES par Orona

CORRECTEUR par Orona

[DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

STATISTIQUES DISQUE(S) DUR(S) par Nort0n

WORLDDMT - DETECTEUR DE PSEUDOS ET DE CLONES + AFFICHEUR DE ... par WorldDMT

WORLDDMT - STATISTIQUE V 1.0 par WorldDMT

WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT

WORLDDMT FUN WBAR V 1.0 - ADDON POUR BOT FUN par WorldDMT

Commentaires et avis

Commentaire de RCA ArKanis le 21/04/2006 00:14:37

tu utilises beaucoup trop de variables à mon goût :x

pense aux variables locales ! (/var)

tu n'en as même pas besoin, remplace dans tous tes timers la valeur d'origine des variables
ex :
.timer 1 3 msg $chan 1Type de disque :14 $iif($disk($$2).type == fixed,Interne,Externe) $+ 1
...
.timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - %per.free.s),2) $+ % $+ 1.
(tu peux utiliser %per.free.s vu que tu l'utilises 2x, pareil avec %free.space)

if ( $2- == $null )
ici, tu peux utiliser if (!$2-), car de toute façon, volume $false ou 0, ça te retournera une erreur à un moment ...

T'aurais pu faire dire des lignes plus longues à mon avis. Comme tu l'as fait, ça flood un peu trop.

Point de vue intérêt : ça dépend des personnes. Moi, ça me branche pas trop mais bon, ...

Commentaire de Nort0n le 21/04/2006 01:51:45

Merci de ta remarque. Tu as parfaitement raison, j'aurais pu faire plus court. Quant aux variables, j'les avais surtout utiliser pour eviter de poser les calcules directement dans les msg (c'est inutile, j'te l'accorde, c'est pour mieux decortiquer la remote).
Pour les locales, j't'avoue que j'les utilises TRES rarement (c'est peut-être un tort -_-)
Niveau interet, j'en vois pas reelement non plus, mais c'était pour un ami, et avoir des stats fiables assez rapidement.
Et pour conclure, pour le if ( $2- == $null ) a la place du (!$2-), c'est une vieille habitude que j'ai prise, ça m'fait tapoter plus de code, mais j'ai tjrs fais comme ça. (Qui a dit que j'etais feignant ? ;p)

Commentaire de wims le 21/04/2006 12:49:43

Tout a ete dis par Arkanis sauf deux trucs :)

if ( $disk($$2).size == $null ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
if ( $disk($$2).size == 0 ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Tu peux regrouper ca en une seul condition :

if (!$disk($$2)) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Et :
if ( %type.disk == fixed ) { set %trans.type Interne }
if ( %type.disk != fixed ) { set %trans.type Externe }

par

set %trans.type $iif(%type.disk == fixed,Interne,Externe)

Sinon :

Pour les locales, j't'avoue que j'les utilises TRES rarement (c'est peut-être un tort -_-)

oui :)

Commentaire de wims le 21/04/2006 12:50:18

Commentaire de wims le 21/04/2006 12:50:55

Hum le site a buguer dsl du double post :)

Commentaire de GenerationNoNNoN le 19/06/2006 02:19:56

Tu set beaucoup trop de variables je pense, sinon sa pourrait être optimisé .

Commentaire de Nort0n le 04/11/2006 17:25:37

Bon aller, la source dort depuis quelques temps, et vu les commentaires, j'vais me lancer dans une p'tite optimisation/Mise à Jour du code.

Merci pour vos comments, j'espère avoir quelques nouvelles quand la remote sera up ^^

Commentaire de RCA ArKanis le 04/11/2006 21:21:12

encore un truc qui choque ...

if ($chr(58) !isin $$2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
tu /halt, donc tu ne verras pas le .state, mais ton timer va tout de même faire envoyer un message sur le salon. Tu ne ferais pas mieux de mettre un echo ?

sinon, vu que tu as mis if (!$2-) { ... halt }, tu n'as pas besoin de doubler le $ à la ligne suivante, et le $chr j'pense pas qu'il soit utile. Ca devient :
if (: !isin $2)

en fait, ce qu'il serait bien, c'est d'avoir :
if (!$2-) .timer 1 1 msg $chan ...
elseif (: !isin $2) .timer 1 1 msg $chan ...
else {
etc ....
}

sinon le else n'a aucun intérêt vu que tu /halt

Commentaire de PaTaTe le 21/02/2007 16:24:02

Y a t-il moyen de detecter tous disque durs en vigueur sur la machine et d'additionner le tout ?

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Information sur la commande $disk [ par dklice ] Allo jaimerai savoir commen on fait pour transformer le format que cette commande nous donneEx: la commande $disk(c:).free repond un tas de chiffres e Help :) [ par jujuquatre ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~JuJuQuArTrE s^ s^ s^ JuJu_BoT WWW.ut2004.fr.st~~~~~~~~~~~~~~~~~~~~~~~~~~~~Ben voila J'ai commencer un addon de auto-mode ( addon get + queue = ban du serv [ par Illuvatar ] Est ce kkun soré faire un code du style 1 get + 1 queue = ban du fserv ?Merci d'avance [/purple] Noldor, blood is on your hands. You're banned, a tear Addon Recuperation de gline et suppression auto [ par motherboy ] Bonjour,Ne connaissant pas trop le language de script mirc, j'viens par ce forum demander a un extreme codeur mirc de bien vouloir m'aider.En gros je Information dans un fichier ini ou txt [ par Zioa ] Bonjour,j'aurait voulu savoir comment je peut stocker des information dans un fichier ini ou txt puis apret recuperait les info que j'ai mis dedans Me Bot qui fait des statistique d'un chan [ par Elnath ] Bonjour, j'aimerais savoir si quelqu'un pourrais me faire, ou me trouver un bot qui permet de faire des statistique d'un chan ( nombre moyen de person Information shell pas cher [ par talking ] Voilà j'aimerai savoir si vous connaissez un site ou on peux dl un shell pas trop cher entre 2 et 4 euros par moiMerci +o directement sur le canal [ par rompell ] Salut :)Je cherche depuis 2 jours un addon pour faire +o ou simplement op, deop, voice... directement sur le canal. Style on dis DEOP sur le canal et et le multicolor ????? [ par duchemolle ] Bonjours a tous ! je suis un nouveau membre et nb dans le scripting .Et j aimerais si possible que quelqu'un fasse une ecriture alternée multicouleure bot ou addon badchan [ par HAAGEN ] Bonjour je voudrais savoir si il existe un addon badchan a rajouté a mon cservice ou un bot en mirc et non eggdrop ' je m'explique le robot fait un wh

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

Forum

CONFLIT ENTRE BOTSERV ET CHANSERV ? par Nordicansa

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site internet similaire a Meetic CDC Disponible
Budget : 8 000€
Integration E commerce d-une application graphique interactive
Budget : 4 000€
URGENT-Developpement d-un annuaire
Budget : 13 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011