'====================================================================================
'Vielen Dank für die Verwendung des von ASP001 Studio entwickelten praktischen Funktionsprogramms
'Http://www.asp001.net
'==========================================================================='ASP001 Studio provides you with customized program development and enterprise Internet expansion services
'QQ: 1974229
E-Mail: [email protected]
'Für weitere Programme herunterladen Bitte unter http://www.asp001.net
'====================================================================================
'Funktion Einführung: Verwalten von NT -Konten über ASP
'Diese Funktion verwendet ADSI und erfordert Administratorengruppen -Benutzerberechtigungen
'Programmentwicklung: ASP001 Studio Chuqi
'====================================================================================
'Füllen Sie mit dem Benutzer aus
'Funktionsnutzung: Adduser (Computer, Benutzername, Passwort, Vollname, Info)
'Parameter: Computername, Kontoname, Kontokennwort, Konto Vollständiger Name, Kontobeschreibung
'Beispiel: Adduser "127.0.0.1", "Test", "Test", "Test", "Test Administrator -Konto", "Dieses Konto wird über ASP ausgefüllt"
'Ändern Sie die grundlegenden Informationen des angegebenen Benutzer
'Funktionsnutzung: Edituser (Computer, Benutzername, Oldpassword, Passwort, Fullname, Info)
'Parameter: Computername, Kontoname, Kontokennwort, Konto Vollständiger Name, Kontobeschreibung
'Beispiel: Edituser "127.0.0.1", "Test", "Test2", "Testadministratorkonto -Änderung", "Dieses Konto wurde über ASP geändert"
'Löschen Sie den angegebenen Benutzer
'Funktionsnutzung: Zahlungsrichter (Computer, Benutzername)
"Parameter: Computername, Benutzername"
'Beispiel: COPILER "127.0.0.1", "Test"
=========================================================ieben
FunctionAdDuser (Computer, Benutzername, Passwort, Vollname, Info)
'Führen Sie den Befehl create -Konto aus
SetComputerObj = getObject ("winn: //" & computer)
SetNewuser = computerObj.create ("Benutzer", Benutzername)
Newuser.SetInfo
'Kontoeinstellungen erstellen
Newuser.SetPassword (Passwort) 'Konto Passwort
NewUser.fullname = Fullname 'vollständiger Name des Kontos
Newuser.Description = info'Account Beschreibung
NewUser.Userflags = & H10000 '& H20000 (Benutzer muss das Kennwort beim nächsten Mal ändern) und H0040 (Benutzer kann das Kennwort nicht ändern) und H10000 (Passwort ist dauerhaft korrekt) und H0002 (Konto ist vorübergehend deaktiviert)
Newuser.SetInfo
Antwort.Write "Account" & Benutzername & "erfolgreich erstellt!"
SetComputerObj = nichts
Endfunktion
Funktionedituser (Computer, Benutzername, Oldpassword, Passwort, Vollname, Info)
'Benutzerinformationen lesen
SetChangeSerObj = getObject ("winnt: //" & computer & "/" & username & ", Benutzer")
'Konto Passwort ändern
Wenn Password <> "" dann
ChangeUserobj.setPasswordPassword
Antwort.Write "Konto Passwort erfolgreich geändert! <br>"
Endif
'Ändern Sie den vollständigen Namen des Kontos
iffullname <> "" dann
Userfullname = wechsleroserobj.get ("fullname")