使用FileSystemObject，举个例子给你

自己看一下，应该比较简单

sub writeini(sroot,suser,spassword,squota)
const ftpservdir="c:\program files\serv-u"
dim str(7),sfullpath
if isnull(squota) then squota=20480
sfullpath=sroot & "\" & suser
set fo=createobject("scripting.filesystemobject")
set tf=fo.opentextfile( ftpservdir & "\serv-u.ini", 8, true)
str(0)="[user=" & suser & "]"   username
str(1)="password=" & spassword     password
str(2)="homedir=" & sfullpath directory
str(3)="changepassword=yes"   
str(4)="quotaenable=yes"
str(5)="quotamaxcurrent=" & cstr(squota) & ",0" quota
str(6)="access1=" & sfullpath & ",arwmcdlp" directory
str(7)="timeout=5" timeout of idle
dim i
for i=0 to 7
tf.writeline cstr(str(i))
next
tf.close
end sub