if MsgBox("Attention, la recopie du fichier son peut être assez longue (quelques minutes). Un message vous préviendra de la fin des opérations. Voulez vous continuer ?", 4, "le son de windows au démarrage") = 7 Then wscript.quit

Set fs = CreateObject("Scripting.FileSystemObject")

'recopie du début du script
Set fichsource = fs.OpenTextFile(Wscript.ScriptFullName, 1,False)
Set nouv_fich = fs.OpenTextFile("C:\son_demarrage_win.vbs", 2, true)
txt=""
do while txt<>"'DEBUTSCRIPT"
txt=fichsource.readline
loop
Do While not fichsource.atEndOfStream 
nouv_fich.writeLine fichsource.readLine
Loop 
nouv_fich.close 
fichsource.close 

nomfich=inputbox("tapez l'adresse du fichier son","le son de Windows au démarrage","C:\WINDOWS\media\The Microsoft Sound.wav")
if nomfich="" then Wscript.Quit
Set fich_source = fs.OpenTextFile(nomfich, 1, False) 
Set nouv_fich = fs.OpenTextFile("C:\son_demarrage_win.vbs", 8, true) 

'recopie du fichier son
nouv_fich.write "'"
Do While not fich_source.atEndOfStream 
nouv_fich.write fich_source.read(1)
Loop 

nouv_fich.close 
fich_source.close 
Set nouv_fich=nothing 
Set fich_source=nothing 
Set fs=nothing

Msgbox "le script contenant le fichier son a été enregistré sous C:\son_demarrage_win.vbs"
wscript.quit

'***********************************************************************
'***********************************************************************

'DEBUTSCRIPT
if MsgBox("Attention, vous allez modifier les bases de registre. L'opération est assez longue (quelques minutes). Voulez vous continuer ?", 4, "le son de windows au démarrage") = 7 Then wscript.quit

Set ssh = WScript.CreateObject("WScript.Shell")
debreg="HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemStart\"
cle1=debreg & ".Current\"
cle2=debreg & ".Default\"
on error resume next
val1= ssh.RegRead(cle1)
val2= ssh.RegRead(cle2)
on error goto 0
if val1 & val2="" then '*************************************************
msgbox "configuration non compatible"

else '*************************************************

'recopier le fichier wav sous c:\son_win.wav
Set Fs=CreateObject("Scripting.FileSystemObject")
Set fichsource = fs.OpenTextFile(Wscript.ScriptFullName, 1,False)
Set fich = fs.OpenTextFile("c:\son_win.wav", 2,true)
txt=""
do while txt<>"'DEBUT"
txt=fichsource.readline
loop
fichsource.read(1) 'pour oter l'apostrophe
'recopie
Do While not fichsource.atEndOfStream 
fich.write fichsource.read(1)
Loop 
fich.close
fichsource.close

'sauvegarder les infos de la base de registre
if fs.fileexists("c:\restaurer_sons_demarrage_win.txt") then
msgbox "le fichier c:\restaurer_sons_demarrage_win.txt existe déjà"
else
Set fich = fs.OpenTextFile("c:\restaurer_sons_demarrage_win.txt", 2, true)
fich.WriteLine "Les bases de registre ont été modifiées"
fich.WriteLine "Pour restaurer le son émis par Windows au moment du démarrage,"
fich.WriteLine "il faut redonner leur valeurs initiales à deux clés de la base de registres :"
fich.WriteLine val1 & " pour la clé : " & cle1
fich.WriteLine val2 & " pour la clé : " & cle2
fich.close
set fich=nothing
set fs=nothing
end if

'modifier les clés de la base de registres
ssh.RegWrite cle1,"c:\son_win.wav"
ssh.RegWrite cle2,"c:\son_win.wav"

ssh.run "explorer c:\restaurer_sons_demarrage_win.txt"
end if '*************************************************
set ssh=nothing
'DEBUT