创建用户并且密码永不过期的vbs例子：

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

strComputer = "ki-pc"'改成你的计算机

strUserName = "admin2"'改成你的用户

Set colAccounts = GetObject("WinNT://" & strComputer & "")

Set objUser = colAccounts.Create("user", "Admin2")

objUser.SetPassword "09iu%4et"

objUser.SetInfo

Set objUser = GetObject("WinNT://" &  strComputer & "/" & strUserName & ",User")

objUserFlags = objUser.Get("UserFlags")

objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD

objUser.Put "userFlags", objPasswordExpirationFlag

objUser.SetInfo