Sujet: [MILKYWAY] Discussions sur Milkyway@home

[supersnoopy]

Hello

Je peut pas lire la page 25 depuis le taf car quel qu'un a posté avec un gros mot surement c'est le firewall qui me la dit et bloqué la 25 [:arnaud25]

c'est à cause de tout les exemples de code dangereux et malicieux  

[jm@rc]

c'est pas impossible. c'est du VBScript et certains firewall peuvent analyser le contenu des pages avant de le laisser passer.
netrider ferait bien de prier qu'un des admins de son taf n'épluche pas les logs du firewall sinon le forum risque d'être blacklisté sur son lieu de travail.

[pitheque]

Vbscript c'est bien joli, mais et nos amis Pingouins ?
J'ai pratiquement terminé le même script, mais en Java, donc multi-plateforme, ça intéresse quelqu'un ?
Edit :A moins qu'il existe déjà sur le forum milky?

[Meteore31]

une question bête : peut-on faire un fichier .bat pour lancer le fichier .vbs

j'ai copié le fichier milky.vbs dans c:\program files\boinc\

quelqu'un pourrait m'aider, j'y connais pas grand chose... je voudrais juste double cliquer sur mon bat pour lancer le script

[Extra Ball]

quelqu'un pourrait m'aider, j'y connais pas grand chose... je voudrais juste double cliquer sur mon bat pour lancer le script

Ptain, on vous enleve le dble clic et vous etes mort !

c:
cd "c:\Program Files\Boinc"
cscript XXXX.vbs

[Meteore31]

merci ça marche lol

[Netrider]

Haloa  

Bein voila ma méthode

Pour lancer mon editeur sous Vista 64 :
Panneau de configuration
Outils d’administration
Configuration du système
Onglet ( outils )
Invité de commande
Exécuter

Quand meme !! Ouf le truc ^^

Lancement du Vbs :

cd  j:\Program Files\BOINC
cscript toto.vbs

Ho bonheur ca fonctionne suivant les délais inscrit  mais pas de wu en retour des le début la faute a Milky bien su,r car apres quelques autotentatives ca fonctionne

Ps disque J et toto.vbs sont des marques déposées par un de mes pc  :sol:  ( Et le script est celui d'Extraball Copyrit de Pitheque)

Un grand merci a tout les pros du coin et plus particulierement à Pitheque  

[Extra Ball]

( Et le script est celui d'Extraball )

Je rends a pitheque ce qui lui appartient sinon HADOPI deboule chez moi ce soir

[frederic]

Vous vous compliquez bien la vie alors que des trucs auto existent depuis des années   enfin si ça marche tant mieux  

[Netrider]

Pour lancer le fichier vbs plus rapidement sous Vista

Aller dans le répertoire boinc la ou le vbs se trouve
Maintenez schift enfoncé
Cliq droit sur le fichier avec la sourie
Cliq sur > ouvrir avec l’invité de commande

C’et parti mon kiki

[TaxxorbaK]

Pour lancer le fichier vbs plus rapidement sous Vista et/ou sous XP

Aller dans le répertoire boinc la ou le vbs se trouve
Maintenez schift enfoncé
Cliq droit sur le fichier avec la sourie
Cliq sur > ouvrir avec l’invité de commande

C’et parti mon kiki

Merci pour l'astuce, en plus ça ne marche pas que sous vista, XP est un mec sympa lui aussi  [:damien]
Et merci pour le script les gars

[Netrider]

Merci d'avoir été plus loin dans la recherche Taxx
Je vais éssayer sous mon Win 3.1  

[Extra Ball]

Script pitheque modifie V2.2

Pour ceux qui veulent un peu d'infos statistiques sur leur production MW, j'ai ajoute 2 ou 3 fitchures ()
Aucun ajout fonctionnel ni correction, juste de l'affichage (etat courant, temps de traitement, duree des plages Idle/Working maximum...)
Promis, j'essaie de vous poster le fichier quelque part demain

DelaiAttenteSiQuotaAtteint = 120   ' Duree (en secondes) de mise en sommeil une fois le quota maximum atteint
DelaiAttenteSiWUsManquantes = 30   ' Duree (en secondes) de mise en sommeil entre 2 requetes d'obtention de nouvelles WUs
IdleTime=0            ' Temps total (en secondes) pendant lequel le PC n'a eu aucune WU en stock
WorkTime=0            ' Temps total (en secondes) pendant lequel le PC a pu cruncher (au moins une WU en stock non calculee)
TotalTime=0            ' Temps total (en secondes) depuis le lancement du script
MaxActivityTime=0         ' Plus longue periode d'activite (en secondes)
MaxIdleTime=0            ' Plus longue periode d'attente (en secondes)
CurrentPeriodTime=0         ' Duree totale de la phase de travail/d'inactivite en cours (en secondes)
CurrentStatus=-1         ' Etat courant de la phase : -1=Init 0=Idle 1=Working
LastStatus=-1            ' Etat lors du dernier traitement 0=Idle 1=Working
StatusStr="Init"
nbresults = 0
NbWusATraiter=0            ' Cumul du nombre de WUs a calculer
NbLoops=0            ' Nombre de passes dans la boucle principale du programme
maxwus=50
run = True

WScript.Echo("---------------------------------------------------------------------")
WScript.Echo(" Parametres du script (V2.2) :")
WScript.Echo("     Attente sur atteinte quota max (sec) : " &DelaiAttenteSiQuotaAtteint)
WScript.Echo("     Attente sur manque de WUs      (sec) : " &DelaiAttenteSiWUsManquantes)
WScript.Echo("---------------------------------------------------------------------")

Call get_cpu

Do While run
   NbLoops = NbLoops + 1
   sleep = DelaiAttenteSiQuotaAtteint

   Call get_results
   
   NbWusATraiter = NbWusATraiter + nbresults

   If nbresults >= maxwus Then
'      WScript.Echo("WUs maxi atteint : " &maxwus)
'      WScript.Echo("  -> Mise en sommeil (delai en secondes) : " &DelaiAttenteSiQuotaAtteint)

   Else
      sleep = DelaiAttenteSiWUsManquantes
'      WScript.Echo("WUs manquantes : " &(maxwus - nbresults))
'      WScript.Echo("  -> Demande de WUs (delai en secondes) : " &DelaiAttenteSiWUsManquantes)
      Set objShell = CreateObject("WScript.Shell" )
      Set objWshScriptExec = objShell.Exec("boinccmd --project http://milkyway.cs.rpi.edu/milkyway/ update" )
   end If

   If (nbresults > 0) Then
      WorkTime=WorkTime+sleep
      CurrentStatus=1
      
      If (nbresults >= maxwus) Then
         StatusStr="Calcul possible, quota maximum"
      Else
         StatusStr="Calcul possible, unités disponibles"
      end if
   Else
      IdleTime=IdleTime+sleep
      CurrentStatus=0
      StatusStr="En sommeil, pas de WU disponible"
   end If
   
   ' Test changement d'etat
   If (CurrentStatus <> LastStatus) Then
      ' Dans le cas initialisation, on ne fait rien de special
      If (LastStatus >= 0) Then
         ' Memoriser la duree max de la periode qui vient de se terminer au besoin
         If (CurrentStatus > 0) Then
            ' On passe de Idle a Working
            If (CurrentPeriodTime > MaxIdleTime) Then
               MaxIdleTime = CurrentPeriodTime
            end if
         Else
            ' On passe de Working a Idle
            If (CurrentPeriodTime > MaxWorkingTime) Then
               MaxWorkingTime = CurrentPeriodTime
            end if
         end if
      end if
      
      CurrentPeriodTime = sleep
   Else
      CurrentPeriodTime = CurrentPeriodTime+sleep
   end if
   
   TotalTime=TotalTime+sleep

   WScript.Echo("Etat periode actuelle                   : " &StatusStr)
   WScript.Echo("   et ce depuis (min)                   : " &(CurrentPeriodTime/60))
   WScript.Echo("Nombre WUs a calculer                   : " &nbresults)
   WScript.Echo("Moyenne WUs en stock                    : " &(NbWusATraiter/NbLoops))
   WScript.Echo("    soit en %                           : " &(100-(100*(1-(NbWusATraiter/NbLoops)/maxwus))))
   WScript.Echo("Temps calcul potentiel (min)            : " &(WorkTime/60))
   WScript.Echo("Temps d'inactivite (min)                : " &(IdleTime/60))
   WScript.Echo("Temps total depuis lancement (min)      : " &(TotalTime/60))
   WScript.Echo("  soit une activite de (%)              : " &(100*(WorkTime/TotalTime)))
   WScript.Echo("Duree + grande plage d'inactivite (min) : " &(MaxIdleTime/60))
   WScript.Echo("Duree + grande plage de calcul (min)    : " &(MaxWorkingTime/60))
   WScript.Echo(" ")
   
   WScript.Sleep(sleep * 1000)
   
   LastStatus = CurrentStatus
Loop
 
'------------------------------------------
'
'------------------------------------------
Sub get_cpu
   Set objShell = CreateObject("WScript.Shell" )
   Set objWshScriptExec = objShell.Exec("boinccmd --get_host_info" )
   Set objStdOut = objWshScriptExec.StdOut
   
   While Not objStdOut.AtEndOfStream
      strLine = objStdOut.ReadLine
      pos = InStr(strline,"#CPUS" )
      
      If pos > 0 Then
         ncpus = Right(strline,1)
      end if
   Wend

   WScript.Echo("Initialisation, lecture du fichier de configuration BOINC :")
   WScript.Echo("   ->  #CPUS= : " &ncpus)
   
   maxwus = ncpus * 6
   WScript.Echo("   -> MaxWUs= : " &maxwus)
WScript.Echo("---------------------------------------------------------------------")
End Sub
 


Sub get_results
   Set objShell = CreateObject("WScript.Shell" )
   Set objWshScriptExec = objShell.Exec("boinccmd --get_results" )
   Set objStdOut = objWshScriptExec.StdOut
 
   nbresults = 0

   While Not objStdOut.AtEndOfStream
      strLine = objStdOut.ReadLine
      pos0=InStr(strline,"milkyway" )
   
      if pos0 >0 then
         strLine = objStdOut.ReadLine  
         strLine = objStdOut.ReadLine  
         pos1 = Instr(strline,"yes" )  

         if pos1 > 0 and nbresults > 0 then
            nbresults = nbresults - 1
         else
            nbresults = nbresults+1
         end if
      end if
   Wend
End Sub

[supersnoopy]

:ouch:  ces scripts commencent à me plaire !

j'aime beaucoup l'idée des infos statistiques sur la prod

 

le seul défaut de cette méthode peu éthique de refresh auto, c'est cette fenêtre DOS moyennâgeuse qui reste ouverte

[Meteore31]

quelqu'un pourrait aussi ajouter à ce script un moyen de forcer le second projet auquel on crunche avec Milky à ne calculer que sur 3 coeurs pour laisser le 4ème coeur à Milky ?

je m'explique : si je laisse toutes les wus Séti en "Prêt à démarrer" ça me prend les 4 coeurs et me stoppe MilkyGPU...

j'ai mis n3 w1.1 f10 dans app_info et ncpus 4 dans cc_config

help me please ! lol

[pitheque]

@Extra Ball
ça parait t'amuser ce truc  

:ouch:  ces scripts commencent à me plaire !
 
j'aime beaucoup l'idée des infos statistiques sur la prod
 
 
 
le seul défaut de cette méthode peu éthique de refresh auto, c'est cette fenêtre DOS moyennâgeuse qui reste ouverte

Il nous faut un cahier des charges, à partir de ce moment tu recevras une estimation du coût, ainsi qu'un délai de réalisation, délai que tu pourras multiplier par un nombre choisi entre 2 et .... beaucoup.  :whistle:

quelqu'un pourrait aussi ajouter à ce script un moyen de forcer le second projet auquel on crunche avec Milky à ne calculer que sur 3 coeurs pour laisser le 4ème coeur à Milky ?

Je vais de ce pas en parler à ma crémière  

[Meteore31]

j'arrive toujours pas à faire tourner MilkyGPU + 1 autre projet pour mes CPUs, si quelqu'un pourrait m'expliquer ce qu'il faut faire ? merci d'avance, je pédale là...

j'ai mis n3 w1.1 f10 dans app_info et ncpus 4 dans cc_config

je vais laisser que MilkyGPU mais si les wus n'arrivent pas mon pc tournera pour rien...

[JeromeC]

Ouaih surtout que ton CPU pourrait faire du Seti, ça serait sympa, en ce moment

Aidez le merde !!

[F5LCU]

Météore

ma config sur notre forum Occitania
par contre tu utilises le fichier . bat suivant

:encore
@echo refresh MilkyWay
c:\Progra~1\BOINC\boinccmd --project http://milkyway.cs.rpi.edu/milkyway/ update
ping -n 120 127.0.0.1 >nul
cls
goto encore

idée super sur ce forum de je ne sais plus qui (merci à lui en tout cas).

[kikiphil]

Pour meteore je tourne avec ma 4870 et boinc 6.5.0

3 milky et 4 seti

ncpus 4 dans cc_config

tous les projets a 100% et sa tourne sans pb (4+3) avec tous les autre projets (enigma+docking+seti etc...)

a+

[Extra Ball]

@Extra Ball
ça parait t'amuser ce truc  

Et pas qu'un peu

Bon, si le script semble tourner OK quand Milky est le seul projet actif, il peut se poser des problemes en cas de multi projets (pas ex MW est suspendu avec plein de WUs a calculer car les autres projets utilisent toutes les ressources CPU)
Vu qu'on est en phase de Raid Seti, c'est balot

La premiere reponse a deja ete suggeree ci-dessus a savoir modifier le fichier app_info.xml qui se trouve dans le repoertoire du projet Milkiway (...\projects\milkyway.cs.rpi.edu_milkyway)
Ce fichier est du genre :

Code: [Sélectionner]



 
 milkyway
 
 
  astronomy_0.19_ATI_SSE2d.exe
 
 
 
  brook.dll
 
 
 
  milkyway
  19
    1.0e11
    [color=#0e00f0]XXXX[/color]
    [color=#ff0e00]YYYY[/color]
   
 
   astronomy_0.19_ATI_SSE2d.exe
   
 
 
   brook.dll
 
 



par defaut, il me semble que XXXX vaut 0.25 et YYYY est a 1
je vous suggere de modifier YYYY de telle sorte que YYYY=Nombre de cores+nombre de GPU et de baisser XXXX a 0.1
Dans mon cas, YYYY=3 (j'ai un Core 2 Duo -donc 2 cores- + 1 GPU)
Avec ces reglages, MW se lance des qu'il y a des WUs a calculer et en parallele je crunche du Seti (et meme du yoyo en secours)
Je ne suis pas sur pourtant que ca marche tout le temps

La deuxieme voie de recherche serait de modifier le script pour qu'il decide des taches a activer/suspendre. Je ne sais pas si on peut controler le scheduler de Boinc au niveau des taches et j'ai debute en VB Script hier donc faut reflechir mais on y travaille

[TontonGege]

 

Extra Ball ta version 2.2 avec stats est elle opérationelle ?

Un grand bravo à toi et Pitheque pour le travail fait sur les scripts


   

[johnny5]

quelqu'un pourrait aussi ajouter à ce script un moyen de forcer le second projet auquel on crunche avec Milky à ne calculer que sur 3 coeurs pour laisser le 4ème coeur à Milky ?

je m'explique : si je laisse toutes les wus Séti en "Prêt à démarrer" ça me prend les 4 coeurs et me stoppe MilkyGPU...

j'ai mis n3 w1.1 f10 dans app_info et ncpus 4 dans cc_config

help me please ! lol

modif le cc_config au lieu de 4 marque 6


   
        6
   


est tu auras plus de problème pour faire tourner un autre projet avec

[Extra Ball]

Extra Ball ta version 2.2 avec stats est elle opérationelle ?

oui

[TontonGege]

Sur la 2.2 j'ai un message d'erreur.

Erreur de compilation microsoft VBSscript:instruction attendue ...