Visual Basic - ipcong con vbs

Life is soft - evento anual de software empresarial
   
Vista:

ipcong con vbs

Publicado por Fabian (1 intervención) el 31/07/2010 06:21:26
Hola consulta como hago un .vbssript que me muestre en un msgbox la informacion del ipconfig.

de antemano gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Atributos
- Hostname
- Archivo de Recursos

RE:ipcong con vbs

Publicado por XHkrElite (518 intervenciones) el 02/08/2010 07:50:35
Hola Fabian:

coloca dos botones:(command1 y command2)
despues de dar click en el command1 da click en el command2 o en el vbs que esta en
el path c:\ip.vbs

aqui esta el code:

Private Sub Command1_Click()
creararchivodeip
crearvbs
End Sub

Sub creararchivodeip()
r = Shell("cmd /c ipconfig >c:\ip.txt")
End Sub

Sub crearvbs()
Open "c:\ip.vbs" For Output As #1
Print #1, "on error resume next"
Print #1, "Set ejecutar = CreateObject(" & """wscript.Shell""" & ")"
Print #1, "ejecutar.run(" & """c:\ip.txt""" & ")"
Close #1
End Sub

Sub ejecutarvbs()
Set ejecutar = CreateObject("wscript.shell")
ejecutar.run ("c:\ip.vbs")
End Sub

Private Sub Command2_Click()
ejecutarvbs
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar