[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS如何自动获取当前用户的账户并自动修改密码?

我原使用的脚本如下,但是只是做的固定账户脚本.
希望能改成修改当前用户的密码,同时开机自动运行。
  1. strPassword = right("0"&weekday(now()),8)
  2. select case strPassword
  3. '星期一至星期天
  4.       case 1 psw="123"
  5.       case 2 psw="123"
  6.       case 3 psw="123"
  7.       case 4 psw="123"
  8.       case 5 psw="123"
  9.       case 6 psw="123"
  10.       case 7 psw="123"
  11.     end select
  12. Dim WshNetwork
  13. Set WshNetwork = CreateObject("WScript.Network")
  14. Dim UserName
  15. UserName = WshNetwork.UserName&",user"
  16. Dim Domain
  17. Set Domain = GetObject("WinNT://./"&UserName)
  18. Domain.SetPassword psw
  19. Domain.SetInfo
  20. 'msgbox psw
复制代码

百度的结果
1
dim wsnet
set wsnet=wscript.createobject("wscript.network")
msgbox wsnet.username
2
<script language="JavaScript">
//取得机器名,登录域及登录用户名
function getusername()
{
var WshNetwork = new ActiveXObject("WScript.Network");
alert("登录名 = " + WshNetwork.UserDomain);
alert("计算机名 = " + WshNetwork.ComputerName);
alert("用户名 = " + WshNetwork.UserName);
}
</script>
<a onclick="javascript:getusername();">点我</a>
保存成htm文件
3
<%use=request.servervariables("LOGON_USER")
response.write ("use")%>
你将它转化成变量不是可以在客户端调用了?
我都不记得,曾经学过ASP 。。
求高手修改下..

TOP

  1. $WeekDay = @{
  2.     Monday = "1"
  3.     Tuesday = "2"
  4.     Wednesday = "3"
  5.     Thursday = "4"
  6.     Friday = "5"
  7.     Saturday = "6"
  8.     Sunday = "7"
  9. }
  10. net user $env:USERNAME $WeekDay[(Get-Date).DayOfWeek.ToString()]
复制代码

TOP

返回列表