Utilizar variável %userprofile% no VBScript

[octavio.rocha]

Boa tarde, pessoal do fórum.

Espero que não seja repost esse tópico, fiz uma pesquisa rápida e não encontrei nada relacionado. Caso seja repost, por favor apenas apontem o tópico que contem a dúvida resolvida.

Vamos à situação:

Eu preciso de um script para comparar dois arquivos e copiar o de origem (na rede), caso ele seja mais novo, sobrescrevendo o de destino.

Fuçando na web achei o código que vou postar logo abaixo, até aí tudo bem, ele compara e copia sem problemas, desde que eu use como destino um caminho absoluto (C:\users\shimpato yamazaki\), porém eu preciso que ele utilize como destino a variável de ambiente %USERPROFILE%, assim fica um único código para todos os usuários que fizerem logon, em qualquer computador (vou colocar o script numa gpo).

'Nome do arquivo a ser comparado e copiado
strArquivo = "gestao.exe"

'Pasta origem do arquivo
strOrigem="C:\teste\"

'Pasta destino do arquivo
Dim WshS
Set WshS = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Expand Environment
usrProfile = WshS.ExpandEnvironmentStrings("%UserProfile%")

set objFSO = CreateObject("Scripting.FileSystemObject")
set Origem = objFSO.getFile (strOrigem & strArquivo)
set Destino = objFSO.getFile (usrProfile & strArquivo)

wscript.echo Origem.path &" " & Origem.dateLastModified
wscript.echo Destino.path  & " " & Destino.dateLastModified
If objFSO.FileExists(strDestino & strArquivo) Then
   if Origem.dateLastModified > Destino.dateLastModified Then
    objFSO.DeleteFile(strDestino & strArquivo)
        objFSO.CopyFile strOrigem & strArquivo , strDestino & strArquivo, OverwriteExisting    
   End if
Else 
   objFSO.CopyFile strOrigem & strArquivo , strDestino & strArquivo, OverwriteExisting    
End if

Da forma como está o código acima, quando executo ele dá erro na linha 17 - Caract.: 1 - Arquivo não encontrado - Código: 800A0035.

Se entendi bem, ele não está justamente chegando até o USERPROFILE, por isso dá que não existe.

Agradeço qualquer ajuda.. e desculpem pelo post longo.

Obrigado.

[MRMB]

Octavio,

Tente utilizar a função "Environ" para retornar o diretório. Segue um exemplo.

Sub Macro01()
    Dim teste As String
    teste = Environ("UserProfile")
    MsgBox teste
End Sub