[VBS] Fontsize aanpassen in wscript.echo

Pagina: 1
Acties:

  • DynaMikeY
  • Registratie: Juli 2000
  • Laatst online: 06-02 23:08

DynaMikeY

1976 Kever 1300

Topicstarter
Ik heb een VB scriptje om het IP adres van een PC op het scherm te tonen. Technisch werkt het zoals ik wil. Ik wil echter dat de output in een grotere fontsize op het scherm komt.

Het gaat het volgende stukje code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            WScript.Echo "IP Adres: "& IPConfig.IPAddress(i)
        Next
    End If
Next


Weet iemand hoe ik dit (in VBS dus) kan bewerkstelligen?

Banaan (W11): Ryzen7 5800x / Asrock B550M Pro4 / Radeon RX7800 XT / 32GB DDR4 / 1TB M2 980Pro + 2TB WDBlue M2 + 1TB SSD 970Pro | AnaNAS (UnraidOS): - Core I5-10500T (2.3GHz) / Asrock H510-M / 32GB DDR4 / 1x 1TB SSD + 250GB M2 + 1x 6TB HDD + 7x 4TB HDD


  • MTWZZ
  • Registratie: Mei 2000
  • Laatst online: 13-08-2021

MTWZZ

One life, live it!

Dat is volgens mij (en wat ik hier vond) niet mogelijk gezien het een systeem message is.
Als je de font-size wil aanpassen moet je dus de system-wide setting veranderen.

Nu met Land Rover Series 3 en Defender 90


  • DynaMikeY
  • Registratie: Juli 2000
  • Laatst online: 06-02 23:08

DynaMikeY

1976 Kever 1300

Topicstarter
Jammer :'(

Banaan (W11): Ryzen7 5800x / Asrock B550M Pro4 / Radeon RX7800 XT / 32GB DDR4 / 1TB M2 980Pro + 2TB WDBlue M2 + 1TB SSD 970Pro | AnaNAS (UnraidOS): - Core I5-10500T (2.3GHz) / Asrock H510-M / 32GB DDR4 / 1x 1TB SSD + 250GB M2 + 1x 6TB HDD + 7x 4TB HDD