Назад | Перейти на главную страницу

имя сервера в фоновом режиме

Для Windows Server 2008, есть ли простой способ поместить имя сервера в фоновый рисунок?

Я хочу, чтобы отображались СЕРВЕР-А, СЕРВЕР-Б и т. Д.

Я бы предпочел ничего не покупать и не создавать изображения.

У вас есть простой вариант: впитывайте его и создайте простые обои с именем этого сервера только на них. Другой выбор sysinternals bginfo. Оба бесплатны.

Да, BGInfo, вероятно, лучший выход.

Вы также можете настроить отображение полезной информации, такой как IP, MAC, домен и т. Д. Вы можете настроить его на автоматическое обновление при входе в систему с помощью приятного нового планировщика задач, просто установите для него значение «При входе в систему» ​​для триггера и «C: \ Bginfo» .exe bginfo.bgi / timer: 0 для действия, где «C: \ BGinfo.exe» - это путь к месту, где у вас есть BGInfo.exe, а «bginfo.bgi» - полный путь к месту сохранения. bgi.

Вы можете получить bginfo, просто выполнив поиск в Google или нажав Вот.

Чтобы быть совершенно честным (и простым), я всегда переименовываю значок «Мой компьютер» на рабочем столе в имя сервера.

Боюсь, BGInfo - это ответ! Я использую забавный фрагмент vbscript, который позволяет вам выбрать правильное разрешение обоев, а затем запускает BGInfo, используя файл конфигурации, чтобы поместить информацию в нужное место. Сценарий приведен ниже, и вы можете изменить его в соответствии со своими требованиями:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * From Win32_DisplayConfiguration")

Const OverwriteExisting = TRUE

' Determine the size of the desktop
For Each objItem in colItems
    X = objItem.PelsWidth
    Y = objItem.PelsHeight
Next

WScript.Echo "X:" & X
WScript.Echo "Y:" & Y

StrPath = "c:\bginfo\"
strRightSizeBMP = StrPath & "wallpaper" & X & "x" & Y & ".bmp"

WScript.Echo strRightSizeBMP

' Location and Name of Wallpaper
WinPath = "c:\bginfo\wallpaper.bmp"

' Copy Wallpaper for correct Screen Resolution to correct location
objFSO.CopyFile strRightSizeBMP, "c:\bginfo\wallpaper.bmp", OverwriteExisting

' Check for a temp file.  If it exists, this script has run before on this PC, therefore we quit.
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\bginfo\\' AND Drive = 'C:' AND FileName = 'wallpaper' AND Extension = 'bmp'")
If colFiles.Count =1 Then WScript.Echo "c:\bginfo\wallpaper.bmp exists"

If colFiles.Count < 0 Then
    objFSO.CopyFile strRightSizeBMP, "c:\bginfo\wallpaper.bmp", OverwriteExisting
End If

Set objShell = CreateObject("Wscript.Shell")
objShell.Run("c:\comet\bginfo.exe c:\bginfo\bginfo-cfg.bgi /TIMER:0 /SILENT /NOLICPROMPT"), 1, TRUE

Вы должны сохранить сценарий в c: \ bginfo \, а также выгрузить в этот каталог следующие файлы:

bginfo.exe bginfo-cfg.bgi (создается с использованием bginfo с вашей конкретной конфигурацией) wallpaperYYYYxZZZZ.bmp (где Y и Z - разрешения - например, wallpaper800x600.bmp)

Вам нужно будет создать один фоновый рисунокYYYYxZZZZ.bmp для каждого разрешения, которое вы хотите поддерживать.

Наконец, просто добавьте полный путь к сценарию в сценарий входа или в раздел реестра RUN.