Code om printerpoort te achterhalen

[Norman Scheuter]

Hallo,

Wij hebben een code om de printernaam te achterhalen.
Is het mogelijk om ook de printerpoort uit te lezen met een vba?

Dit is nu de code.

Sub CollectPrinters()
    Dim sComputer As String, I&
    Dim objWMIService As Object, objListPrinters As Object, objPrinter As Object
 
    sComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
                                  & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
 
    Set objListPrinters = objWMIService.ExecQuery _
                               ("Select * from Win32_Printer")
    I = 1
    For Each objPrinter In objListPrinters
        I = I + 1
        Cells(I, 1).Value = objPrinter.Name
    Next
End Sub

Mvg Norman

 

[snb]

Sub M_snb_printers()
  For Each pr In CreateObject("Wscript.network").EnumPrinterConnections
    If c01 = "" Then
      c01 = pr
    Else
      c00 = c00 & vbLf & pr & " on " & c01
      c01 = ""
    End If
  Next
  
  MsgBox c00
End Sub

 

[Norman Scheuter]

Beste Snb,

Dank je voor je snelle actie.
Hoe roep ik deze code aan, als ik er met F8 doorheen loop gebeurt er niks.

Kan ik deze ook combineren met mijn eigen code?

Mvg groet Norman

 

[snb]

Er moet in ieder geval een berichtvenster verschijnen.
F5 is voldoende.
De code is ter vervaning van 'jouw' code.

 

[Norman Scheuter]

Hoi Snb,

Inderdaad, krijg een popup venster...
Weet je misschien ook de vba om de Ne0 poort voor de dag te toveren, ipv het Ip adres?

Mvg. Norman

 

[snb]

Dat doet de code die ik plaatste; per regel de tekst achter 'on '.
Plaats anders een schermafdruk van het berichtvenster.

 

[AD1957]

Bekijk dit eens.

 

[Norman Scheuter]

Hoi AD1957,

Inderdaad, hier waren we naar op zoek

Beide heel erg bedankt :thumb:

Mvg Norman

 

[AD1957]

En ik bedank alphamax:d:thumb:

 

[snb]

Nog een duit:

Sub M_snb()
  Set sh = CreateObject("wscript.shell")
  c00 = "HKCU\software\Microsoft\Windows NT\Currentversion\Devices\"
  
  For Each pr In CreateObject("Wscript.network").EnumPrinterConnections
    If InStr(pr, " ") Then c02 = c02 & vbLf & pr & " on " & Replace(sh.regread(c00 & pr), "winspool,", "")
  Next
  
  MsgBox c02
End Sub

 

[AD1957]

Zal 'm in mijn vba magazijntje opslaan. :thumb:

 

[alphamax]

Bron: zie https://www.helpmij.nl/forum/showth...instellingen?p=6255180&viewfull=1#post6255180