FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WX - Executar um ScriptVBS pelo Windev
WX - Executar um ScriptVBS pelo Windev
Iniciado por adrianoboller, 21,feb. 2016 00:53 - 1 respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 21,febrero 2016 - 00:53
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/
Informar
1
0
adrianoboller
#2
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 21,febrero 2016 - 01:03
--
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/
Informar
1
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto