'========================================================================================
'Obrigado por usar o programa de função prática desenvolvida pelo ASP001 Studio
'Http://www.asp001.net
'============================================================================' ASP001 Studio Você está com o desenvolvimento personalizado e o desenvolvimento da Internet Expidos
'QQ: 1974229
'E-mail: [email protected]
'Para mais programas Download, vá para http://www.asp001.net
'========================================================================================
'Função Introdução: Gerenciar contas NT através do ASP
'Esta função usa o ADSI e requer permissões de usuário do grupo de administradores
'Desenvolvimento do Programa: ASP001 Studio Chuqi
'========================================================================================
'Preencha com o usuário
'Uso da função: adduser (computador, nome de usuário, senha, nome completo, informação)
Parâmetros: nome do computador, nome da conta, senha da conta, nome completo da conta, descrição da conta
'Exemplo: adduser "127.0.0.1", "teste", "teste", "teste", "conta do administrador de teste", "Esta conta é preenchida através do ASP"
'Modifique as informações básicas do usuário especificado
'Uso da função: EditUser (computador, nome de usuário, antiga palavra, senha, nome completo, informação)
Parâmetros: nome do computador, nome da conta, senha da conta, nome completo da conta, descrição da conta
'Exemplo: EditUser "127.0.0.1", "teste", "test2", "Modificação da conta do administrador de teste", "Esta conta foi modificada através do ASP"
'Exclua o usuário especificado
'Uso da função: Deluser (computador, nome de usuário)
'Parâmetros: nome do computador, nome de usuário'
'Exemplo: Deluser "127.0.0.1", "teste"
=========================================================================================.
FunctionAdduser (computador, nome de usuário, senha, nome completo, informação)
'Execute o comando Create Conta
SetComputerObj = getObject ("winnt: //" e computador)
SetNewUser = CompotoBJ.Create ("Usuário", nome de usuário)
NewUser.setInfo
'Faça as configurações da conta
NewUser.setPassword (senha) 'Senha da conta
NewUser.fullName = FullName 'Nome completo da conta
NewUser.Description = INFO'COBRECONTE Descrição
NewUser.UserFlags = & H10000 '& H20000 (o usuário deve alterar a senha na próxima vez que você efetuar login) e H0040 (o usuário não pode alterar a senha) e H10000 (a senha está correta permanentemente) e H0002 (a conta está temporariamente desativada)
NewUser.setInfo
Response.Write "Conta" e Nome de usuário e "Criado com sucesso!"
SetComputerObj = nada
Função final
FunctionEditUser (computador, nome de usuário, antiga palavra, senha, nome completo, informação)
'Leia as informações do usuário
SetChangeUserobj = getObject ("Winnt: //" & Computer & "
'Modificar senha da conta
ifPassword <> "" então
ChangeUserobj.SetPasswordPassword
Response.Write "A senha da conta modificada com sucesso! <br>"
endif
'Modifique o nome completo da conta
iffullName <> "" então
UserfullName = ChangeUserobj.get ("FullName")