八
30
0

设置IE与Firefox浏览器的远程DNS解析功能


firefox:
URL地址栏输入 about:config
在 过滤器 一栏，输入 network.proxy.socks_remote_dns
然后双击 network.proxy.socks_remote_dns ，使“值”为True

IE:
修改注册表,路径为 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Linkage
双击右侧的Bind，将第二行的\Device\NdisWanIp，剪切并粘贴到第一行。
嫌麻烦可以把下列代码保存为IE_DNS.vbs，然后双击，重启IE浏览器，
也可借助SocksCap或FreeCap等工具。

  1. Const HKLM = &H80000002
  2. sComputer = "."   ' use "." for local computer
  3. Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
  4.          & sComputer & "\root\default:StdRegProv")
  5. sKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Linkage"
  6. sValueName = "Bind"
  7. oReg.GetMultiStringValue HKLM, sKeyPath, sValueName, arValues
  8. arValuesNew = Array()
  9. For i = 0 To UBound(arValues)
  10.    If i = 0 Then
  11.       If LCase(arValues(i)) = "\device\ndiswanip" Then
  12.          Exit For
  13.       Else
  14.          ReDim Preserve arValuesNew(0)
  15.          arValuesNew(0) = "\Device\NdisWanIp"
  16.       End If
  17.    End If
  18.    If LCase(arValues(i)) <> "\device\ndiswanip" Then
  19.       iCountNew = UBound(arValuesNew) + 1
  20.       ReDim Preserve arValuesNew(iCountNew)
  21.       arValuesNew(iCountNew) = arValues(i)
  22.    End If
  23. Next
  24. If UBound(arValuesNew) > -1 Then
  25.    oReg.SetMultiStringValue HKLM, sKeyPath, sValueName, arValuesNew
  26. End If
八
24
1

vb发送Gmail邮件


使用vb来发送Gmail邮件,配合windows2003的performance来做进程监控,很实用也很方便,进程控制也可以,脚本的主要作用是发送邮件通知,触发动作可由performance来完成.

  1. Set iMsg = CreateObject("CDO.Message")
  2. Set iConf = CreateObject("CDO.Configuration")
  3. Set Flds = iConf.Fields
  4. schema = "http://schemas.microsoft.com/cdo/configuration/"
  5. Flds.Item(schema & "sendusing") = 2
  6. Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 
  7. Flds.Item(schema & "smtpserverport") = 465
  8. Flds.Item(schema & "smtpauthenticate") = 1
  9. Flds.Item(schema & "sendusername") = "YourEmailAddress"
  10. Flds.Item(schema & "sendpassword") =  "YourPassWord"
  11. Flds.Item(schema & "smtpusessl") = 1
  12. Flds.Update
  13. With iMsg
  14. .To = "Recipients"
  15. .From = "YourName <YourEmailAddress>"
  16. .Subject = "Email Title"
  17. .HTMLBody = "YourMessageGoesHere"
  18. .Sender = "YourName"
  19. .Organization = "YourName"
  20. .ReplyTo = "Recipients"
  21. Set .Configuration = iConf
  22. SendEmailGmail = .Send
  23. End With
  24.  
  25. set iMsg = nothing
  26. set iConf = nothing
  27. set Flds = nothing
七
29
0

windows批处理批量添加IP


使用BAT脚本批量添加IP，省去手工输入的时间。

  1. @echo off
  2. for /l %%a in (2,1,254) do netsh interface ip add address name="Local Area Connection" addr=1.1.1.%%a mask=255.255.255.248
五
17
0

windows2003无法安装mssql2000


windows2003卸载sql2000，再安装的时候报错，以下为解决办法：

  1. 1 重命名C:\Program Files\ 底下的Microsoft SQL Server文件夹
  2. 如： Microsoft SQL Server_bak
  3. 2 查找以下注册表键值并删除
  4. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer
  5. HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSDTC
  6. 如：在MSSQLServer上右键,点击删除
  7. 3 重启再次安装
五
06
0

windows2003开启防火墙后 ftp一直卡住


公司几台windows2003的服务器，都是企业版，打开系统自带的防火墙，客户反映ftp上来经常会卡住。
解决办法是把ftp设置为被动模式并且指定端口
两种方法，我用第一种实现了，因为做安全的时候把wshom.ocx跟shell32.dll都拿掉了

  1. 1)
  2. 停止iis跟ftp # iisreset /stop
  3. C:\windows\system32\inesrv\MetaBase.xml
  4. CTRL+F 查找 MSDOSDirOutput
  5. 在下面的MaxConnections="100000" 添加一行
  6. PassivePortRange="40000-40020" #指定端口
  7. 启动IIS # iisreset /start
  8. 然后在防火墙把这些端口打开，微软默认是1024-65535，这样很不安全。
  9.  
  10. 2)
  11. c:\Inetpub\adminiscripts\adsutil.vbs set /MSFTPSVC/PassivePortRange "40000-40020"

velikan.net里的这篇文章讲得很详细

5 12345»