Visual Basic - Resultado del script a un archivo de texto

Hola Amigos,
Necesito de vuestra ayuda
Tengo un script en Visual que permite descompartir carpetas, sin embargo este proceso no deja archivo con el resultado del mismo para comparar si efectivamente se realizó con éxito, adjunto el script

Dim fso,strComputer,strShare

set fso=createobject("scripting.filesystemobject")
sharefile="Shares.txt"

if not fso.fileexists(sharefile)=true > 0 then
set readfile=fso.opentextfile(sharefile, 1, true)

On Error Resume Next
Do While readfile.AtEndOfStream <> True
contents=readfile.readline
strComputer = left(contents, instr(contents, vbtab)-1)
strShare = right(contents, len(contents)-instr(contents,vbtab))

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2")

Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Name = '" & strShare & "'")

For Each objShare in colShares
objShare.Delete
Next
WScript.StdOut.Write("Se descompartió: \" & strComputer & "" & strShare & vblf)
Loop

readfile.close

set fso=nothing
end if

Gracias