[ASP]XP user management

[RoyBijster]

Beste,

Ik heb sinds kort een kleine FTP server draaien voor een beperkt aantal mensen.
Deze FTP server draait op IIS v5.1 Windows XP Pro. Doormiddel van gebruikers accounts op de server verleen ik mensen de rechten tot mijn FTP folder.
Nu wil ik het voor hen mogelijk maken om via ASP hun wachtwoord te wijzigen en voor mij om nieuwe gebruikers toe te kunnen voegen. Ik ben al aan het zoeken geweest en heb het volgende gevonden:
http://msdn.microsoft.com...kmag01/html/passwords.asp hier kwam ik helaas niet uit en is voor zover ik begrijp alleen voor windows servers 2000/2003/etc.

Mijn vraag hierbij is, of jullie misschien een oplossing weten om op mijn Windows XP user accounts aan te maken c.q. te beheren via ASP?

Met vriendelijke groet en bij voorbaat dank,

Roy Bijster

[Equator]

Die MSDN site kauwt het practisch voor.. Het enige wat je moet doen is de ConnectString correct schrijven.

Als je PC waarop de Users staan "BIGFOOT" zou heten, dan moet je sConnectString dit zijn:

Visual Basic:

sConnectString = "WinNT://BIGFOOT/" & sUser & ",user"

Verder kan je de 2 asp pagina's gewoon kopieren..

[RoyBijster]

Het probleem is opgelost.
Heb toch nog eens goed gelezen en geprobeerd en na jouw opmerking is het probleem opgelost.
Hierbij de code.

Bedankt

Visual Basic:

<%@ Language=VBScript %>
<%

'CALLOUT A
dim sUser, sPassword
dim oUser, sConnectString
'END CALLOUT A

'CALLOUT B
sUser = request("txtUserName")
sPassword = request("txtPassword")
sNewPassword = request("txtNewPassword")
if sUser = "" then Response.Redirect "ChangePasswordEntry.asp"
'END CALLOUT B

Response.Write "User name is: " & sUser & "  --  " & sPassword & "<br>"

Response.Write "New Password is: " & sNewPassword & "<br>"

'CALLOUT C
sConnectString = "WinNT://bigboat/" & sUser & ",user"

Set oUser = GetObject(sConnectString)
'END CALLOUT C

Response.Write "Logon user: " & Request.ServerVariables("LOGON_USER") &
"<br>"
Response.Write "User Password: " & Request.ServerVariables("AUTH_PASSWORD")
& "<br>"

'CALLOUT D
oUser.ChangePassword sPassword, sNewPassword
'END CALLOUT D

set oUser = Nothing

%>