ASP、VB、VBScript修改Windows用户信息


关键词

ASP、VB、VBScript修改Windows用户信息

摘要

本文介绍使用ASP、VB、VBScript修改Windows用户信息


Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'读取用户信息
Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
'修改帐号密码
if PassWord<>"" then
ChangeUserObj.SetPassword PassWord
response.write "帐号密码修改成功!
"
end if
'修改帐号全名
if FullName<>"" then
UserFullName = ChangeUserObj.get("FullName")
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write "帐号全名修改成功!
"
end if
'修改帐号说明
if Info<>"" then
UserFullName = ChangeUserObj.get("Description")
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write "帐号说明修改成功!
"
end if
Set ChangeUserObj=nothing
End Function

本文介绍使用ASP、VB、VBScript修改Windows用户信息


Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'读取用户信息
Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
'修改帐号密码
if PassWord<>"" then
ChangeUserObj.SetPassword PassWord
response.write "帐号密码修改成功!
"
end if
'修改帐号全名
if FullName<>"" then
UserFullName = ChangeUserObj.get("FullName")
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write "帐号全名修改成功!
"
end if
'修改帐号说明
if Info<>"" then
UserFullName = ChangeUserObj.get("Description")
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write "帐号说明修改成功!
"
end if
Set ChangeUserObj=nothing
End Function

 

要饭二维码

洪哥写文章很苦逼,如果本文对您略有帮助,可以扫描下方二维码支持洪哥!金额随意,先行谢过!大家的支持是我前进的动力!

文章的版权

本文属于“洪哥笔记”原创文章,转载请注明来源地址:ASP、VB、VBScript修改Windows用户信息:http://www.splaybow.com/post/asp-modify-windows-user.html

如果您在服务器运维、网络管理、网站或系统开发过程有需要提供收费服务,请加QQ:115085382!十年运维经验,帮您省钱、让您放心!
亲,如果有需要,先存起来,方便以后再看啊!加入收藏夹的话,按Ctrl+D

« ASP、VB、VBScript创建Windows用户 ASP、VB、VBScript删除Windows用户 »

相关文章: