none
Executar movi de arquivo por conexao remota RRS feed

  • Pergunta

  • Ba galera

    Bom dia alguem consegue me dar uma força tche, montei o codigo abaixo que roda perfeitamente de forma local, porem necessito rodar de um ponto da rede contra 200 maquinas para realizar o movi dos arquivos para um servidor tche, porem nao estou sabendo juntar a conexao WMI com a rotina de movimentação e criação de pasta tche.

    Codigo.

    Obrigado.

    Set objNetwork= CreateObject("WScript.Network")
    	strUserName = objNetwork.UserName
    	strHostname = objNetwork.ComputerName
    	strcaminho = "\\server\audit\"
    	strorigem = "C:\Temp\img\"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    	If not(objFSO.FolderExists(strPastaDestino & strUserName & "-" & strHostname & "-img")) Then
    		objFSO.CreateFolder strcaminho & strUserName & "-" & strHostname & "-img"
    		strlocal = strcaminho & strUserName & "-" & strHostname & "-img"
    	end if
    	
    	objFSO.MoveFile strorigem & "*.jpg" , strlocal

    quarta-feira, 18 de setembro de 2013 14:31

Todas as Respostas

  • Ba galera, alguem consegue me ajudar, tentei partir por este caminho mas estou recebendo o erro abaixo tche.

    erro:

    (null) (18, 1) : (null)

    codigo.

    Set objNetwork= CreateObject("WScript.Network")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    	strUserName = objNetwork.UserName
    	strHostname = objNetwork.ComputerName
    	strcaminho = "\\server\audit\"
    	
    Do While strComputer =""
    	strComputer = InputBox("Digite o nome do Host a ser consultado.","..:: Suporte Tecnico ::..")
    	If VarType(strComputer) = 0 Then WScript.Quit
    Loop
    
    Set objWMIService = GetObject("winmgmts:" _
    	    & "{impersonationLevel=impersonate}!\\" _
    	    & strComputer & "\root\cimv2").ExecQuery( _
    	    "SELECT * FROM CIM_DataFile WHERE Drive = 'C:\Temp\img'")
    
    For Each objItem in objWMIService
    
    		Select case objItem.Extension
    	
    			Case "jpg"
    				If not(objFSO.FolderExists(strPastaDestino & strUserName & "-" & strHostname & "-Evidencias")) Then
    					objFSO.CreateFolder strcaminho & strUserName & "-" & strHostname & "-Evidencias"
    					strlocal = strcaminho & strUserName & "-" & strHostname & "-Evidencias"
    				end if
    				
    				objFSO.MoveFile objItem.Extension , strlocal
    
    		end select
    		
    Next

    quarta-feira, 25 de setembro de 2013 09:01