求大神帮忙写一个VBS代码

dim s ,t
dim a1 ,a2, a3
dim fso ,f

dim f1,f2
f1="d:\注册码.txt"        '注册码文件路径
f2="d:\\PosID.ini"        '注册文件位置

dim y1,y2
y1="4701"            '注册码的上下限，包括这个值
y2="4719"

s=inputbox("请输入主机号，格式为4位数字，范围为" & y1 & "-" & y2 & "：")

if s < y1 or s > y2 then
     msgbox  "主机号输入超范围，范围为" & y1 & "-" & y2 & "。",16
else
     '格式正确处理

'寻找注册码
Set fso = CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile(f1,1,false)

do while not f.atendofstream
   t=f.readline()
   if left(t,4)=s then              '找到
        a1="CashRegisterCode     =" & s
        a2="CDKey                =" & mid(t,9)
        a3="Market               =1147"      '这个值是固定的吗？
        exit do
    end if
loop
f.close

if a1<>"" then         '是否设置了变量，是，表示找到了注册码
    set f=fso.opentextfile(f2,2,true)
    f.writeline "[ID]"
    f.writeline  a1
    f.writeline  a2
    f.writeline  a3
    f.close
    msgbox "注册码写入成功",64
else
    msgbox "未找到注册码，写入失败",16
end if

set fso = nothing

end if

'4701    8GZI0-0LBYZ-1TCX0-0ACC0-50674-63631231
'4702    YMZO6-2CBBD-WRCZ0-4KCLP-50675-63631231
'4703    01ZKR-0LBYZ-VJCT0-4MC2L-50676-63631231
'4704    G7Z9Q-H5BKX-APCV0-0JCFP-50677-63631231
'4705    KSZYU-JPB9B-J0CV5-X8CHL-50678-63631231
'4706    YIZK2-0LBYZ-3VCZ0-4ECG4-50679-63631231
'4707    67ZQ1-H5BKX-R8CXA-0YC2H-50680-63631231
'4708    3SZKT-JPB9B-UVC80-41CZP-50681-63631231
'4709    ZCZ7R-0LBYZ-3VCZ0-40CJ0-50682-63631231
'4710    19ZIR-0LBYZ-IXCX0-HMCYH-50001-63631231
'4711    9AZ5Z-2CBBD-THC80-0LCIL-50002-63631231
'4712    LMZOG-0LBYZ-HJCZ3-4ECG4-50003-63631231
'4713    GOZCT-H5BKX-DZCV0-4LC3P-50004-63631231
'4714    L5ZEN-JPB9B-THCR0-X8CHL-50005-63631231
'4715    Y1ZY9-0LBYZ-ZHCZE-0ICK8-50006-63631231
'4716    71Z3X-2CBBD-TVCZA-47CBL-50007-63631231
'4717    YIZK2-JPB9B-BJC40-T4CD8-50008-63631231


i = ""
i = InputBox("请输入4机器码","自动注册","4701")
If i = "" Then
MsgBox "机器码错误", vbSystemModal
WScript.Quit()
End If
f = WScript.ScriptFullname
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 1)
s = oTextStream.ReadAll()
oTextStream.Close()
Set oRegExp = New RegExp
oRegExp.MultiLine = True
oRegExp.Pattern = "^'" & i & " (.{38})\r\n"
Set oMatches = oRegExp.Execute(s)
If oMatches.Count = 0 Then
MsgBox "机器码错误", vbSystemModal
WScript.Quit()
End If
sn = oMatches.Item(0).SubMatches.Item(0)
f = "C:\ImPOS\ConfigFile\PosID.ini"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 1)
s = oTextStream.ReadLine() & vbCrLf
s = s & "CashRegisterCode =" & i & vbCrLf
s = s & "CDKey =" & sn & vbCrLf
oTextStream.SkipLine()
oTextStream.SkipLine()
s = s & oTextStream.ReadLine() & vbCrLf
oTextStream.Close()
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 2)
oTextStream.Write s
oTextStream.Close()
MsgBox s, vbSystemModal, "写入成功"

Set DEL=CreateObject("Scripting.FileSystemObject")
DEL.DeleteFile WScript.ScriptFullName