memshow.vbs

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

‘ This automatically generated script may need to be
‘ edited in order to work correctly.

Sub Main
Dim idx_a
    
for idx_a = 1 to 730
    crt.Screen.Send "memShow" & chr(13)
    crt.Screen.WaitForString "boot device ",10
next

End Sub

memshow.vbs

原文：http://www.cnblogs.com/qunxuan/p/4685329.html