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

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
1楼 跳转到 »
发表于 2012-5-28 23:16 | 显示全部帖子
补充两个方法：
  1. '用下面的users代替你原来的users

  2. Set users = GetObject("winmgmts:").ExecQuery("select * from Win32_UserAccount where name='broly'")
复制代码
  1. UserDomain = CreateObject("WScript.Network").UserDomain

  2. set user = GetObject("winmgmts:Win32_UserAccount.domain='"&UserDomain&"',name='broly'")

  3. user.PasswordExpires = False  

  4. user.Put_()
复制代码
1

评分人数

script56
新加坡Google

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
2楼
发表于 2012-5-30 13:12 | 显示全部帖子
1、语法错误你都能整出来？

2、更改帐户需要管理员权限，不用多说吧？
script56
新加坡Google

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
3楼
发表于 2012-5-30 13:17 | 显示全部帖子
用wmic更简单（管理员权限是前提）：
  1. wmic path Win32_UserAccount.Name='broly' set PasswordExpires=false
复制代码
1

评分人数

script56
新加坡Google

TOP

返回列表