Prøv at kigge på ADSI
her har du lidt kode
Querying the User FullName Property Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Response.Write User.Fullname
Setting a New Value for the User FullName Property Using a VBScript Active
Server Page
Dim User
Dim UserName
Dim UserDomain
Dim NewFullName
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
NewFullName = "New_Value_For_Full_Name_Field"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
User.Fullname = NewFullname
User.SetInfo
Querying the Description Property Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Response.Write User.Description
Setting a New Value for the Description Property Using a VBScript Active
Server Page
Dim User
Dim UserName
Dim UserDomain
Dim NewDescription
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
NewDescription = "New_Value_For_Description_Field"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
User.Description = NewDescription
User.SetInfo
Querying Individual Elements of a Comma Delimited Description Field Using a
VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Delimiter
Dim RetVal
Dim FirstDelim
Dim DescriptionLength
Dim ParsedElement
Dim TerminalCondition
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Delimiter = "|"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
RetVal = User.Description
StartPosition = 1
While TerminalCondition <> True
FirstDelim = InStr(1, RetVal, Delimiter)
If FirstDelim = 0 Then
TerminalCondition = True
Else
DescriptionLength = Len(RetVal)
ParsedElement = Left(RetVal, FirstDelim - 1)
Response.Write Trim(ParsedElement)
RetVal = Right(RetVal, (DescriptionLength - FirstDelim))
End If
Wend
Setting a New Value for a User Password Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim NewPassword
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
NewPassword = "Superm@n99"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Call User.SetPassword(NewPassword)
User.SetInfo
Changing a User Password Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim NewPassword
Dim OldPassword
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
NewPassword = "Superm@n26"
OldPassword = "B@tm@n74!"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Call User.ChangePassword(OldPassword, NewPassword)
User.SetInfo
Querying the Value of a User Flag Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
If (Flags And &H10000) <> 0 Then
Response.Write "The specified user account is configured so that the
password never expires."
End If
Toggling User Flags Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
User.Put "UserFlags", (Flags Xor &H10000)
User.SetInfo
Querying the User Must Change Password at Next Logon Status Flag Using a
VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim PasswordExpired
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
PasswordExpired= User.Get("PasswordExpired")
If PasswordExpired = 1 Then
Response.Write "The user account is configured so that the password must
be changed on next logon."
Else
Response.Write "The user will NOT be required to change the account
password on next logon."
End If
Setting a New Value for the User Must Change Password at Next Logon Status
Flag Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim PasswordExpired
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
User.Put "PasswordExpired", 1
User.SetInfo
Querying the User Cannot Change Password Status Flag Using a VBScript Active
Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
If (Flags And &H00040) <> 0 Then
Response.Write "The specified user account is configured so that the
password cannot be changed."
End If
Explicitly Setting the Value for the User Cannot Change Password Status Flag
Using a VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
User.Put "UserFlags", Flags OR &H00040
User.SetInfo
Toggling the Value for the User Cannot Change Password Status Flag Using a
VBScript Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
User.Put "UserFlags", Flags XOR &H00040
User.SetInfo
Querying the Password Never Expires Status Flag Using a VBScript Active
Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
If (Flags And &H10000) <> 0 Then
Response.Write "The specified user account is configured so that the
password never expires."
End If
Explicitly Setting the Password Never Expires Status Flag Using a VBScript
Active Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
User.Put "UserFlags", Flags OR &H10000
User.SetInfo
Toggling the Password Never Expires Status Flag Using a VBScript Active
Server Page
Dim User
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
User.Put "UserFlags", Flags XOR &H10000
User.SetInfo
Querying the Account Disabled Status Flag Using a VBScript Active Server
Page
Dim User
Dim UserName
Dim UserDomain
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Response.Write User.AccountDisabled
Setting a New Value for the Account Disabled Status Flag Using a VBScript
Active Server Page
Dim User
Dim UserName
Dim UserDomain
UserDomain = "Target_User_Domain"
UserName = "Target_User_Name"
Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
User.AccountDisabled = True
User.SetInfo
"Niels Henriksen" <niels@ryttersnak.dk> skrev i en meddelelse
news:96s7r5$22f2$1@news.cybercity.dk...
> Jeg skal lave en rutine der kan arbejde med IIS4. Det skal kunne oprette
> domæner med dertilhørende tingeltangel. Der skal desuden kunne oprettes en
> bruger på serveren samt sættes rettigheder til denne.
>
> Håber nogle kan være behjælpelig med URL eller evt kode
>
>
> --
> Niels Henriksen
> Systemudvikler
> Netopcom Danmark ApS
>
www.netopcomdanmark.dk
>
>