欧美亚洲精品真实在线,亚洲精品国产av成拍色拍

'=============================================================
'       感謝您使用ASP001工作室開發(fā)的實(shí)用函數(shù)程序
'               HTTP://WWW.ASP001.NET
'=============================================================     'ASP001工作室為您提供訂制程序開發(fā)、企業(yè)互聯(lián)網(wǎng)拓展服務(wù)
'QQ：1974229
'E-Mail：Shenyangchuqi@tom.com
'更多程序下載請(qǐng)到HTTP://WWW.ASP001.NET
'=============================================================
'函數(shù)介紹：通過ASP管理NT帳號(hào)
'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限
'程序開發(fā)：ASP001工作室 ChuQi
'=============================================================
'填加用戶
'函數(shù)用法：AddUser(Computer,UserName,PassWord,FullName,Info)
'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱,帳號(hào)密碼,帳號(hào)全名,帳號(hào)說明
'例：AddUser "127.0.0.1","Test","Test","測(cè)試管理員帳號(hào)","本帳號(hào)通過ASP填加"

'修改指定用戶基本信息
'函數(shù)用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱,帳號(hào)密碼,帳號(hào)全名,帳號(hào)說明
'例：EditUser "127.0.0.1","Test","Test2","測(cè)試管理員帳號(hào)修改","本帳號(hào)通過ASP修改過"

'刪除指定用戶
'函數(shù)用法：DelUser(Computer,UserName)
'參數(shù)：計(jì)算機(jī)名,用戶名'
'例：DelUser "127.0.0.1","Test"
=============================================================

Function AddUser(Computer,UserName,PassWord,FullName,Info)
'執(zhí)行創(chuàng)建帳號(hào)命令
Set ComputerObj = GetObject("WinNT://"Computer)
Set NewUser = ComputerObj.Create( "User" , UserName )
NewUser.SetInfo
'進(jìn)行帳號(hào)設(shè)置
NewUser.SetPassword ( PassWord ) '帳號(hào)密碼
NewUser.FullName = FullName   '帳號(hào)全名
NewUser.Description = Info    '帳號(hào)說明
NewUser.UserFlags = H10000   'H20000(使用者下次登入時(shí)須變更密碼) H0040(使用者不得變更密碼) H10000(密碼永久正確) H0002(帳戶暫時(shí)停用)
NewUser.SetInfo
response.write "帳號(hào)"UserName"創(chuàng)建成功！"
Set ComputerObj=nothing
End Function

Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'讀取用戶信息
Set ChangeUserObj = GetObject("WinNT://"Computer"/"UserName",User")
'修改帳號(hào)密碼
if PassWord>"" then
ChangeUserObj.SetPassword PassWord
response.write "帳號(hào)密碼修改成功！br>"
end if
'修改帳號(hào)全名
if FullName>"" then
UserFullName = ChangeUserObj.get("FullName")
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write "帳號(hào)全名修改成功！br>"
end if
'修改帳號(hào)說明
if Info>"" then
UserFullName = ChangeUserObj.get("Description")
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write "帳號(hào)說明修改成功！br>"
end if
Set ChangeUserObj=nothing
End Function

Function DelUser(Computer,UserName)
Set DelUserObj = GetObject("WinNT://"Computer"/"UserName)
If Err = H800401E4 Then
Response.Write "用戶"UserName"不存在"
Response.End
End If
Set DelObj = GetObject(DelUserObj.Parent)
DelObj.Delete "User", DelUserObj.Name
Set DelUserObj = Nothing
Set DelObj = Nothing
Response.Write "刪除成功"
End Function

標(biāo)簽：馬鞍山孝感平頂山遼陽朝陽四平防城港湖北

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《如何通過ASP管理NT帳號(hào)》，本文關(guān)鍵詞如何,通過,ASP,管理,帳號(hào),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。