Self Rendering Script 

The following examples shows a script which prints the source of itself.

File Name  :   source/VBS/advanced/self_render.vbs  Author  :   Sudhakar KV Email  :   kvenkatasudhakar@gmail.com

view sourceprint? 01 'Script Name along with path 02 scriptName = WScript.ScriptFullName 03 WScript.echo "Rendering Script : " & scriptName 04   05 Set fileSys = CreateObject("Scripting.FileSystemObject") 06   07 'IOMode = 1 for reading 08 'IOMode = 2 for writing 09 set fileHandle = fileSys.OpenTextFile(scriptName,1) 10   11 'Returns a string containing entire content of text stream 12 scriptContent = fileHandle.ReadAll 13 fileHandle.Close 14   15 'Render the file content 16 WScript.echo scriptContent