Function AddUser(Computer,UserName,PassWord,FullName,Info) '執(zhí)行創(chuàng)建帳號命令 Set ComputerObj = GetObject("WinNT://"Computer) Set NewUser = ComputerObj.Create( "User" , UserName ) NewUser.SetInfo '進行帳號設(shè)置 NewUser.SetPassword ( PassWord ) '帳號密碼 NewUser.FullName = FullName '帳號全名 NewUser.Description = Info '帳號說明 NewUser.UserFlags = H10000 'H20000(使用者下次登入時須變更密碼) H0040(使用者不得變更密碼) H10000(密碼永久正確) H0002(帳戶暫時停用) NewUser.SetInfo response.write "帳號"UserName"創(chuàng)建成功！" Set ComputerObj=nothing End Function
Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info) '讀取用戶信息 Set ChangeUserObj = GetObject("WinNT://"Computer"/"UserName",User") '修改帳號密碼 if PassWord>"" then ChangeUserObj.SetPassword PassWord response.write "帳號密碼修改成功！br>" end if '修改帳號全名 if FullName>"" then UserFullName = ChangeUserObj.get("FullName") ChangeUserObj.FullName = FullName ChangeUserObj.SetInfo response.write "帳號全名修改成功！br>" end if '修改帳號說明 if Info>"" then UserFullName = ChangeUserObj.get("Description") ChangeUserObj.Description = Info ChangeUserObj.SetInfo response.write "帳號說明修改成功！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
