本文介绍使用ASP、VB、VBScript修改Windows用户信息
Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)'读取用户信息Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")'修改帐号密码if PassWord<>"" thenChangeUserObj.SetPassword PassWordresponse.write "帐号密码修改成功！"end if'修改帐号全名if FullName<>"" thenUserFullName = ChangeUserObj.get("FullName")ChangeUserObj.FullName = FullNameChangeUserObj.SetInforesponse.write "帐号全名修改成功！"end if'修改帐号说明if Info<>"" thenUserFullName = ChangeUserObj.get("Description")ChangeUserObj.Description = InfoChangeUserObj.SetInforesponse.write "帐号说明修改成功！"end ifSet ChangeUserObj=nothingEnd Function