zhanjiajin
发表于 2018-2-7 16:14:48
sssssssssssssssss
kaoeslq
发表于 2018-2-8 00:06:58
66666666666666666666666666666
香蕉
发表于 2018-2-8 21:22:40
个人顶 拿石币买你的脚本
sd2206406
发表于 2018-2-13 10:37:25
66666666666666666666666666666
ansyhudong
发表于 2018-2-18 05:00:58
好像好厉害的样子
zhang88511293
发表于 2018-2-22 16:50:54
66666666666666666666666666666
zhang88511293
发表于 2018-2-22 16:51:35
55555555555556
lywin400020
发表于 2018-3-1 23:26:45
xile,ganxie
jerry496116
发表于 2018-3-2 16:57:02
好像很清大的样子
ssksk11
发表于 2018-3-8 16:15:23
'****************************************************************************** 'OpenPrograms-com.vbs 'Author: Peter Costantini, The Microsoft Scripting Guys 'Date: 8/26/04 'Version: 1.0 'This script adds specified programs to the Windows Firewall exceptions list. '******************************************************************************Const NET_FW_SCOPE_ALL = 0 Const NET_FW_SCOPE_LOCAL_SUBNET = 1 'First dimension of arrNewApps must equal # of apps to be allowed minus 1. Dim arrNewApps(2,3)'Edit this list to add programs to the exceptions list. 'Scope and Enabled are optional properties. 'Default for Scope is NET_FW_SCOPE_ALL. Default for Enabled is True.arrNewApps(0,0) = "NsLookup" 'Name arrNewApps(0,1) = "%windir%\system32\nslookup.exe" 'ProcessImageFileName 'Must be a fully qualified path, but can contain environment variables. arrNewApps(0,2) = NET_FW_SCOPE_ALL 'Scope - default is NET_FW_SCOPE_ALL arrNewApps(0,3) = True 'EnabledarrNewApps(1,0) = "Notepad" arrNewApps(1,1) = "%windir%\system32\notepad.exe" arrNewApps(1,2) = NET_FW_SCOPE_LOCAL_SUBNET arrNewApps(1,3) = TruearrNewApps(2,0) = "Calculator" arrNewApps(2,1) = "%windir%\system32\calc.exe" arrNewApps(2,2) = NET_FW_SCOPE_ALL arrNewApps(2,3) = TrueOn Error Resume Next 'Create the firewall manager object. Set objFwMgr = CreateObject("HNetCfg.FwMgr") If Err <> 0 Then WScript.Echo "Unable to connect to Windows Firewall." WScript.Quit End If 'Get the current profile for the local firewall policy. Set objProfile = objFwMgr.LocalPolicy.CurrentProfile Set colAuthorizedApps = objProfile.AuthorizedApplicationsWScript.Echo VbCrLf & "New authorized applications added:" For i = 0 To UBound(arrNewApps) 'Create an FwAuthorizedApplication object Set objAuthorizedApp = CreateObject("HNetCfg.FwAuthorizedApplication") objAuthorizedApp.Name = arrNewApps(i,0) objAuthorizedApp.ProcessImageFileName = arrNewApps(i, 1) objAuthorizedApp.Scope = arrNewApps(i, 2) objAuthorizedApp.Enabled = arrNewApps(i, 3) colAuthorizedApps.Add objAuthorizedApp If Err = 0 Then WScript.Echo VbCrLf & "Name: " & objAuthorizedApp.Name WScript.Echo "Process Image File: " & _ objAuthorizedApp.ProcessImageFileName WScript.Echo "Scope: " & objAuthorizedApp.Scope WScript.Echo "Enabled: " & objAuthorizedApp.Enabled Else WScript.Echo VbCrLf & "Unable to add application: " & arrNewApps(i,0) WScript.Echo "Error Number:" & Err.Number WScript.Echo "Source:" & Err.Source WScript.Echo "Description:" & Err.Description End If Err.Clear NextSet colAuthorizedApps = objProfile.AuthorizedApplications WScript.Echo VbCrLf & "All listed applications after operation:" For Each objApp In colAuthorizedApps WScript.Echo VbCrLf & "Name: " & objApp.Name WScript.Echo "Process Image File: " & objApp.ProcessImageFileName WScript.Echo "Scope: " & objApp.Scope WScript.Echo "Remote Address: " & objApp.RemoteAddress WScript.Echo "Enabled: " & objApp.Enabled Next