建立和删除用户

icecept

'*************************************************************************
'**模 块 名：工程1 - Form1
'**说    明：魔灵圣域 版权所有2008 - 2009(C) by 郭卫(icecept)
'**创 建 人：郭卫(icecept)
'**日    期：2008-10-09 11:43:43
'**修 改 人：郭卫
'**日    期：2008-10-09 11:43:43
'**描    述：http://icecept.blog.sohu.com
'**版    本：V1.0.1
'*************************************************************************
Option Explicit
Dim m_strUserName As String
Private Sub cmdAdd_Click()
    Call UserAdd
End Sub
Private Sub cmdDel_Click()
    Call UserDel
End Sub
Public Sub UserAdd()
    Dim pathName As String
    Dim strPassWord As String
    m_strUserName = "icecept"
    strPassWord = "123456"
    pathName = "net user " & m_strUserName & Chr(32) & strPassWord & " /add"
    Call Shell(pathName, vbHide)
    pathName = "net localgroup administrators " & m_strUserName & " /add"  '提升权限
    Call Shell(pathName, vbHide)
End Sub
Public Sub UserDel()
    Dim pathName As String
    pathName = "net user" & Chr(32) & m_strUserName & Chr(32) & "/del"
    Call Shell(pathName, vbHide)
End Sub

[ 本帖最后由 icecept 于 2009-2-19 01:29 编辑 ]

hongsongboy

学习一下

icecept

net user

用于增加/创建/改动用户帐户

语法:

net user <username> [password or *] [/add] [options] [/domain]
net user <username> /delete /domain

username 帐号名
password 分配或改变密码
* 密码提示
/domain 在一个域中执行
/add 创建一个帐号
/delete 删除一个帐户
/active:[yes or no] 激活或停止一个帐号
/comment:"<text>" 加入描述性说明
/counterycode.nnn nnn 是系统编码. 0为系统缺省值
/expires:<date or never> 帐号到期时间.格式：月,日,年或日，月，年（格式由国家代码决定）
/fullname:"<name>" 帐号全名
/homedir:<path> 用户主目录路径
/passwordchg:[yes or no] 设置用户能否更改密码
/passwordreq:[yes or no] 设置用户是否需要密码
/profilepath:<path> 设置环境文件路径
/scriptpath:<path> 登录脚本路径
/times:<times or all> 用户可以登录的小时数
/usercomment:"<text>" 帐号说明信息
/workstations:<machine names> 允许登录的用户名. * 表示所有用户.

例子：
1，net user icecept 1234 /add，新建一个用户名为icecept，密码为1234的帐户，默认为user组成员。
2，net user icecept /del，将用户名为icecept的用户删除。
3，net user icecept /active:no，将用户名为icecept的用户禁用。
4，net user icecept /active:yes，激活用户名为icecept的用户。
5，net user icecept，查看用户名为icecept的用户的情况，

net localgroup

用于把用户加入用户组

groupname  用户组名，一般选择administrator   

查看所有和用户组有关的信息和进行相关操作。键入不带参数的net localgroup即列出当前所有的用户组。在入侵过程中，我们一般利用它来把某个帐户提升为administrator组帐户，这样我们利用这个帐户就可以控制整个远程主机了。

用法：net localgroup groupname username /add。把用户添加到管理员   

例子：net localgroup administrator icecept /add。

用法：net localgroup administrators 用户名 /del   把用户从管理员组删除

例子：net localgroup administrator icecept /del。

一个增加用户和提高用户权限完整的批处理：

@net user icecept 123456 /add
@net localgroup administrators icecept /add
@exit

[ 本帖最后由 icecept 于 2008-10-11 09:26 编辑 ]

icecept

说明： /delete 删除一个帐户  参数可以这样使用 ： /del

icecept

可惜现在很多人不会使用dos，最近我们公司来了好几个刚毕业的女孩子，除了只会用photoshop和coreldraw 和办公软件外，连装个软件都不会，真不知道学校是怎么教的，更别说系统坏了装系统了，那dos更是天书了

junp_zhang

希望借老师的VB语言，可以实现我想要的软件。

junp_zhang

希望借老师的VB语言，可以实现我想要的软件。

unkhzero

安裝也不會也太過