objItem.PortName = IP

Bonjour tout le monde,
j utilise ce script :

Code:

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.

objItem.PortName = IP_adrip