VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3950|回复: 8

[原创] 建立和删除用户

[复制链接]
 楼主| 发表于 2008-10-10 11:38:45 | 显示全部楼层 |阅读模式
'*************************************************************************
'**模 块 名:工程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 编辑 ]

建立和删除用户.rar

7.17 KB, 下载次数: 1058

发表于 2008-10-11 09:00:27 | 显示全部楼层
学习一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-10-11 09:18:35 | 显示全部楼层

net user的用法

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 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-10-11 09:26:59 | 显示全部楼层
说明: /delete 删除一个帐户  参数可以这样使用 : /del
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2010-8-13 22:03:35 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-8-15 19:02:16 | 显示全部楼层
可惜现在很多人不会使用dos,最近我们公司来了好几个刚毕业的女孩子,除了只会用photoshop和coreldraw 和办公软件外,连装个软件都不会,真不知道学校是怎么教的,更别说系统坏了装系统了,那dos更是天书了
回复 支持 反对

使用道具 举报

发表于 2017-8-11 15:56:20 | 显示全部楼层
希望借老师的VB语言,可以实现我想要的软件。
回复 支持 反对

使用道具 举报

发表于 2017-8-11 15:57:18 | 显示全部楼层
希望借老师的VB语言,可以实现我想要的软件。
回复 支持 反对

使用道具 举报

发表于 2018-11-25 10:40:18 | 显示全部楼层
安裝也不會也太過
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-9-18 19:13

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表