Demo entry 6881438

Excel Consultor

   

Submitted by a on Sep 10, 2019 at 23:03
Language: VBScript. Code size: 495 Bytes.

Sub miMacro2()



MsgBox "Este es un texto tan largo que " _

& "debe continuar en la siguiente línea", , "Aviso"



End Sub
 

With CreateObject("WScript.Network")

 

MsgBox "Información:" & vbCr & _

"Nombre del equipo: " & Environ("computername") & vbCr & _

"Nombre del dominio: " & Environ("userdomain") & vbCr & _

"Nombre del usuario: " & Environ("username") & vbCr & _

"Serie Vol C:/ :" & serialhdc, , "Excel Consultor"

 

End With

 
End Sub

 

 

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).