Network Security Internet Technology Development Database Servers Mobile Phone Android Software Apple Software Computer Software News IT Information

In addition to Weibo, there is also WeChat

Please pay attention

WeChat public account

Shulou

How to use vbs to add a website to a secure site. Prompt when setting up a secure site to open ActiveX. The vbs code for the header and footer

2025-01-19 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Development >

Share

Shulou(Shulou.com)06/03 Report--

This article will explain in detail how to add a website to a secure site using vbs implementation. Prompt when setting up a secure site to open ActiveX. Go to the header and footer of the vbs code, the editor thinks it is very practical, so share it with you for reference. I hope you can get something after reading this article.

The code is as follows:

'/ * =

'* Intro mainly solves the problem that when printing with WebBrowser, you have to set IE security first.

'* FileName adds a website to a secure site. Prompt when setting up a secure site to open ActiveX. Go to the header footer. Vbs

'* /

Const HKEY_CURRENT_USER = & H80000001

Set objReg = GetObject ("winmgmts: {impersonationLevel=impersonate}!\\.\ root\ default:StdRegProv")

'add a website to a secure site

StrKeyPath = "Software\ Microsoft\ Windows\ CurrentVersion\ Internet Settings\ ZoneMap\ Domains\ yongfa365.com"

ObjReg.CreateKey HKEY_CURRENT_USER, strKeyPath

ObjReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "http", 2

'set the security site to prompt when you open ActiveX

StrKeyPath = "Software\ Microsoft\ Windows\ CurrentVersion\ Internet Settings\ Zones\ 2"

ObjReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "CurrentLevel", "00000000"

ObjReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "1201", "00000001"

'cancel the header and footer

StrKeyPath = "Software\ Microsoft\ Internet Explorer\ PageSetup\"

ObjReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, header, "

ObjReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, footer, "

Msg = "IE security setup complete" & vbCrLf&vbCrLf

Msg = msg & "if you can't print properly, you need to close all open IE browser windows and then log in to OA to print" & vbCrLf&vbCrLf

Msg = msg & "if you still have a problem, you can contact the technical team: Liu Yongfa"

MsgBox msg, vbInformation, "warm reminder!"

On "how to use the vbs implementation to add a website to a secure site. Set up a secure site to open the ActiveX prompt. Go to the header footer of the vbs code" this article is shared here, I hope the above content can be of some help to you, so that you can learn more knowledge, if you think the article is good, please share it out for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.

Views: 0

*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.

Share To

Development

Wechat

© 2024 shulou.com SLNews company. All rights reserved.

12
Report