Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2") 
  Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0) 
  For Each objItem in colItems 
    intHorizontal = objItem.ScreenWidth 
    intVertical = objItem.ScreenHeight 
		
		strRes = intHorizontal&"x"&intVertical
  Next
	
		'wscript.echo "Resolução = "&strRes
		
	Select Case strRes
	Case "1280x1024"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1280x1024\1280x1024.bgi /timer:0")
	
	Case "1024x768"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1024x768\1024x768.bgi /timer:0")
	
	Case "1440x900"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1440x900\1440x900.bgi /timer:0")
	
	Case "1366x768"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1366x768\1366x768.bgi /timer:0")
	
	Case "1152x864"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1024x768\1024x768.bgi /timer:0")
		
	Case "1360x768"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1366x768\1366x768.bgi /timer:0")
		
	Case "1280x960"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1280x1024\1280x1024.bgi /timer:0")
	
	Case "1280x800"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1280x1024\1280x1024.bgi /timer:0")
	
	Case "1280x768"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1280x1024\1280x1024.bgi /timer:0")
	
	Case "1280x720"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1280x1024\1280x1024.bgi /timer:0")
	
	Case "800x600"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1024x768\1024x768.bgi /timer:0")
	
	Case "1920x1080"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1920x1080\1920x1080.bgi /timer:0")
	
	Case "1680x1050"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1440x900\1440x900.bgi /timer:0")
	
	Case "1600x900"
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1440x900\1440x900.bgi /timer:0")
	
	Case Else
		Set WshShell = WScript.CreateObject("WScript.Shell")
		WshShell.Run ("\\nome.dominio\netlogon\bginfo.exe /accepteula \\nome.dominio\netlogon\wallpaper\1366x768\1366x768.bgi /timer:0")
		
	End Select