Discussion :

[sebatoz]

Bonjour tout le monde,
j utilise ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
On Error Resume Next
 
'Définition des variables'
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = _
    objWMIService.execQuery("Select * from Win32_Printer")
 
'On crée le fichier texte'
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("\\10.1.1.76\imp\imp.csv")
 
'On ouvre le fichier texte'
 
With MonFic
 
'On commence le traitement pour récup les imp et on les stocke dans le fichier'
 
For Each objItem in colInstalledPrinters
 
.writeLine "" & objItem.ServerName & "," & objItem.ShareName & "," & objItem.Comment & "," & objItem.PortName & "," & objItem.Location & "," & objItem.DriverName
 
Next
End With

afin de remonter les files d attente des imprimantes réseaux sur mes serveurs, mais la fonction "objItem.PortName" me renvoi l ip sous la forme IP_adrip.
je souhaiterais une autre fonction qui me permettrai de supprimer l affichage de "IP_".
merci d'avance a tout le monde.

[ced600]

A défaut de te proposer une autre méthode, je peut te conseiller de traiter la chaine de caractère que te renvois la méthode actuelle.

En effet grâce à la méthode Split, tu peut découper une chaine de caractère en sous chaine en fonction d'un séparateur précis.

Donc si tu applique Split sur objItem.PortName en spécifiant le caractère _, tu devrais te retrouvé avec un tableau de 2 élement :

1. IP
2. Adresse IP

Cela devrait résoudre ton problème d'optimisation de l'affichage.