From the TechNet forums, this is an example for how to display Task Sequence Environment Variables and Values using VBScript:
Set oTSEnv = CreateObject("Microsoft.SMS.TSEnvironment")
For Each oVar In oTSEnv.GetVariables
WScript.Echo oVar & "=" & oTSEnv(oVar)
Next
ramseyg@hotmail.com