繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
認識好友、聊天，分享生活趣事搞笑、娛樂、精彩的影片讓你看你準備好成為出色的版主了嗎？
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › 一次停用多部電腦的IE特定元件
巨乳office霹靂無碼流出julia七大罪中字
look_hac476mla 1歐陸風雲マドンナjk小野りん淫霊退魔
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

✡ 九天玄帝訣 第二季
4月新番[簡體]被稱為
(4月新番)[簡]被稱為

✡ 捕星司·源起・12
[四月新番/繁中]刀劍
(4月新番)[繁]搖曳露
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 2432|回復: 1

[轉載] 一次停用多部電腦的IE特定元件[複製鏈接]

sanyu

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
70
積分
1000 點
潛水值
14348 米
發表於 2007-7-30 11:03 PM|顯示全部樓層
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
一樣是適用MIS人員的好程式，若你管理的電腦比如網頁被綁架或是不想USER使用某個元件，
可以用這個程式一次管理。

轉載自微軟網站
  1. '******************************************************************************
  2. 'AddOn-wmi-multi.vbs
  3. 'Author: Peter Costantini, the Microsoft Scripting Guys
  4. 'Date: 8/25/04
  5. 'Revision 1.0
  6. 'This script can be run against multiple computers to remotely
  7. 'disable a specific Internet Explorer add-on by editing the registry.
  8. 'You must edit the registry path to insert the correct CLSID of
  9. 'the add-on component to be disabled. To identify the CLSID of an add-on
  10. 'component, search the registry for the add-on name that is located in the
  11. 'Manage Add-ons interface.
  12. 'The multiple computers must be specified in a text file,
  13. 'addon-hosts.txt, in the same directory as the script.
  14. 'Each line of addon-hosts.txt must contain a computer name.
  15. 'Do not add a newline to the end of the last line.
  16. 'Example:
  17. 'client1
  18. 'client2
  19. 'server1
  20. 'server2
  21. '******************************************************************************
  22. On Error Resume Next
  23. 'Global constants and variables
  24. Const FOR_READING = 1
  25. Const HKEY_CURRENT_USER = &H80000001
  26. strFilename = "addon-hosts.txt"
  27. g_strKeyPathA = "Software\Microsoft\Windows" & _
  28. "\CurrentVersion\Ext\Settings\{06849E9F-C8D7-4D59-B87D-784B7D6BE0B3}"
  29. g_strKeyPathB = "Software\Microsoft\Windows" & _
  30. "\CurrentVersion\Ext\Stats\{06849E9F-C8D7-4D59-B87D-784B7D6BE0B3}\iexplore"
  31. 'If text file exists, read list of hosts and operation for each.
  32. Set objFSO = CreateObject("Scripting.FileSystemObject")
  33. If objFSO.FileExists(strFilename) Then
  34.   Set objFile = objFSO.OpenTextFile(strFilename, FOR_READING)
  35. Else
  36.   WScript.Echo "Input file " & strFilename & " not found."
  37.   WScript.Quit
  38. End If
  39. Do Until objFile.AtEndOfStream
  40. 'Get name of computer.
  41.   strComputer = objFile.ReadLine
  42.   Wscript.Echo VbCrLf & strComputer
  43.   Wscript.Echo String(Len(strComputer), "-")
  44. 'Connect with WMI service and StdRegProv class.
  45.   Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
  46.    strComputer & "\root\default:StdRegProv")
  47.   If Err = 0 Then
  48.     blnCreateSubKeys = CreateSubKeys
  49.     If blnCreateSubKeys Then
  50.       SetValues
  51.     End If
  52.   Else
  53.     WScript.Echo "ERROR: Unable to connect to WMI StdRegProv on " & _
  54.      strComputer & "."
  55.     WScript.Echo "  Error Number: " & Err.Number
  56.     WScript.Echo "  Source: " & Err.Source
  57.     WScript.Echo "  Description: " & Err.Description
  58.   End If
  59.   Err.Clear
  60. Loop
  61. objFile.Close
  62. '******************************************************************************
  63. Function CreateSubKeys
  64. intReturnA = objReg.CreateKey(HKEY_CURRENT_USER, g_strKeyPathA)
  65. If intReturnA <> 0 Then
  66.   WScript.Echo "ERROR: Unable to create registry path:" & VbCrLf & _
  67.    "HKEY_CURRENT_USER\" & strKeyPathA
  68. End If
  69. intReturnB = objReg.CreateKey(HKEY_CURRENT_USER, g_strKeyPathB)
  70. If intReturnB <> 0 Then
  71.   WScript.Echo VbCrLf & "ERROR: Unable to create registry path:" & VbCrLf & _
  72.    "HKEY_CURRENT_USER\" & strKeyPathB
  73. End If
  74. If (intReturnA = 0) And (intReturnB = 0) Then
  75.   WScript.Echo VbCrLf & "Created registry subkeys:" & VbCrLf & _
  76.    "HKEY_CURRENT_USER\" & g_strKeyPathA & VbCrLf & "HKEY_CURRENT_USER\" & _
  77.    g_strKeyPathB
  78.   CreateSubKeys = True
  79. Else
  80.   WScript.Echo "Unable to create registry subkeys."
  81.   CreateSubKeys = False
  82. End If
  83. End Function
  84. '******************************************************************************
  85. Sub SetValues
  86. 'Local variables
  87. strEntryNameA1 = "Flags"
  88. strEntryNameA2 = "Version"
  89. intValueA1 = 1
  90. strValueA2 = "*"
  91. strEntryNameB1 = "Blocked"
  92. strEntryNameB2 = "Count"
  93. strEntryNameB3 = "Type"
  94. strEntryNameB4 = "Time"
  95. intValueB1 = 4
  96. intValueB2 = &Hdf
  97. intValueB3 = 3
  98. arrValueB4 = Array(&Hd4, &H07, &H07, &H00, &H04, &H00, &H1d, &H00, &H0c, _
  99. &H00, &H20, &H00, &H2b, &H00, &H80, &H00)
  100. intReturnA1 = objReg.SetDWORDValue(HKEY_CURRENT_USER, g_strKeyPathA, _
  101. strEntryNameA1, intValueA1)
  102. intReturnA2 = objReg.SetStringValue(HKEY_CURRENT_USER, g_strKeyPathA, _
  103. strEntryNameA2, strValueA2)
  104. If (intReturnA1 = 0) And (intReturnA2 = 0) Then
  105.   WScript.Echo VbCrLf & "Added registry entries to:" & VbCrLf & _
  106.    "HKEY_CURRENT_USER\" & g_strKeyPathA & VbCrLf & _
  107.    "Entry: " & strEntryNameA1 & VbTab & "Value: " & intValueA1 & VbCrLf & _
  108.    "Entry: " & strEntryNameA2 & VbTab & "Value: " & strValueA2
  109. Else
  110.   WScript.Echo VbCrLf & "ERROR: Unable to add registry entries to:" & _
  111.    VbCrLf & "HKEY_CURRENT_USER\" & g_strKeyPathA & "."
  112. End If
  113. intReturnB1 = objReg.SetDWORDValue(HKEY_CURRENT_USER, g_strKeyPathB, _
  114. strEntryNameB1, intValueB1)
  115. intReturnB2 = objReg.SetDWORDValue(HKEY_CURRENT_USER, g_strKeyPathB, _
  116. strEntryNameB2, intValueB2)
  117. intReturnB3 = objReg.SetDWORDValue(HKEY_CURRENT_USER, g_strKeyPathB, _
  118. strEntryNameB3, intValueB3)
  119. intReturnB4 = objReg.SetBinaryValue(HKEY_CURRENT_USER, g_strKeyPathB, _
  120. strEntryNameB4, arrValueB4)
  121. If (intReturnB1 = 0) And (intReturnB2 = 0) And (intReturnB3 = 0) _
  122. And (intReturnB4 = 0) Then
  123.   For Each Value in arrValueB4
  124.     strValueB4 = strValueB4 & Hex(Value) & " "
  125.   Next
  126.   WScript.Echo VbCrLf & "Added registry entries to:" & VbCrLf & _
  127.    "HKEY_CURRENT_USER\" & g_strKeyPathA & VbCrLf & _
  128.    "Entry: " & strEntryNameB1 & VbTab & "Value: " & Hex(intValueB1) & _
  129.    VbCrLf & "Entry: " & strEntryNameB2 & VbTab & "Value: " & _
  130.    Hex(intValueB2) & VbCrLf & "Entry: " & strEntryNameB3 & VbTab & _
  131.    "Value: " & Hex(intValueB3) & VbCrLf & "Entry: " & strEntryNameB4 & _
  132.    VbTab & "Value: " & strValueB4
  133. Else
  134.   WScript.Echo VbCrLf & "ERROR: Unable to add registry entries to:" & _
  135.    VbCrLf & "HKEY_CURRENT_USER\" & g_strKeyPathB & "."
  136. End If
  137. End Sub
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
伊莉影片

使用道具檢舉

shun0226 該用戶已被刪除
發表於 2007-8-28 05:32 PM|顯示全部樓層
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。
一感謝大大的分享!!!~~~~太感謝您了!~
成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部