none
Apresentar o valor correto da consulta do registro. RRS feed

  • Pergunta

  • Ba galera.

    Alguém consegue me dar uma força tche.
    Montei com código abaixo e o mesmo esta fazendo parte do que desejo na apresentação tche, eu gostaria que ele me informasse a letra e o caminho de rede associado a esta letra de mapeamento tche, mas ele so esta listando os valores de cada chave, alguém sabe o que devo fazer para que a saída seja K: usa o caminho \\servidor\caminho

    Obrigado tche.


    codigo.

    Const HKEY_CURRENT_USER = &H80000001
     
    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
        strComputer & "\root\default:StdRegProv")
    
    '**************************************************************************************************
    'Unidades de rede
    '**************************************************************************************************
    strKeyPathNetwork = "Network"
    oReg.EnumKey HKEY_CURRENT_USER, strKeyPathNetwork, _
    	arrSubKeys
    
    For Each subkey In arrSubKeys
       
    	strkey = strKeyPathNetwork & "\" & subkey
    	oReg.EnumValues HKEY_CURRENT_USER, strkey, _
    	arrSubNames, arrSubTypes
    	
    	For i=0 To UBound(arrSubNames)
    		WScript.Echo "Value Name: " & arrSubNames(i)
    	next
    	
    Next
    '**************************************************************************************************

    quarta-feira, 10 de julho de 2013 16:46

Respostas

  • Marcelo

    Boa tarde.

    Veja se o código abaixo lhe atende.

    Const HKEY_CURRENT_USER = &H80000001
     
    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
        strComputer & "\root\default:StdRegProv")
    
    strKeyPathNetwork = "Network"
    oReg.EnumKey HKEY_CURRENT_USER, strKeyPathNetwork, _
        arrSubKeys
    
    For Each subkey In arrSubKeys
       
        strkey = strKeyPathNetwork & "\" & subkey
        oReg.EnumValues HKEY_CURRENT_USER, strkey, _
        arrSubNames, arrSubTypes
        
        strValueName = "RemotePath"
        oReg.GetStringValue _
        HKEY_CURRENT_USER,strkey,strValueName,szValue
        
        struni = Mid(strkey,9)
       
        WScript.Echo "Value Name: " & struni & " - " & szValue
        
    Next
    


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI terça-feira, 16 de julho de 2013 17:39
    terça-feira, 16 de julho de 2013 15:09

Todas as Respostas

  • Ba galera, alguem consegue me ajudar neste codigo para que o resultado seja letra usada K: usa o caminho \\servidor\caminho.

    obrigado tche.

    quarta-feira, 10 de julho de 2013 23:29
  • Manda a saída do seu script.

    Fábio de Paula Junior

    quinta-feira, 11 de julho de 2013 00:28
    Moderador
  • Ba Fabião, obrigado pela ajuda mas uma vez, amanha na hora que eu chegar na emissora eu te mando a saida que este script tem tche, nao consigo gerar a saida em casa pq nao tenho unidades mapeadas.

    quinta-feira, 11 de julho de 2013 00:57
  • Ba fabião o dia não ta facil hj.

    segue a saida deste script tche.
    na maquina que executei possui duas unidades mapeadas.

    Value Name: RemotePath
    Value Name: UserName
    Value Name: ProviderName
    Value Name: ProviderType
    Value Name: ConnectionType
    Value Name: DeferFlags
    Value Name: RemotePath
    Value Name: UserName
    Value Name: ProviderName
    Value Name: ProviderType
    Value Name: ConnectionType
    Value Name: DeferFlags
    
    ***** script completed - exit code: 0 *****

    quinta-feira, 11 de julho de 2013 14:34
  • Fabião,

    o caminho é este aqui mais não estou conseguindo fazer esta consulta por wmi para coletar remotamente tche.

    codigo.

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    
    Set oDrives = WshNetwork.EnumNetworkDrives
    
    For i = 0 to oDrives.Count - 1 Step 2
    	strDrivers = strDrivers & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1) & " ; "
    	 
    Next
    
    WScript.Echo strDrivers

    sexta-feira, 12 de julho de 2013 19:46
  • Marcelo

    Boa tarde.

    Veja se o código abaixo lhe atende.

    Const HKEY_CURRENT_USER = &H80000001
     
    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
        strComputer & "\root\default:StdRegProv")
    
    strKeyPathNetwork = "Network"
    oReg.EnumKey HKEY_CURRENT_USER, strKeyPathNetwork, _
        arrSubKeys
    
    For Each subkey In arrSubKeys
       
        strkey = strKeyPathNetwork & "\" & subkey
        oReg.EnumValues HKEY_CURRENT_USER, strkey, _
        arrSubNames, arrSubTypes
        
        strValueName = "RemotePath"
        oReg.GetStringValue _
        HKEY_CURRENT_USER,strkey,strValueName,szValue
        
        struni = Mid(strkey,9)
       
        WScript.Echo "Value Name: " & struni & " - " & szValue
        
    Next
    


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI terça-feira, 16 de julho de 2013 17:39
    terça-feira, 16 de julho de 2013 15:09
  • Ba Leandrão.

    Obrigado pela força, era isto mesmo.

    terça-feira, 16 de julho de 2013 17:39