这样创建用户、密码很方便，但用此命令行创建新用户和密码，密码有40几天过期的小问题，而通过“控制面板”--“用户帐户”创建的用户，密码默认永不过期。
下面是“用户密码永不过期”vbs：
strComputer = "."
Dim user
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount")
For Each user1 In colItems
user = user1.Name
Set objUser = GetObject("WinNT://" & strComputer & "/" & user )
If Not objUser.UserFlags AND ADS_UF_DONT_EXPIRE_PASSWD Then
objPasswordNoExpire = objUser.UserFlags XOR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordNoExpire
objUser.SetInfo
End If
Next
