[已解决]VBS提示“缺少对象：number” 添加变态密码

ailstt

反复看来不知道那里出错了
以下是vbs脚本

1.   strComputer   =   "."   
   
2.   strOut   =   ""   
   
3.   Set   objWMIService   =   GetObject("winmgmts:"   _   
   
4.           &   "{impersonationLevel=impersonate}!\"   &   strComputer   &   "\root\cimv2")     
   
5.   Set   colDiskDrives   =   objWMIService.ExecQuery   _           
   
6.           ("Select   *   from   Win32_DiskDrive")   
   
7.   For   each   objDiskDrive   in   colDiskDrives   
   
8.         strOut   =   strOut   &   "   "   &   vbTab   &     objDiskDrive.Signature   
   
9.   Next   
   
10.   Wscript.Echo    strOut-strOut-strOut '这里是硬盘的序列号（去掉 - 号） 这句可以不用
    
11. 
    
12. dim a,s
    
13. s=0 '设置计数器
    
14. set m   =   strOut-strOut-strOut-3*7 '工具硬盘序列号 添加复杂一点的密码
    
15. do
    
16. a=inputbox("请输入暗码")
    
17. if a=m then
    
18. msgbox "认证成功"
    
19. exit do
    
20. else
    
21. if s=1 then '设置认证次数为1
    
22. msgbox "已经达到认证上限, 认证程序关闭"
    
23. exit do
    
24. else
    
25. s=s+1 '注意：这一句是赋值句，要从右往左读，即每出错一次就把s加上1，然后再放回s里面，使得这个变量加1
    
26. msgbox "认证出错, 请检查暗码"
    
27. end if
    
28. end if
    
29. loop

复制代码

ailstt

求vbs大哥帮忙修改下 原意10元QQ币做谢谢

pcl_test

错误主要在以下两句

1. Wscript.Echo strOut-strOut-strOut

复制代码

1. set m = strOut-strOut-strOut-3*7

复制代码

如果strOut是作为字符类型，那么Wscript.Echo strOut&"-"&strOut&"-"&strOut和m = strOut&"-"&strOut&"-"&strOut&"-"&CStr(3*7)

czjt1234

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

czjt1234

1. strOut = ""
   
2. s = 0
   
3. 
   
4. For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
   
5.     strOut = strOut & i.Signature
   
6. Next
   
7. 
   
8. m = (strOut - 3) * 7    '复杂密码
   
9. Wscript.Echo "硬盘的序列号串：" & strOut
   
10. Wscript.Echo "复杂密码：" & m
    
11. 
    
12. do
    
13.     a = inputbox("请输入暗码")
    
14.     if a = m then
    
15.         msgbox "认证成功"
    
16.         exit do
    
17.     else
    
18.         if s = 1 then '设置认证次数为1
    
19.             msgbox "已经达到认证上限, 认证程序关闭"
    
20.             exit do
    
21.         else
    
22.             s = s + 1
    
23.             msgbox "认证出错, 请检查暗码"
    
24.         end if
    
25.     end if
    
26. loop

复制代码

ailstt

回复 5# czjt1234


    貌似你的最后不能调用加密的 提示密码不对

czjt1234

1. strOut = ""
   
2. s = 0
   
3. 
   
4. For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
   
5.     strOut = strOut & i.Signature
   
6. Next
   
7. 
   
8. m = (strOut - 3) * 7    '复杂密码
   
9. Wscript.Echo "硬盘的序列号串：" & strOut
   
10. Wscript.Echo "复杂密码：" & m
    
11. 
    
12. do
    
13.     a = inputbox("请输入暗码")
    
14.     if a = Cstr(m) then
    
15.         msgbox "认证成功"
    
16.         exit do
    
17.     else
    
18.         if s = 1 then '设置认证次数为1
    
19.             msgbox "已经达到认证上限, 认证程序关闭"
    
20.             exit do
    
21.         else
    
22.             s = s + 1
    
23.             msgbox "认证出错, 请检查暗码"
    
24.         end if
    
25.     end if
    
26. loop

复制代码

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

ailstt

回复 3# pcl_test


   
    特别感谢您 你是一个分享快乐的人 为表示感谢  帮助我的人有2个 你和****1234 请留下QQ 每人5QB 望不要嫌弃

ailstt

回复 7# czjt1234


      特别感谢您 你是一个分享快乐的人 为表示感谢  帮助我的人有2个 你和另外一个人  请留下QQ 每人5QB 望不要嫌弃