server name in background

3

Para o Windows Server 2008, existe uma maneira fácil de colocar o nome do servidor no papel de parede de fundo?

Eu gostaria que ele exibisse SERVER-A, SERVER-B, etc ...

Eu prefiro não comprar nada nem gerar imagens.

    
por mson 25.08.2009 / 18:15

4 respostas

9

Sim, o BGInfo é provavelmente o melhor caminho a percorrer.

Você também pode exibir informações úteis como IP, MAC, domínio, etc. Você pode configurá-lo para atualizar automaticamente no login com o novo agendador de tarefas, basta configurá-lo para "No logon" para o gatilho e "C : \ Bginfo.exe bginfo.bgi / timer: 0 "para a ação, onde" C: \ BGinfo.exe "é o caminho para onde você tem BGInfo.exe e" bginfo.bgi "é o caminho completo para onde você tem seu .bgi salvo.

Você pode obter bginfo apenas pesquisando, ou clicando aqui .

    
por 25.08.2009 / 18:52
12

Você tem uma opção fácil: sugá-lo e criar um papel de parede simples apenas com o nome do servidor. Outra opção é o bginfo da sysinternal . Ambos são gratuitos.

    
por 25.08.2009 / 18:19
3

Para ser perfeitamente honesto (e simples), sempre renomeio o ícone Meu computador na área de trabalho para o nome do servidor.

    
por 26.08.2009 / 04:41
2

BGInfo é a resposta que tenho medo! Eu uso um pouco de vbscript funky que permite que você selecione a resolução de papel de parede à direita e, em seguida, executa BGInfo usando um arquivo de configuração para colocar as informações no lugar certo. O script está abaixo e você pode modificá-lo para seus requisitos:

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

Você deve salvar o script em c: \ bginfo \ e também enviar os seguintes arquivos para este diretório:

bginfo.exe bginfo-cfg.bgi (criado usando bginfo com sua configuração específica) wallpaperYYYYxZZZZ.bmp (onde Y e Z são as resoluções - por exemplo, wallpaper800x600.bmp)

Você precisará criar um papel de paredeYYYYxZZZZ.bmp para cada resolução que quiser apoiar.

Por fim, basta adicionar o caminho completo ao script no script de logon ou na chave de registro RUN.

    
por 25.08.2009 / 22:32