Visual Basic - Resultado del script a un archivo de texto

Life is soft - evento anual de software empresarial
   
Vista:

Resultado del script a un archivo de texto

Publicado por Paula (1 intervención) el 06/01/2009 19:23:44
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder