czjt1234

14行把set去掉
set用于对象赋值

czjt1234

strOut = ""
s = 0

For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
    strOut = strOut & i.Signature
Next

m = (strOut - 3) * 7    '复杂密码
Wscript.Echo "硬盘的序列号串：" & strOut
Wscript.Echo "复杂密码：" & m

do
    a = inputbox("请输入暗码")
    if a = m then
        msgbox "认证成功"
        exit do
    else
        if s = 1 then '设置认证次数为1
            msgbox "已经达到认证上限, 认证程序关闭"
            exit do
        else
            s = s + 1
            msgbox "认证出错, 请检查暗码"
        end if
    end if
loop
复制代码

czjt1234

strOut = ""
s = 0

For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
    strOut = strOut & i.Signature
Next

m = (strOut - 3) * 7    '复杂密码
Wscript.Echo "硬盘的序列号串：" & strOut
Wscript.Echo "复杂密码：" & m

do
    a = inputbox("请输入暗码")
    if a = Cstr(m) then
        msgbox "认证成功"
        exit do
    else
        if s = 1 then '设置认证次数为1
            msgbox "已经达到认证上限, 认证程序关闭"
            exit do
        else
            s = s + 1
            msgbox "认证出错, 请检查暗码"
        end if
    end if
loop
复制代码

刚才没测试，这次测试过了