channel information will be truncated by core show channels command
use concise option to retrieve full channel information
core show channels concise
add user defined variable for agi
Set: variable=xxxx
2012年5月31日 星期四
name resolving issue under vpn connection
relate to dns search order.
http://support.microsoft.com/kb/311218
Const HKLM = &H80000002
sComputer = "."
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& sComputer & "\root\default:StdRegProv")
sKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Linkage"
sValueName = "Bind"
oReg.GetMultiStringValue HKLM, sKeyPath, sValueName, arValues
arValuesNew = Array()
'patch registry
If UCase(arValues(0)) <> UCase("\device\ndiswanip") Then
ReDim Preserve arValuesNew(0)
arValuesNew(0) = "\Device\NdisWanIp"
For Each objarValues in arValues
If UCase(objarValues) <> UCase("\device\ndiswanip") Then
ReDim Preserve arValuesNew(UBound(arValuesNew)+1)
arValuesNew(UBound(arValuesNew)) = objarValues
End If
Next
End If
If UBound(arValuesNew) <> -1 Then
oReg.SetMultiStringValue HKLM, sKeyPath, sValueName, arValuesNew
End If
http://support.microsoft.com/kb/311218
Const HKLM = &H80000002
sComputer = "."
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& sComputer & "\root\default:StdRegProv")
sKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Linkage"
sValueName = "Bind"
oReg.GetMultiStringValue HKLM, sKeyPath, sValueName, arValues
arValuesNew = Array()
'patch registry
If UCase(arValues(0)) <> UCase("\device\ndiswanip") Then
ReDim Preserve arValuesNew(0)
arValuesNew(0) = "\Device\NdisWanIp"
For Each objarValues in arValues
If UCase(objarValues) <> UCase("\device\ndiswanip") Then
ReDim Preserve arValuesNew(UBound(arValuesNew)+1)
arValuesNew(UBound(arValuesNew)) = objarValues
End If
Next
End If
If UBound(arValuesNew) <> -1 Then
oReg.SetMultiStringValue HKLM, sKeyPath, sValueName, arValuesNew
End If
2012年5月23日 星期三
2012年5月16日 星期三
2012年5月14日 星期一
run shell command and then display the result on web through asp.net via vb.net
Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo
psi.FileName = "ipconfig.exe"
psi.Arguments = " /all"
psi.UseShellExecute = False
psi.RedirectStandardInput = True
psi.RedirectStandardOutput = True
Dim ps As System.Diagnostics.Process = New System.Diagnostics.Process
ps.StartInfo = psi
ps.Start()
Dim sr As StreamReader = ps.StandardOutput
Dim aa As String
While (Not sr.EndOfStream)
aa = sr.ReadLine
Response.Write(aa)
Response.Write("
")
End While
ps.Dispose()
2012年3月5日 星期一
specify specific rsync binary
I have 64bits rsync 2.6.9 installed in my environment. When remote site triggers file transfer through rsync to my 32 bits platform, system will complain about rsync binary execution error. The reason is the search order in my environment setup. System looks for rsync binary from /usr/local/bin/ first and then /usr/bin/. In order to get this resolve, you have to specify the rsync path when running rsync command.
2012年3月1日 星期四
session stalled when transfer files between two sites with unstable internet connection
net.core.rmem_default = 524288
net.core.rmem_max = 524288
net.core.wmem_default = 524288
net.core.wmem_max = 524288
net.ipv4.tcp_wmem = 4096 87380 524288
net.ipv4.tcp_rmem = 4096 87380 524288
net.ipv4.tcp_mem = 524288 524288 524288
net.ipv4.tcp_rfc1337 = 1
net.ipv4.ip_no_pmtu_disc = 0
net.ipv4.tcp_sack = 1
net.ipv4.tcp_fack = 1
net.ipv4.tcp_window_scaling = 1
net.ipv4.tcp_timestamps = 1
net.ipv4.tcp_ecn = 0
net.ipv4.route.flush = 1
ref: http://ubuntuforums.org/showthread.php?t=891695
net.core.rmem_max = 524288
net.core.wmem_default = 524288
net.core.wmem_max = 524288
net.ipv4.tcp_wmem = 4096 87380 524288
net.ipv4.tcp_rmem = 4096 87380 524288
net.ipv4.tcp_mem = 524288 524288 524288
net.ipv4.tcp_rfc1337 = 1
net.ipv4.ip_no_pmtu_disc = 0
net.ipv4.tcp_sack = 1
net.ipv4.tcp_fack = 1
net.ipv4.tcp_window_scaling = 1
net.ipv4.tcp_timestamps = 1
net.ipv4.tcp_ecn = 0
net.ipv4.route.flush = 1
ref: http://ubuntuforums.org/showthread.php?t=891695
訂閱:
文章 (Atom)