'=====================================================================================================================
「ASP001スタジオが開発した実用的な機能プログラムを使用していただきありがとうございます
'http://www.asp001.net
'===========================================================================================================================================================================================================================================================================================夢
'QQ：1974229
'電子メール：[email protected]
'その他のプログラムをダウンロードするには、http：//www.asp001.netにアクセスしてください
'=====================================================================================================================
'関数の紹介：ASPを介してNTアカウントを管理します
'この関数はADSIを使用し、管理者グループユーザー許可を必要とします
'プログラム開発：ASP001 Studio Chuqi
'=====================================================================================================================
'ユーザーに記入してください
'関数の使用法：adduser（コンピューター、ユーザー名、パスワード、フルネーム、情報）
'パラメーター：コンピューター名、アカウント名、アカウントパスワード、アカウントのフルネーム、アカウントの説明
'例：adduser "127.0.0.1"、 "test"、 "test"、 "test"、 "Test管理者アカウント"、 "このアカウントはASPを介して記入されます」
'指定されたユーザーの基本情報を変更します
'関数の使用法：edituser（コンピューター、ユーザー名、oldpassword、パスワード、フルネーム、情報）
'パラメーター：コンピューター名、アカウント名、アカウントパスワード、アカウントのフルネーム、アカウントの説明
'例：編集者 "127.0.0.1"、 "test"、 "test2"、 "Test Administratorアカウントの変更"、「このアカウントはASPを通じて変更されました」
'指定されたユーザーを削除します
'関数の使用量：Deluser（コンピューター、ユーザー名）
「パラメーター：コンピューター名、ユーザー名」
'例：Deluser "127.0.0.1"、 "Test"
========================================================================================================================
functionAdduser（コンピューター、ユーザー名、パスワード、フルネーム、情報）
'Create Accountコマンドを実行します
setcomputerobj = getObject（ "winnt：//"＆computer）
setNewuser = computerobj.create（ "user"、username）
newuser.setinfo
'アカウント設定を作成します
newuser.setPassWord（パスワード） 'アカウントパスワード
newuser.fullname = fullname 'アカウントのフルネーム
newuser.description = info'account説明
newuser.userflags =＆h10000 '＆h20000（ユーザーは次回ログイン時にパスワードを変更する必要があります）＆h0040（ユーザーはパスワードを変更しない場合があります）＆h10000（パスワードは永続的に正しい）＆h0002（アカウントは一時的に無効になります）
newuser.setinfo
response.write "account"＆username＆ "suctionfuly！"
setcomputerobj =何もない
エンド機能
functionedituser（コンピューター、ユーザー名、oldpassword、パスワード、フルネーム、情報）
'ユーザー情報をお読みください
setChangeUserobj = getObject（ "winnt：//"＆ "/"＆username＆ "、user"）
'アカウントのパスワードを変更します
ifpassword <> ""それから
ChangeUserobj.setPassWordPassWord
Response.Write「アカウントパスワードが正常に変更されました！<br>」
endif
'アカウントのフルネームを変更します
iffullname <> "" then
userfullname = changeuserobj.get（ "fullname"）