none
Замена файла в домене скриптом (скрипт не отрабатывает с политикой) RRS feed

  • Вопрос

  • Добрый день. Скрипт отрабатывает отлично при запуске с локальной машины руками и  не отрабатывает при запуске политикой логонскрипта на компьютер  или на пользователя. Задача - поменять всем пользователям домена один файлик.

    Вот сам скрипт

    Dim objFSO, objFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile("\\MyServer\MyShare\MyFile.exe") objFSO.CopyFile objFile.Path, "C:\Scripts\"

    Коллеги, прошу Вашей помощи ))

    13 января 2011 г. 12:23

Ответы

  • А к чему такие сложности, я что-то не пойму... Почему бы не использовать cmd-файл с текстом типа:

    xcopy "\\MyServer\MyShare\MyFile.exe" "C:\Scripts\" /Y


    Решаю проблемы...
    • Предложено в качестве ответа Vasily GusevModerator 13 января 2011 г. 15:51
    • Помечено в качестве ответа henaromatus 17 января 2011 г. 6:34
    13 января 2011 г. 15:00

Все ответы

  • Если есть возможность воспользуйтесь group policy preferences.

    1)Скрипт назначается на пользователя?

    2)Находится ли он в папке netlogon?

    3)Имеет ли пользователь доступ к \\MyServer\MyShare\MyFile.exe?

    4)Имеет ли пользователь  право на замену файла?

    5) Если запустить вручную скрипт под пользователем из папки ,где содержится скрипт?

    13 января 2011 г. 13:38
    Отвечающий
  • По всем четырем пунктам ответ - да

    По поводу group policy preferences сейчас посмотрю..

    13 января 2011 г. 13:47
  • Тогда покажите HKCU\Software\Policies\Microsoft\Windows\System\Scripts\Logon или gpresult.Так же проверить EventLog на наличие ошибок.

    Из реестра можно скриптом:

     

    Const HKEY_CURRENT_USER = &H80000001
    
    strComputer = "."
    
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
     strComputer & "\root\default:StdRegProv")
    
    strKeyPath = "Software\Policies\Microsoft\Windows\System\Scripts\Logon"
    oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
    
    For Each subkey In arrSubKeys
     strValueName = "DisplayName"
     strGUIDVName = "GPOName"
     strFullKeyPath = strKeyPath & "\" & subkey
     oReg.GetStringValue HKEY_CURRENT_USER, strFullKeyPath, strValueName, szValue
     oReg.GetStringValue HKEY_CURRENT_USER, strFullKeyPath, strGUIDVName, szGPOName
     wScript.Echo "Name and GUID of GPO deploying logon Script = " & szValue & " " & szGPOName
    
     oReg.EnumKey HKEY_CURRENT_USER, strFullKeyPath, arrGPOSubKeys
     For Each Scriptsubkey in arrGPOSubkeys
    
     ' Script and parameters under subkeys
     strScript = "Script"
     strParam = "Parameters"
     strScriptKeyPath = strFullKeyPath & "\" & Scriptsubkey
     oReg.GetStringValue HKEY_CURRENT_USER, strScriptKeyPath, strScript, szScript
     oReg.GetStringValue HKEY_CURRENT_USER, strScriptKeyPath, strParam, szParam
     wScript.Echo " Logon script = " & szScript
     wScript.Echo " Script Parameters = " & szParam
     wScript.Echo " "
     Next
    
    Next
    

     

    13 января 2011 г. 13:58
    Отвечающий
  • А к чему такие сложности, я что-то не пойму... Почему бы не использовать cmd-файл с текстом типа:

    xcopy "\\MyServer\MyShare\MyFile.exe" "C:\Scripts\" /Y


    Решаю проблемы...
    • Предложено в качестве ответа Vasily GusevModerator 13 января 2011 г. 15:51
    • Помечено в качестве ответа henaromatus 17 января 2011 г. 6:34
    13 января 2011 г. 15:00