Mensajes

Nada.
Lo he metido en el IF y no me saca los equipos a los que hace ping.
Directamente se va al ELSE y me saca los que no hace el ping.

Que va, poniendo eso solo me saca:

MIO1    No se ha podido apagar
MIO2    No se ha podido apagar

Si? Espero espero jaajja

Diooooooooos!! Muchisimas gracias!
Ahora sí, se me había olvidado cerrar ese fichero.
Ahora solo me falta lo del CN jaajajjaja

Tampoco jajaja me sigue apareciendo esto, ademas no se porque me sale tantas veces el Equipo IMIO

MIO   CN=paloma,CN=Users,DC=palo,DC=age Hace PING
MIO    Hace PING
MIO   CN=Dani ,CN=Users,DC=palo,DC=age Hace PING
MIO1    No se ha podido apagar
MIO2    No se ha podido apagar

Que va, he quitado el bucle y sigue igual.
Voy a mirarlo de nuevo, pero me lo he mirado mil veces y no hay manera.
Muchas gracias por tu ayuda.

Lo acabo de añadir y sigue igual...
He probado tu codigo aparte y si que me funciona, pero modificando el mio y añadiendo lo
tuyo nada de nada 

Lo siento, me he debido de explicar mal.
Estoy hablando contigo en otro foro referido a lo de eliminar un fichero txt.
Ahi he pegado todo el codigo.
Lo que quiero es que me saque como resultado final un unico fichero con:
Equipo1 Pepe Apagado
Equipo2 Elena No se ha podido apagar
....
Y lo que quiero es borrar el otro fichero donde he guardado la consulta LDAP con todos los nombres de los equipos.
Gracias!!!

Hola, muchísimas gracias por tu aportación. Lo he probado pero no hay manera.
Seguro que mi codigo tiene muchos errores, porque estoy iniciándome.
Te pongo mi código por si lo pudieras mirar:

Código (vb) [Seleccionar] Expandir


'------------------------SCRIPT APAGADO EQUIPOS
Dim FicheroOriginal
Dim objFSO_Lista_Equipos_LDAP
Dim objLista_Equipos
Dim delFile
FicheroOriginal = "C:\Users\toshiba\Desktop\apagadoEquipos.txt"

Set objFSO_Lista_Equipos_LDAP=CreateObject("Scripting.FileSystemObject")

'-----------------------CONSULTA LDAP PARA OBTENER LOS NOMBRES DE LOS EQUIPOS

'Comprobación de la existencia del Fichero
If  objFSO_Lista_Equipos_LDAP.FileExists (FicheroOriginal) Then
Set objLista_Equipos = objFSO_Lista_Equipos_LDAP.CreateTextFile (FicheroOriginal) ' Se machaca automaticamente cada vez
Else
Set objLista_Equipos = objFSO_Lista_Equipos_LDAP.CreateTextFile (FicheroOriginal) ' Creación del Fichero
End If

On Error Resume Next
'Conectar con LDAP como administrador
Set objComp = GetObject("LDAP:")

'Validación en el Directorio Activo
Set ou = objComp.OpenDSObject("LDAP://palo.age/OU=Domain Controllers, DC=palo,DC=age", "toshiba", "I2016", 1)

'Bucle para obtener todos los Equipos de Sanidad e irlos escribiendo en el fichero
For Each obj In ou
objLista_Equipos.WriteLine (obj.cn)
Next

'-------------------------COMPROBACION DEL PING A LOS EQUIPOS

Function responde_al_ping (StrEquipo)

strComputer = "."

'Variable para obtener los permisos remotamente = admin
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'Variable Ping Equipos
Set pingEquipos = objWMIService.ExecQuery _
   ("Select * from Win32_PingStatus Where Address = '" & StrEquipo &".palo.age" & "'")

For Each objComputer in pingEquipos
   If objComputer.StatusCode = 0 Then
       
   responde_al_ping = True
   Else
       
   responde_al_ping = false
  End If
Next

End Function

Const ForReading = 1, ForWriting = 2
Dim TabStop, NewLine
TabStop = Chr(9)
NewLine = Chr(10)

'Variable Fecha
MyDate = Replace(Date, "/", "-")

Set objFichero_Log = CreateObject("Scripting.FileSystemObject")
Set objConsulta_PING = objFSO_Lista_Equipos_LDAP.OpenTextFile("C:\Users\toshiba\Desktop\apagadoEquipos.txt", ForReading)
Set objConsulta_PING2 = objFichero_Log.OpenTextFile("C:\Users\toshiba\Desktop\" & mydate & "_Log.txt", ForWriting, True)
Do Until objConsulta_PING.AtEndOfStream
StrEquipo = objConsulta_PING.ReadLine

If responde_al_ping(StrEquipo) then
'Fichero Log que almacena los Equipos que se van apagando
For Each obj In ou
objConsulta_PING2.WriteLine (StrEquipo & TabStop & obj.managedby & " " & "Hace PING")
Next

'Establecemos control de errores
On Error Resume Next

'Variable para obtener los permisos remotamente = admin
   Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & StrEquipo &".palo.age" & "\root\cimv2")
   
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
       ObjOperatingSystem.Win32Shutdown(1)
Next
   
else
   objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
end if
Loop

'Borrar Fichero con todos los EQUIPOS
Set delFile = objFSO_Lista_Equipos_LDAP.GetFile(FicheroOriginal)
delFile.Delete



Me sale error...

Tengo puesto:
For Each obj In usuarioEquipo
   
   objConsulta_PING2.WriteLine (StrEquipo & TabStop & obj.managedby & TabStop     &"APAGADO")

Next
   

Y claro me sale luego en el txt
Equipo1 CN=PEPE, DC=..