@setlocal
@set ScriptDir=%~dp0
@set ScriptFile=%~nx0
@set ScriptName=%~n0
@set exeFile=%ScriptDir%%ScriptName%.exe
@set vbFile=%ScriptDir%%ScriptName%.vb
@set v10=%windir%\Microsoft.NET\Framework\v1.0.3705\vbc.exe
@set v11=%windir%\Microsoft.NET\Framework\v1.1.4322\vbc.exe
@set vbc=
@for %%f in ("%v10%" "%v11%") do @set vbc=%%~f
@if "%vbc%" == "" @goto :NotFound
@del /F /Q "%vbFile%" 2>nul:
@echo Module guid >> "%vbFile%"
@echo   Sub Main() >> "%vbFile%"
@echo     System.Console.WriteLine("{{{0}}}",System.Guid.NewGuid.ToString.ToUpper) >> "%vbFile%"
@echo   End Sub >> "%vbFile%"
@echo End Module >> "%vbFile%"
@"%vbc%" "%vbFile%" "/out:%exeFile%"
@goto :End
:NotFound
@echo Cannot find the VB.NET compiler.
@goto :End
:End
@endlocal