VBS如何自动获取当前用户的账户并自动修改密码？

wd4455

我原使用的脚本如下，但是只是做的固定账户脚本.
希望能改成修改当前用户的密码，同时开机自动运行。

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. 
    
21. 'msgbox psw

复制代码

wd4455

百度的结果
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 。。
求高手修改下..

ivor

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()]

复制代码