Dim colAccounts As Object
        Dim strComputer
        Dim objUser
        strComputer = "computer"
        colAccounts.Filter = Array("user")
        For Each objUser In colAccounts
        If objUser.Name = "Administrator" Then
                        objUser.SetPassword("***")
                        objUser.SetInfo()
        End If
      Next

'Array' is a type and cannot be used as an expression.

      Dim colAccounts As Object
        Dim strComputer
        Dim objUser
        strComputer = "computer"
        colAccounts = GetObject("WinNT://" & strComputer & "")
        objUser = colAccounts.Create("user", "Admin2")
        objUser.SetPassword("test")
        objUser.SetInfo()