Prezados,
Estou com dificuldades para criar um scritp VBS (para rodar no netlogon com psexec).
A finalidade deste script é, descobrir se uma determinada chave existe, caso não exista, cria a chave. Caso a chave já exista, apenas altere o valor.
Para verificar se a chave existe, estou utilizando este código:
Set Shell = WScript.CreateObject("WScript.Shell")
Chave = Shell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\services\TCPIP6\DisabledComponents")
if IsNull (Chave) = True Then
Wscript.echo "Chave não existe"
'.... executa comando
Else
Wscript.echo "Chave existe"
'.... executa comando
End If
Set Shell = Nothing
OBSERVAÇÃO: Este script gera um erro porque a chave não existe (linha 2).
--------------------------------------------------------------------------------------------------------------------------------------------
Tentei 2 scripts para tentar criar a chave, ambos não funcionaram:
Script 1:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\TCPIP6"
strValueName = "DisabledComponents"
dwValue = 0
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
Script 2:
valor = "0"
Set objFSO = CreateObject("Scripting.FileSystemObject")
set oShell = Wscript.CreateObject("Wscript.Shell")
oShell.RegWrite "HKLM\System\CurrentControlSet\Services\TCPIP6\DisabledComponents", valor, "REG_DWORD"
OBSERVAÇÕES:
No script 1, ao ser executado nada acontece.
No script 2, surge erro na linha 4: Raiz Inválida na chave do registro.
Alguém poderia me ajudar ?
Sou Livre !
