|
<%
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>
| |