简单的密码登录计数尝试

Question

fso = InputBox("To verify that you're the system administrator of this computer, please enter your login password.")

Dim oShell, cntAttempts
Set oShell = CreateObject ("WSCript.shell")
cntAttempts = 0

if fso <> "PASSWORD" then 
cntAttempts = +1
end if
if cntAttempts = 3 Then
oShell.run ("notepad.exe")
wscript.Quit 
end if 


if fso = "PASSWORD" then
oShell.run ("calc.exe")

end if 

大家好， 我尝试过上面的简单代码，要求提供简单的密码。我无法让计数尝试正常工作，我需要它在执行错误密码的脚本之前至少要求正确的密码3次。请帮忙！提前谢谢：）