[Iska]

BACbOK, попробуйте так:

Код:

Option Explicit

Const ADS_UF_PASSWD_CANT_CHANGE = &H00000040
Const ADS_UF_DONT_EXPIRE_PASSWD = &H00010000

Dim strComputer
Dim objIADsComputer
Dim strUser

For Each strComputer In Array("Machine01", "Machine02", "MachineN")
	Set objIADsComputer = GetObject("WinNT://" & strComputer & ",computer")
	
	For Each strUser In Array("User01", "User02", "UserN")
		With objIADsComputer.Create("user", strUser)
			.SetPassword "Some Password"
			
			.Put "userFlags",     CLng(ADS_UF_DONT_EXPIRE_PASSWD Or ADS_UF_PASSWD_CANT_CHANGE)
			.Put "HomeDirDrive",  "F:"
			.Put "HomeDirectory", "\\server\bacbok"
			
			.SetInfo
			
			objIADsComputer.GetObject("group","Administrators").Add(.ADsPath)
		End With
	Next
	
	Set objIADsComputer = Nothing
Next

WScript.Quit 0

Правда, зачем всех созданных пользователей в «Администраторы» добавлять — мне лично непонятно.