Ir para o conteúdo
Byakuya

Vb problema em acrescentar

Mensagens Recomendadas

Byakuya    0
Byakuya

Bom dia,

Tenho uma duvida que e a seguinte: tenho uma conta Exchange e utilizo o exmerge para poder fazer um backup.

Crio um Ficheiro nomeado Createlist.vbs e dentro tenho as linhas seguintes:

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

      oUserlist.Writeline(" "& oTakeList)

Next

O meu problema e que quero acrescentar em vez de apagar o conteúdo do ficheiro!

                          oUserlist.Writeline(" "& oTakeList) em vez disto por : "..."

Desculpem a minha falta de assentos nos "e"  mas não funcionam.

E o assunto da mensagem também não e muito clara mas não tinha ideia de como nomear a minha mensagem.

Obrigado desde já

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Byakuya    0
Byakuya

Set CNUsers = GetObject ("LDAP://OU=****,OU=****,OU=**** Users,DC=****,DC=****,DC=****")

CNUsers.Filter = Array("user")

'*****************************************

'leitura e carreguamento dos ficheiros .pst num log

'*****************************************

For Each User in CNUsers

     oTakeList = User.legacyExchangeDN

     DisplayName = User.displayName

     WScript.Echo  " "& oTakeList

     oUserlist.Writeline(" "& oTakeList)

Next

'*****************************************

'outra vez mas agora pa outro "livro" .pst

'*****************************************

Set CNUsers = GetObject ("LDAP://Ou=****,OU=****=OU=**** Users,DC=***,DC=****,DC=***")

CNUsers.Filter = Array("user")

For Each User in CNUsers

     oTakeList = User.legacyExchangeDN

     DisplayName = User.displayName

     WScript.Echo  " "& oTakeList

     oUserlist.Writeline(" "& oTakeList) -> aqui deveria por oUserlist.Writeline(" "& oTakeList,True) ???

Next

Nao funciona, so se nao precisar de lancar 2 vezes a mesma rotina mas sim acrescentar umas linhas da segunda rotina a primeira?!?

Ps: Os **** sao os caminhos da minha base de Exchange

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
José Lopes    1
José Lopes

Tu estas a reescrever o mesmo ficheiro..penso eu...

oUserlist representa o teu ficheiro.. estas a escrever duas vezes a mesma coisa... e no mesmo ficheiro...

basicamente estas a duplicar o processo...

Experimenta so com a 2 rotina..e com o valor do Writeline a true

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Byakuya    0
Byakuya

Problema Resolvido no fim fica assim era simples mas era preciso faze-lo

Set CNUsers = GetObject ("LDAP://OU=****,OU=****,OU=**** Users,DC=****,DC=****,DC=****")

CNUsers.Filter = Array("user")

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

    oUserlist.Writeline(" "& oTakeList)

Next

Set CNUsers = GetObject ("LDAP://Ou=****,OU=****=OU=**** Users,DC=***,DC=****,DC=***")

CNUsers.Filter = Array("user")

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

    oUserlist.Writeline(" "& oTakeList)

Next

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade