none
Existe alguma forma de criar uma pasta de imagems e colocar papel de parede aleatorio para os usuarios do windows 2003 ? RRS feed

  • Pergunta

  • Amigos

    Existe alguma forma de criar uma pasta de imagems e colocar papel de parede aleatorio para os usuarios do windows 2003 ?

    Grato
    Almi
    sábado, 9 de maio de 2009 01:17

Respostas

  • Olá,

    Segue abaixo o script, veja se atende o que você precisa:

    Const ForReading = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("Wscript.Network")

    strComputer = objNetwork.Computername

    '*************************************************************************
    '*************************************************************************
    '************ VARIAVEIS QUE DEVEM SER ALTERADAS **************************
    '*************************************************************************
    '*************************************************************************

    'QUANTIDADE DE IMAGENS
    nNumMax = 5

    'caminho do arquivo txt
    strLog = "\\server\compartilhamento\log\"

    'CAMINHO DAS IMAGENS
    'ATENCAO AS IMAGENS DEVERAO ESTAR NO FORMATO .BMP
    'E DEVERAO ESTAR COM O NOME NA ORDEM NUMERICA
    'EXEMPLO: 1.BMP, 2.BMP, 3.BMP, 4.BMP, 5.BMP

    strImagens = "\\server\compartilhamento\imagens\"

    '*************************************************************************
    '*************************************************************************
    '*************************************************************************

    If objFSO.FileExists (strLog & strComputer & ".txt") = False Then
       pegaWallpaper 1  
    Else
       Set objTextFile = objFSO.OpenTextFile(strLog & strComputer & ".txt",ForReading)
       Do While objTextFile.AtEndOfStream <> True
           'aqui é a linha que está lendo
           numero = objTextFile.ReadLine
       Loop
       if cstr(numero) >= 5 Then
          objTextFile.Close
          objFSO.DeleteFile(strLog & strComputer & ".txt")
          pegaWallpaper 1
       Else
          pegawallpaper cstr(numero+1)
       End if


    End if


    Sub PegaWallPaper(imagem)

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

    sWallPaper = "C:\imagens\"
    wshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper & imagem
    wshshell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutputFile = FileSystem.OpenTextFile(strLog & strComputer & ".txt", 8, True, 0)
    List = imagem '& VBCRLF

    OutPutFile.WriteLine List

    OutPutFile.Close
    End sub


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 11 de maio de 2009 19:38