GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WX - Executar um ScriptVBS pelo Windev
WX - Executar um ScriptVBS pelo Windev
Iniciado por adrianoboller, fev., 21 2016 12:53 AM - 1 resposta
Conecte-se…
adrianoboller
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 21 2016 - 12:53 AM
Prezados,
Segue aqui um exemplo interessante que permite criar um ScriptVBS e executar pelo Windev:
ScriptVBS is
string
= [
Function JoinDomian()
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
strDomain = "%1"
strUser = "%2"
strPassword = "%3"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Join Computer to domain
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
JoinDomian = "Error encountered joining computer to domain error: " & ReturnValue
End Function
]
MyResult is
string
=
StringBuild
(
ScriptVBS
,
EDT_
Domain_Name
,
EDT_
Domain_UserName
,
EDT_
Domain_Pass
)
//pathstring = CompleteDir(ExeInfo(exeDirectory))
///fSaveText(pathstring + "join.vbs", MyResult)
//MSScriptControl>>AllowUI = False
MSScriptControl
>
>
Language
(
"VBScript"
)
MSScriptControl
>
>
AddCode
(
MyResult
)
MSScriptControl
>
>
Timeout
(
-
1
)
ResultatVbs
=
MSScriptControl
>
>
Run
(
"JoinDomian"
)
Bons estudos e sempre trabalhem seguindo a ética e a moral.
Grandes poderes... Grandes responsabilidades...
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/
Denunciar
1
0
adrianoboller
#2
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 21 2016 - 1:03 AM
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/
Denunciar
1
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto