'Username
strAccount = "my_test_user"
'Password
strPswd = "Rddlj3vty7"
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
' Check if account already exists
intExists = 0
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
If objUser.Name = strAccount Then
intExists = 1
End If
Next
If intExists = 0 Then
' Creating user
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", strAccount)
' Set password
objUser.SetPassword strPswd
objUser.SetInfo
' Password parameters
Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
' Add to required local Windows group
Set objGroup = GetObject("WinNT://" & strComputer & "/IIS_IUSRS,group")
Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",user")
objGroup.Add(objUser.ADsPath)
End If