[James Marsh]

А какой код? »

cmd-конструкция

Код:

@echo off
setlocal enableextensions enabledelayedexpansion
mshta "javascript: var o = new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1); o.Write(screen.width); o.Write('_' + screen.height); close()" 1 >> z:\scr_resolution.txt
CScript \\10.17.11.21\scripts\wallpaper_srv.vbs //NoLogo
\\10.17.11.21\scripts\bginfo\bginfo.exe \\10.17.11.21\scripts\bginfo\init.bgi /timer:0 /SILENT /NOLICPROMPT
del z:\scr_resolution.txt
endlocal
exit /b 0

wallpaper_srv.vbs

Код:

Dim fso, ts, scrres
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("z:\scr_resolution.txt", 1)
  scrres = ts.ReadLine
	filename = "\\10.17.11.21\scripts\wlp\" & scrres & ".bmp"
 	'msgbox (filename)



Set wshShell = WScript.CreateObject("WScript.Shell")
 
	Set oShell = CreateObject("WScript.Shell")

	Set oFSO = CreateObject("Scripting.FileSystemObject")
 
	sWinDir = oFSO.GetSpecialFolder(0)

	If oFSO.FileExists(filename) Then

		oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", filename
		oShell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper", 0
		oShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", 2
 
		oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
	Else 
	 	msgbox ("Скажите системному администратору обои рабочего стола для разрешения экрана " & scrres & " отсутствует!")
	End If

А защитник ругается на mshta

Хотя, положа руку на сердце, скажу что данный велосипед устарел. Писался он когда был зоопарк мониторов и ноутбуков различного разрешения:



И так как сейчас 95% экранов фуллхд, то здается мне, что можно этот вЭлосЫпЭд как-то переписать, что бы убрать кусок определяющий, и считывающий разрешение экрана.

Вот кстати, как ругается