[ADSI] ASP によるNT ユーザ作成

  匿名アクセスを無効



匿名アクセスでは、ユーザ作成の権限が無いので、権限のあるユーザでログインできるようにします
実行コードは以下のようになります

  
<%
strComputer = "NT"

if Request.ServerVariables( "REQUEST_METHOD" ) = "POST" then
	Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
	Set objUser = colAccounts.Create( "User", Request.Form("UserName") )
	objUser.SetPassword Request.Form("PassWord")
	objUser.SetInfo

	newFlags = oldFlags Or &H10000
	Set objUser = GetObject("WinNT://" & strComputer & "/" & _
		Request.Form("UserName") & ",User")

	objUserFlags = objUser.Get("UserFlags")
	objPasswordExpirationFlag = objUserFlags OR &H10000
	objUser.Put "UserFlags", objPasswordExpirationFlag 
	objUser.SetInfo
end if

Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Filter = Array("User")

UserList = UserList & "<TABLE border=0 cellspacing=1 cellpadding=5 bgcolor=black>"
UserList = UserList & "<TH bgcolor=silver>ユーザ名</TH>" & vbCrLf
For Each objUser In objComputer
	UserList = UserList & "<TR>"
	UserList = UserList & "<TD bgcolor=white>" & objUser.Name & "</TD>"
	UserList = UserList & "</TR>" & vbCrLf
Next
UserList = UserList & "</TABLE>"
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<FORM method=post>
ユーザ名
<INPUT type=text name=UserName>
パスワード
<INPUT type=password name=PassWord>
<INPUT type=submit value="送信">
</FORM>

<%= UserList %>
</BODY>
</HTML>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ