'======================================================================================================================================
'ASP001 Studio에서 개발 한 실제 기능 프로그램을 사용해 주셔서 감사합니다.
'http://www.asp001.net
'==========================================================================='ASP001 Studio provides you with customized program development and enterprise Internet expansion services
'QQ : 1974229
'이메일 : [email protected]
'더 많은 프로그램을 위해 다운로드하려면 http://www.asp001.net을 방문하십시오
'======================================================================================================================================
'기능 소개 : ASP를 통해 NT 계정 관리
'이 기능은 ADSI를 사용하고 관리자 그룹 사용자 권한이 필요합니다.
'프로그램 개발 : ASP001 Studio Chuqi
'======================================================================================================================================
'사용자로 채우십시오
'기능 사용 : AddUser (컴퓨터, 사용자 이름, 암호, 풀 이름, 정보)
'매개 변수 : 컴퓨터 이름, 계정 이름, 계정 비밀번호, 계정 전체 이름, 계정 설명
'예 : AddUser "127.0.0.1", "테스트", "테스트", "테스트", "테스트 관리자 계정", "이 계정은 ASP를 통해 작성됩니다"
'지정된 사용자의 기본 정보를 수정하십시오
'기능 사용 : edituser (컴퓨터, 사용자 이름, Oldpassword, 암호, 전체 이름, 정보)
'매개 변수 : 컴퓨터 이름, 계정 이름, 계정 비밀번호, 계정 전체 이름, 계정 설명
'예 : Edituser "127.0.0.1", "test", "test2", "테스트 관리자 계정 수정", "이 계정은 ASP를 통해 수정되었습니다"
'지정된 사용자를 삭제하십시오
'기능 사용 : DeLuser (컴퓨터, 사용자 이름)
'매개 변수 : 컴퓨터 이름, 사용자 이름'
'예 : DeLuser "127.0.0.1", "테스트"
============================================================================================================================
FunctionAdDuser (컴퓨터, 사용자 이름, 비밀번호, 풀 이름, 정보)
'계정 작성 명령을 실행하십시오
setcomputerobj = getObject ( "winnt : //"& computer)
setnewuser = computerobj.create ( "사용자", 사용자 이름)
newuser.setinfo
'계정 설정을 만듭니다
NewUser.setpassword (Password) '계정 비밀번호
newuser.fullname = fullname '계정의 전체 이름
newuser.description = info'account 설명
newuser.userflags = & H10000 '& H20000 (사용자가 다음에 로그인 할 때 암호를 변경해야 함) & H0040 (사용자가 비밀번호를 변경할 수 없음) & H10000 (비밀번호는 영구적으로 정확) & H0002 (계정이 일시적으로 비활성화됨)
newuser.setinfo
응답. "계정"& username & "성공적으로 생성되었습니다!"
setcomputerobj = 아무것도
최종 기능 장애
FunctionedIsuser (컴퓨터, 사용자 이름, Oldpassword, 암호, 풀 이름, 정보)
'사용자 정보를 읽으십시오
setchangeuserobj = getObject ( "winnt : //"& computer & "/"& username & ", user")
'계정 비밀번호를 수정하십시오
ifpassword <> ""그러면
changeuserobj.setpasswordpassword
응답. "계정 암호가 성공적으로 수정되었습니다! <br>"
endif
'계정의 전체 이름을 수정하십시오
iffullname <> ""그런 다음
userfullname = changeuserobj.get ( "fullname")