zoukankan      html  css  js  c++  java
  • 修改2k自动登陆的脚本

    --  修改2k自动登陆的脚本

    main


    sub main()
    dim Auto,domain,user,paswword,auto1,domain1,user1,paswword1,reg,nl
    reg="HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\"
    nl=chr(10)+chr(13)
    auto1=rg(reg & "AutoAdminLogon")
    domain1=rg(reg & "DefaultdomainName")
    user1=rg(reg & "Defaultusername")
    password1=rg(reg & "DefaultPassword")



    str="启动:"+auto1+nl+"缺省域(或计算机)名:"+domain1+nl+"缺省用户名:"+user1+nl+"缺省口令:"+password1+nl+nl


    if msgbox("当前自动登录信息如下:"+nl+nl+str & "要进行修改吗?",36,"Aboutnt.com[中文NT资源网]")<>6 then exit sub


    auto=inputbox("要启动自动登录功能吗?"+nl+"0:不启动"+nl+"1:启动","Aboutnt.com[中文NT资源网]",auto1)
    if auto="" then
    msgbox ("输入数据非法,程序中止!")
    exit sub
    end if


    domain=inputbox("请输入域名:","Aboutnt.com[中文NT资源网]",domain1)
    if domain="" then
    msgbox ("没有输入域名,程序中止!")
    exit sub
    end if


    user=inputbox("请输入用户名:","Aboutnt.com[中文NT资源网]",user1)
    if user="" then
    msgbox ("没有输入用户名,程序中止!")
    exit sub
    end if


    password=inputbox("请输入口令:","Aboutnt.com[中文NT资源网]",password1)
    if password="" then
    msgbox ("没有输入口令,自动登录功能将只执行一次!")
    end if


    str="启动:"+auto+nl+"缺省域(或计算机)名:"+domain+nl+"缺省用户名:"+user+nl+"缺省口令:"+password+nl+nl


    if msgbox("修改后的自动登录信息如下:"+nl+nl+str & "一定要修改自动登录信息吗?",36,"Aboutnt.com[中文NT资源网]")=6 then
    rw reg & "AutoAdminLogon",auto
    rw reg & "DefaultdomainName",domain
    rw reg & "DefaultuserName",user
    rw reg & "DefaultPassword",password
    msgbox "设置完毕!详细信息如下:"+nl+nl+str
    end if
    end sub


    Sub Rw(k, v)
    Dim R
    On Error Resume Next
    Set R = CreateObject("WScript.Shell")
    R.RegWrite k, v
    End Sub


    Function Rg(v)
    Dim R
    On Error Resume Next
    Set R = CreateObject("WScript.Shell")
    Rg = R.RegRead(v)
    End Function

  • 相关阅读:
    linux追加中文字库,解决imagemagick 中文乱码的问题。
    laravel 学习
    postman post 数据格式
    PHP5各个版本的新功能和新特性总结
    laravel 自定义常量方法
    微信服务号获得openid 跟用户信息
    【转】solr deltaImportQuery deltaQuery parentDeltaQuery 用法规则
    Shell
    [spring] org.springframework.beans.factory.NoSuchBeanDefinitionException: No bean named 'sessionFactory' is d .
    [transaction] org.hibernate.HibernateException: createQuery is not valid without active transaction
  • 原文地址:https://www.cnblogs.com/todd/p/104741.html
Copyright © 2011-2022 走看看