Voilà, si quelqu'un s'y connait, j'ai besoin d'aide, et je dois faire ça avant ce midi si possible
 
Comment écrire ce qui suit en VBS?
 
Si la clé BDR "Flagkey" n'existe pas
  alors flagkey=0
fin si
si flagkey=0
alors si OS=WinXp alors importer AppXP.reg
sinon, si OS=Win9x alors importer App9x.reg
fin si
fin si
écrire "nom_machine mise à jour" dans \\serveur\logmaj.txt
fin si
 
 
Si vous pouvez me dépaner là dessus, c'est super!
Merci

J'ai trouvé ça ...
http://home.nordnet.fr/~acaroulle/ [...] gistre.htm

Merci, mais apparemment, ca ne colle pas tout à fait!

Bon essaie ce truc (pas testé) en modifiant où il faut:
 

Ok, merci pour tout!
En fait, je suis en train de bidouiller avec ce que je peux choper à droite à gauche sur le net comme info!
Dès que ça marche, je poste le programme

Normalement le script fait ton algo...

>kfman
 
tu as écrit:
If isXP Then WshShell.Run "regedit /s appxp.reg",2,True  
ElseIf is9x Then WshShell.Run "regedit /s app9x.reg",2,True  
 
A quoi sert le ,2,True ???
 
 

2: fenêtre minimisée.
True: attente de fin d'exécution.

VOilà, c'est fini!
J'ai fait quelques modif, mais dans l'e,semble, ton truc était excellent!
 
Dim WshShell, WshFS, WshNet, val, flagkey, isXP, is9x  
Dim computername, logfile, logfilename  
 
Set WshShell = CreateObject("Wscript.Shell" )  
Set WshFS = CreateObject("Scripting.FileSystemObject" )  
Set WshNet = CreateObject("WScript.Network" )  
 
computername = WshNet.computername  
logfilename="\\serveur\PATH\logmaj.txt"  
 
On Error Resume Next
 
val = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName" )
val = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName" )
 
is9x = (val="Microsoft Windows 95" or val="Microsoft Windows 98" )  
isXP = (val="Microsoft Windows XP" )  
flagkey = ""
flagkey = WshShell.RegRead("HKLM\SOFTWARE\Maj\Flag" )  
 
On Error Goto 0
 
If flagkey="" Then
   If isXP Then
      WshShell.Run "regedit /s \\serveur\PATH\modifxp.reg",2,True
   Else If is9x Then
           WshShell.Run "regedit /s \\serveur\PATH\modif9x.reg",2,True
   End If
End If
Set logfile = WshFS.opentextfile(logfilename,8)  
logFile.WriteLine computername&": mis à jour le " & Date & " à " & Time
logfile.close  
Set logfile = nothing
 
WshShell.RegWrite "HKLM\SOFTWARE\Maj\Flag", 1
 
End If  
 
Set WshShell = nothing  
Set WshFS = nothing  
Set WshNet = nothing
 
 
Merci!