Сценарий подписи электронной почты групповой политики

У меня есть сценарий VBS, который создает подпись электронной почты Outlook и сохраняет ее на компьютере пользователя. Я хочу, чтобы это вызывалось каждый раз, когда пользователь входит в систему, используя групповую политику, но пока мне не повезло.

Сценарий выглядит следующим образом:

Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject( "Scripting.FileSystemObject" )

strUserName = oShell.ExpandEnvironmentStrings("%USERNAME%")
strTargetPath = oShell.ExpandEnvironmentStrings("%APPDATA%")

myURL = "http://example.com/tools/signature/build.php?user=" & strUserName
myPath = strTargetPath & "\Microsoft\Signatures\Default.htm"

Dim i, objFile, objFSO, objHTTP, strFile, strMsg
Const ForReading = 1, ForWriting = 2, ForAppending = 8

If objFSO.FolderExists( myPath ) Then
    strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
    strFile = myPath
Else

End If
Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

objHTTP.Open "GET", myURL, False
objHTTP.Send
For i = 1 To LenB( objHTTP.ResponseBody )
    objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
Next
objFile.Close( )

Групповая политика была настроена против "Конфигурации пользователя" в

Policies -> Windows Settings -> Scripts -> Logon

И это указывает на скрипт на сервере.

Когда я запускаю скрипт локально, он работает без видимых ошибок, и подпись создается правильно.

Может кто-нибудь понять, почему это не работает правильно, и где (если таковые имеются) журналы или ошибки будут записаны на сервере?

0 ответов

Другие вопросы по тегам