none
Copiar file para Worstations baseado em OU RRS feed

  • Pergunta

  • Estive a tentar compilar um Script que ao correr copiasse um file, mas que fosse procurar numa OU que máquinas deve correr.

    por favor teoricamente corrijam-me

    Set colComputers = GetObject("LDAP://OU=Finance, DC=fabrikam, DC=com")
    For Each objComputer in colComputers
          strComputer = objComputer.CN
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting

    Cláudio Gonçalves
    terça-feira, 23 de fevereiro de 2010 07:56

Respostas

  • Olá,

    Cláudio, você quer que o script execute apenas nas maquinas de uma determinada OU?

    Se for isso, crie o link da GPO somente na OU onde estão as máquinas:OU=Finance, DC=fabrikam, DC=com


    O script que você postou não irá copiar remotamente.

    Você pode adaptar o script, para executar o psexec. Onde o script.vbs do exemplo seria o script que copia os arquivos (o script que você tem acima)

    Segue exemplo:

    Set WSHShell = WScript.CreateObject("WScript.Shell")

    'caminho do psexec
    strPsexec = "\\server\compartilhamento\PsTools\psexec.exe"

    'Caminho do arquivo que irá executar no computador cliente
    strScript =  "\\server\compartilhamento\script.vbs"

    Set colComputers = GetObject("LDAP://OU=Finance,DC=fabrikam,dc=com")
    For Each objComputer in colComputers
       strComputer = objComputer.CN
       WSHShell.Run strPsexec & " \\" & strComputer & " cscript.exe " & strScript, 2, true
    Next


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 23 de fevereiro de 2010 11:31