Problema Com Activex

[Newton Pasqualini]

Oba pessoal,

quanto tempo né!

Seguinte, apareceu um problema daqueles de se perder o dia todo e não dar solução...

Estou desenvolvendo o módulo de administração do servidor de e-mail AgoSoft, no manual dele ele manda uns VBS que fazem as operações via ACTIVEX.

Até ai beleza...

O problema é passar os VBS para PHP...

Eu consegui passar para PHP todos os VBS menos 1, o que altera a senha da conta...

Em VBS está assim:

changepwd.vbs

dim Users, User, i

set Users=WScript.CreateObject("MailServerX.Users")
i=Users.IndexOf("joe")
if i>-1 then
  set User=Users.Items(i)
  User.Password="newpassword"
  Users.Items(i)=User
  call MsgBox("Done")
else
  call MsgBox("User not found")
end if

E em PHP está assim:

<?
function troca_senha($usuario, $nova_senha, $dominio=null){
$nm = $usuario;
if ($dominio) $nm .= "@$dominio";

$Users = new COM("MailServerX.Users") or die("Não pude carregar a API");
$i = $Users->IndexOf($nm);
if ($i > -1){
$Usr = $Users->Items($i);
$Usr = $Usr->Password = "$nova_senha";
return "Troca efetuada, nova senha é: $nova_senha";
} else {
return "Erro de execução do processo.";
}
}
echo troca_senha('teste','4321');
?>

Eu tenho a absoluta certeza de que está correto, mas quando executo da pau no PHP e ele encerra o processo, alguém pode me dar uma luz?

Abs

[setokaiba]

Tipo cara tem um class no meio post ela também pra ver

[bigodines]

$Usr = $Users->Items($i);
$Usr = $Usr->Password = "$nova_senha";

isso aqui tá estranho. não conheço a classe, mas não seria:

$Usr = $Users->Items($i);
$Usr = $Users->Password = "$nova_senha";

???

[Newton Pasqualini]

$Usr = $Users->Items($i);

$Usr = $Users->Password = "$nova_senha";

Desse jeito deu erro tb...

[rEd nEcK *]

<?

function troca_senha($usuario, $nova_senha, $dominio=null){

$nm = $usuario;

if ($dominio) $nm .= "@$dominio";

$Users = new COM("MailServerX.Users") or die("Não pude carregar a API");

$i = $Users->IndexOf($nm);

if ($i > -1){

$Usr = $Users->Items($i);

$Usr = $User->Password = "$nova_senha";

return "Troca efetuada, nova senha é: $nova_senha";

} else {

return "Erro de execução do processo.";

}

}

echo troca_senha('teste','4321');

?>

ve se da certo..

falo

[Newton Pasqualini]

Nem assim Red

No manual eles estão explicando o seguinte:

Objeto USERS

Items(Index) - Indexed property, value of it is of type User. Allows you to access each member of user list via index.

OBJETO USER

UserName - string, name of user (mailbox). Must contain domain name, if user does not belong to the blank domain, e.g. john@domain.com.

Password - string, user password

Ou seja:

Eu tenho um número de referência para cada usuário, se quero ver/modificar as informações eu digo:

$User = $Users->Items("NUMERO DE REFERÊNCIA");

Certo... Se quero mostrar digo:

echo $User->Password;

Se quero alterar:

$User->Password="NOVA_SENHA";

E tenho de salvar como???

Abs