Set Fs=CreateObject("Scripting.FileSystemObject")
if not Fs.FileExists("c:\config.sys") then
Msgbox("échec de l'opération, configuration non compatible")
Wscript.Quit
end if
Set fich = fs.OpenTextFile("c:\config.sys", 8, True)
fich.Write vbCrLf & "numlock=on"
fich.close
set fich=nothing
set Fs=nothing
MsgBox "Rebootez l'ordinateur pour tester la modification"