Hiermit kannst du zumindest die Verbindungseinstellungen für den MS IE anzeigen lassen:
Spoiler anzeigen
$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & _
"\root\cimv2\Applications\MicrosoftIE")
$colIESettings = $objWMIService.ExecQuery _
("Select * from MicrosoftIE_ConnectionSettings")
$str = ''
For $strIESetting in $colIESettings
$str &= "Allow Internet programs: " & _
$strIESetting.AllowInternetPrograms & @LF & _
"Autoconfiguration URL: " & $strIESetting.AutoConfigURL & @LF & _
"Auto disconnect: " & $strIESetting.AutoDisconnect & @LF & _
"Autoconfiguration proxy detection mode: " & _
$strIESetting.AutoProxyDetectMode & @LF & _
"Data encryption: " & $strIESetting.DataEncryption & @LF & _
"Default: " & $strIESetting.Default & @LF & _
"Default gateway: " & $strIESetting.DefaultGateway & @LF & _
"Dialup server: " & $strIESetting.DialUpServer & @LF & _
"Disconnect idle time: " & $strIESetting.DisconnectIdleTime & @LF & _
"Encrypted password: " & $strIESetting.EncryptedPassword & @LF & _
"IP address: " & $strIESetting.IPAddress & @LF & _
"IP header compression: " & _
$strIESetting.IPHeaderCompression & @LF & _
"Modem: " & $strIESetting.Modem & @LF & _
"Name: " & $strIESetting.Name & @LF & _
"Network logon: " & $strIESetting.NetworkLogon & @LF & _
"Network protocols: " & $strIESetting.NetworkProtocols & @LF & _
"Primary DNS server: " & $strIESetting.PrimaryDNS & @LF & _
"Primary WINS server: " & $strIESetting.PrimaryWINS & @LF & _
"Proxy: " & $strIESetting.Proxy & @LF & _
"Proxy override: " & $strIESetting.ProxyOverride & @LF & _
"Proxy server: " & $strIESetting.ProxyServer & @LF & _
"Redial attempts: " & $strIESetting.RedialAttempts & @LF & _
"Redial wait: " & $strIESetting.RedialWait & @LF & _
"Script fileame: " & $strIESetting.ScriptFileName & @LF & _
"Secondary DNS server: " & $strIESetting.SecondaryDNS & @LF & _
"Secondary WINS server: " & $strIESetting.SecondaryWINS & @LF & _
"Server assigned IP address: " & _
$strIESetting.ServerAssignedIPAddress & @LF & _
"Server assigned name server: " & _
$strIESetting.ServerAssignedNameServer & @LF & _
"Software compression: " & $strIESetting.SoftwareCompression
MsgBox(0, '', $str)
$str = ''
Next