最近单位要装一批电脑，每台电脑有个软件，这个软件客户端都有一个不同的主机号，主机号对应的一串注册码，主机号和码都存在C:\ImPOS\ConfigFile\PosID.ini文件下，能不能帮忙写个VBS，点开就弹个框输入主机号，点确定以后就自动把PosID.ini里对应的CashRegisterCode和CDKey改好呀？
付上PosID.ini原文

[ID]
CashRegisterCode     =4708
CDKey                =3SZKT-JPB9B-UVC80-41CZP-50681-63631231
Market               =1147

机器对应的注册号

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

大神好牛牛呀。这回不用一个一个改了。。。太好了。。。

又找出来一个办法，能把两个文件合二而一，最后还带删除的。

'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

[此贴子已经被作者于2019-10-13 17:09编辑过]