O código a seguir é testado para trabalhar no Serv-U 4.2
<%
'| ############################ |
'| Sobrevivente QQ: 54883661 |
'| Correio: [email protected] |
'| ############################ |
inipath = d:/arquivos de programas/serv-u/servudaemon.ini 'Defina o caminho do arquivo servudaemon.ini
Usuário = [Usuário = & Solicitação (Usuário) & | 1]
PASS = Senha = & Solicitação (PASS)
chave = solicitação (chave)
Se a chave <> então
Dim OS, Userlong, Passlong, PL, SS
Set fso = createObject (script.filesystemObject)
Definir os = fso.opentExtFile (inipath, 1) 'leia servudaemon.ini
s = os.readall
OS.Close
Userlong = Instr (S, Usuário)+Len (Usuário) +2
para i = userlong to userlong+20
Passlong = Passlong+1
Se asc (mid (s, i, 1)) = 13 então
saída para
final se
próximo
pl = mid (s, userlong, passlong-1)
SS = Substitua (S, User & Ch (13) e Chr (10) e PL, Usuário & Ch (13) & Chr (10) & Pass)
Definir os = fso.createTextFile (inipath, true) 'gravar em servudaemon.ini
OS.WRITE SS
OS.Close
final se
%>
<Form Method = Post>
Nome de usuário: <Tipo de entrada = Nome do texto = Usuário> <br>
Nova senha: <Tipo de entrada = Nome do texto = Pass> <br>
<Tipo de entrada = Nome de envio = Valor da chave = Modify> <br>
</morm>