Atualizar o domínio em runtime

#1

Existe alguma forma de atualizar o domínio em runtime?
Na versão 6.5 temos um novo botão “Refresh Domain”, mas queria fazer isso via comando no script.
Existe essa possibilidade? A ideia é adicionar o botão em uma tela para fazer esse refresh.

#2 
# Versão 6.1 ou maior
Sub btnRefreshDomain_Click()
	Application.GetObject("[?Server].Domain").Refresh()	
End Sub

# Versões anteriores
Sub btnRefreshDomain_Click()
	Dim strCommand
	Dim objShell
	
	Set objShell = CreateObject("WScript.Shell")
	
	' # E3Admin.exe /Refresh
	strCommand = "cmd /c ""C:\Program Files (x86)\Elipse Software\Elipse E3\Bin\E3Admin.exe"" /Refresh"
	objShell.Run strCommand, 0, True
End Sub
1 Like
#3

Deu certo.
Fiz o processo aqui e deu certinho.
Obrigado.

Obrigado