none
Instalação de XPS.msi com verificação de chave no Registro RRS feed

  • Pergunta

  • Bom dia, Senhores

    Gostaria de verificar no registro se existe a chave HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\Microsoft XPS Document Writer se não existir gostaria de instalar a partir de um local de rede ex. \\server\share um pacote *.msi com o parametro /quiet para instalação silenciosa.

    baseado no script postado pelo sr. Laert (Technet) coloquei as seguintes informações no script

    INICIO

    Const HKEY_CURRENT_USER = &H80000002
    set objshell = createobject("wscript.shell")
    strComputer = "."
    set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\defaulttdRegProv")

    objRegistry.GetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices\Microsoft XPS Document Writer","UninstallCommand"


    If IsNull Then
        objshell.run "\\Server\share$\xps.msi /quiet"
    End If

    FIM

    o memo não funcionou, aparece uma mensagem de erro no script na linha quatro.

    Alguem sabe como fazer este Script?

    Conto com a ajuda de todos, desde já obrigado.

    segunda-feira, 23 de março de 2009 18:25

Respostas

  • Olá,

    Faça um teste no script abaixo:


    Const HKEY_CURRENT_USER = &H80000001

    strComputer = "."

    set objshell = createobject("wscript.shell")
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

    strValueName = "Microsoft XPS Document Writer"

    oReg.GetExpandedStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
     
    if isnull(strvalue) Then
       objshell.run "\\Server\share$\xps.msi /quiet"
    Else
       Wscript.Echo  "O Valor da variavel é: " & strValue
    End if

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 23 de março de 2009 20:56

Todas as Respostas

  • Olá,

    Faça um teste no script abaixo:


    Const HKEY_CURRENT_USER = &H80000001

    strComputer = "."

    set objshell = createobject("wscript.shell")
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

    strValueName = "Microsoft XPS Document Writer"

    oReg.GetExpandedStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
     
    if isnull(strvalue) Then
       objshell.run "\\Server\share$\xps.msi /quiet"
    Else
       Wscript.Echo  "O Valor da variavel é: " & strValue
    End if

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 23 de março de 2009 20:56
  • Perfeito, erá isso que eu estava precisando.

    Obrigado pela ajuda.
    sexta-feira, 27 de março de 2009 21:07