On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set wmi = GetObject("winmgmts:\\.\root\cimv2")

Dim log
log = "C:\Users\Jun\Desktop\7777E\1\test_output.txt"
Set f = fso.CreateTextFile(log, True)
f.WriteLine "FSO: " & TypeName(fso)
f.WriteLine "WS: " & TypeName(ws)
f.WriteLine "WMI: " & TypeName(wmi)
f.WriteLine "Err: " & Err.Number & " " & Err.Description

' Test WinHttp
Dim oHTTP
Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
f.WriteLine "WinHttp: " & TypeName(oHTTP)
f.WriteLine "Err2: " & Err.Number & " " & Err.Description

f.Close