|
'*************************************************************************
'**模 块 名:工程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 编辑 ] |
|