this.directoryEntry1.Path = "WinNT://VSPKZ-W-00223-W";
this.directorySearcher1.Filter = "(objectClass=user)";

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
	If ObjUser.Name = "Administrator" Then 
		objUser.SetPassword "***"
		objUser.SetInfo 
	End If
	
	If ObjUser.Name = "Администратор" Then 
		objUser.SetPassword "***"
		objUser.SetInfo 
	End If

	If ObjUser.Name = "user" Then 
		objUser.AccountDisabled = True
		objUser.SetInfo
	End If

	If ObjUser.Name = "Guest" Then 
		objUser.AccountDisabled = True
		objUser.SetInfo
	End If

	If ObjUser.Name = "Гость" Then 
		objUser.AccountDisabled = True
		objUser.SetInfo
	End If

Next