Sub process_create()
Set WSHShell = CreateObject("WScript.Shell")

' IWshShell.Run
WSHShell.Run "calc.exe"

' IWshShell.Exec
WSHShell.Exec "calc.exe"

' IShellDispatch.ShellExecute
Set ShellApp = CreateObject("Shell.Application")
ShellApp.ShellExecute "calc.exe"

' ISWbemObjectEx.Create
GetObject("winmgmts:\\.\root\cimv2:Win32_Process").Create "calc.exe"

End Sub

Sub process_file()

' _Stream.SaveToFile
Set bs = CreateObject("ADODB.Stream")
bs.Type = 1
bs.Open
bs.SaveToFile "1.db", 2

Set fsObj = CreateObject("Scripting.FileSystemObject")

' IFileSystem.CreateTextFile
fsObj.CreateTextFile("1.txt")

' IFileSystem.OpenTextFile
fsObj.OpenTextFile("1.txt")

' IFileSystem.CopyFile
fsObj.CopyFile "1.txt","2.txt"

' IWshShell.CreateShortcut
Set WshShell = CreateObject("WScript.Shell")
WshShell.CreateShortcut "$home\desktop\DemoShortcut.lnk"

End Sub

Sub process_reg()

' IWshShell.RegWrite
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKCU\Delete\Key", "test", "REG_SZ"
End Sub

Sub process_net()

Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://mail.baidu.com/file/pay/typeword13.doc"
objWinHttp.Open "GET", URL, False

Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
xHttp.Open "Get", "http://www.baidu.com", False
End Sub