Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Com Activex


Newton Pasqualini

Pergunta

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

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

<?

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...