vbs代码问题, Dim Wsh Set Wsh=CreateObject("wscript.sh
vbs代码问题,DimWshSetWsh=CreateObject("wscript.shell")Dimn_dayn_day=day(date())DimtmpPass...
vbs代码问题,
Dim Wsh
Set Wsh=CreateObject("wscript.shell")
Dim n_day
n_day=day(date())
Dim tmpPass
If n_day mod 2=1 then
tmpPass="1"
Wsh.run "cmd /c"&"net user administrator"&tmpPass,0
Else
tmpPass="0"
Wsh.run "cmd /c"&"net user administrator"&tmpPass,0
End if
Set Wsh=Nothing
运行后为什么密码没改? 展开
Dim Wsh
Set Wsh=CreateObject("wscript.shell")
Dim n_day
n_day=day(date())
Dim tmpPass
If n_day mod 2=1 then
tmpPass="1"
Wsh.run "cmd /c"&"net user administrator"&tmpPass,0
Else
tmpPass="0"
Wsh.run "cmd /c"&"net user administrator"&tmpPass,0
End if
Set Wsh=Nothing
运行后为什么密码没改? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询