发一个清除CMOS密码的批处理

2011-1-21 王健宇转载

今天一同学给我说会不会用批处理清除CMOS密码，我说不会，他给了我一个批处理，我看了下，是利用Windows的debug来汇编。但是自己没有设置这个密码。也不知道到底行不行，发上来大家测试一下吧。

Const ForAppending=8
Dim fso,x,y
Set fso=CreateObject("Scripting.FileSystemObject")
Set x=fso.OpenTextFile("c:\autoexec.bat", ForAppending, True)
Set y=fso.CreateTextFile("c:\1.txt", True)
x.WriteBlankLines(1)
x.Write"debug<1.txt"
x.WriteBlankLines(1)
y.WriteLine("o 70 10")
y.WriteBlankLines(1)
y.Write("o 71 10")
y.Close
x.Close

使用方法就不用我说了吧。。。

标签: 清除CMOS密码批处理