A-A+

网维大师无盘超级用户不运行一卡通脚本

2016年08月05日 网吧相关 暂无评论 阅读 1,087 次

存为.vbs开机运行就可以了。自动替换一卡通开机启动程序

  1. On Error Resume Next
  2. Dim OperationRegistry,Value
  3. Set OperationRegistry = CreateObject("Wscript.Shell")
  4. Value = OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\iCafe8\admin")
  5. If (Value = 1) Then
  6.     Msgbox "当前为超管模式,不启动收费系统,非管理人员请自觉换机。",4160,"警告!!!"
  7. Else
  8. Dim Wsh
  9. Set Wsh = WScript.CreateObject("WScript.Shell")
  10. Wsh.Run "first.exe",0
  11. Dim AutoRunProgram
  12. Set AutoRunProgram = WScript.CreateObject("WScript.shell")
  13. RegPath ="HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run\"
  14. Type_Name = "REG_SZ"
  15. Key_Name = "MyApp"
  16. Key_data = "C:\Program Files (x86)\HC\hCard\First.exe"
  17. AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
  18. Set Wsh=NoThing
  19. set fso=createobject("scripting.filesystemobject")
  20. f=fso.DeleteFile ("hc.exe")
  21. fso.DeleteFile(WScript.ScriptFullName)
  22. End If
  23. set sm=Wscript.CreateObject("WScript.Shell")
  24. Wscript.Quit

给我留言