none
Copiar arquivo que está na estação para um servidor RRS feed

  • Pergunta

  • Caros,

     

    Tenho que copiar um arquivo que está nas estações dos usuários em C:\Documents and Settings\usuario
    para um \\servidor\user.

    Como são várias estações, preciso criar no servidor uma pasta para cada estação e copiar esses arquivos que estao na estação para estes diretórios com o nome das estações.

    Alguém sabe de um script que faça isso?

    Abs

    quinta-feira, 17 de julho de 2008 17:54

Respostas

  •  Victorino Admin,

     

    Consegui fazer o script que vc precisa comentei as linhas importantes no script. Testa ai e veja se vai funfar. Estava fazendo um que  pegasse remotamente apartir de um máquina qualquer na rede porém a classe Win32_UserProfile do WMI parece ser nova e precisa de atualizalização do provedor WMI enfim não ficaria aplicavel. Então vc precisar colocar esse script no logon de cada usuário a pasta de destino que vc fornce usando o UNC deve ter permissões de modificação para todos usuário que irá carregar o script. executar ai e qualquer problema posta ai do contrário encerra a thread marcando o post como respondido!!! Abçç!!!!

     

    Code Snippet

    'Copiar arquivo do profile do user para o caminho UNC do servidor
    'Por Leonardo Couto Conrado
    '18.07.2008


    'Option Explicit

    'On error Resume Next
    Dim Computers, CopyThisFile, ObjComput, Path, NameFile, objShell, objFolder, objFolderItem,StrUserName, strComputer,TestPath
    Const OverwriteExisting = True


    Set ObjNetwork = CreateObject("Wscript.Network")


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Computer = ObjNetwork.ComputerName
    User = ObjNetwork.UserName

    Profile
    NameFile = "Arquivo_Teste.txt" 'Indique o nome do arquivo que precisa ser copiado
    Destino = "\\servidor\user\" 'Indique o caminho da pasta no servidor a subpasta com o nome do PC será criado automaticamente
    PutBar Destino
    PathFile = Path & "\"& NameFile
    DestinoComp = Destino & Computer

    If (objFSO.FolderExists(DestinoComp)) Then
     If (objFSO.FileExists(DestinoComp & "\" & NameFile)) Then
      Wscript.Quit 'Se o arquivo exite no diretorio destino encerre o script ele não sobre escreve o arquivo
      Else
       PutBar DestinoComp
       objFSO.CopyFile PathFile, DestinoComp
     End if  
      Else
       Set CreateFolderD = objFSO.CreateFolder(Destino & "\" & Computer)
       PutBar DestinoComp
       objFSO.CopyFile PathFile, DestinoComp
      
    End if  

    Function PutBar(TestPath)
      If Right( TestPath, 1 ) <> "\" Then
            TestPath = TestPath & "\"
         End If
    End Function

    Function Profile() 
     
     Const Profile_User = &H28&
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace(Profile_User)
     Set objFolderItem = objFolder.Self
     Path = objFolderItem.Path 'Este caminho é o do perfil do usuário Ex: "C:\documents and settings\leonardo.conrado"

    End Function

     

     

     

    att,

     

    Leonardo Couto.

    sexta-feira, 18 de julho de 2008 16:08