For VARIABLE in range(Mínimo, Máximo, Paso)

for i in range(6, -10, -1):
    print i,",",
    # 6 , 5 , 4 , 3 , 2 , 1 , 0 , -1 , -2 , -3 , -4 , -5 , -6 , -7 , -8 , -9

for i in range(6, 20, 3):
    print i,",",
    # 6 , 9 , 12 , 15 , 18
 

require 'digest/md5'
 
STR = "elhacker.net"
MD5 = Digest::MD5.hexdigest(STR)
 
print "#{STR} = #{MD5}"

Dim TotalMemory ' Declaras la variable
 
Public function GetTotalMemory
	For Each instance In GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
		GetTotalMemory = CStr((Round(instance.TotalPhysicalMemory / 1048576, 0)))
		Exit For
	Next
End function
 
TotalMemory = GetTotalMemory ' Llamas a la función para que devuelva el valor (Convertido a string)
 
wscript.echo(TotalMemory & " MB") ' Usas el contenido de la variable de la forma que quieras.

#Region " Associate File extension "
    Public Sub Assoc( _
                    ByVal File_extension As String, _
                    ByVal Default_ID As String, _
                    ByVal Kind_description As String, _
                    ByVal Application As String, _
                    Optional Application_arguments As String = " ""%1""", _
                    Optional File_icon As String = "")
 
        Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("." & File_extension).SetValue("", Default_ID)
        Using Associate_extension_key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(Default_ID)
            Associate_extension_key.SetValue("", Kind_description)
            Associate_extension_key.CreateSubKey("DefaultIcon").SetValue("", File_icon)
            Associate_extension_key.CreateSubKey("Shell\Open\Command").SetValue("", Application & Application_arguments)
        End Using
 
    End Sub
#End Region

        Assoc("bl", "Bloc", "Bloc TextFile", "Notepad.exe")
        ' Los últimos dos argumentos son opcionales.
        Assoc("PY", "Python", "Python script", "CMD /K ", """Python.exe ""%1"" %*""", "C:\Icons.dll,6")