Script em VB nao está apendando

[felipegds]

Pessoal, preciso de um help.

Tenho um srcript em VB que em algumas maquinas ele apenda as informações e em outras maquinas ele nao apenda....

Por exemplo, quando roda o script em uma determinada maquina ( obs ambas maquinas possuem a mesma imagem ) ele grava as informações no mesmo arquivo, uma em cada linha.

Já em uma outra maquina ele grava as informações de saida no mesmo arquivo porém sobrepondo a linha anterior.

Eu gostaria que ele continua-se gravando uma informacao em cada linha...dividido por datas.

Segue o script para verem se estou errando algo

-----------

Dim objArq, strArquivo, objArquivo, data_hoje

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WSHNetwork = CreateObject("WScript.Network")

data_hoje = date

strUsuario = WSHNetwork.UserName

strComputador = WSHNetwork.ComputerName

'strArquivo = strUsuario & "_" & strComputador & ".txt"

strArquivo = "Log_User.txt"

Set objArq = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists( strArquivo ) then

Set objArquivo = objArq.OpenTextFile( "\\server\log$\" & strArquivo, 8, True)

Else

Set objArquivo = objArq.CreateTextFile( "\\server\log$\" & strArquivo, True)

End If

'objArquivo.WriteLine( "Logon : " & Now )

objArquivo.WriteLine(Now &" Usuário : " & strUsuario & " Computador :"& strComputador)

objArquivo.Close