オートフィルタの結果をコピーして別シートに張り付けているのですができません。
？？？
.Range("A3:F" & maxRow).CurrentRegion.SpecialCells(xlVisible).Copy Workbooks("抽出用.xlsm").Worksheets("Sheet2").Range("A3")
みたいな感じです。
ブレイクポイントを設定して、フィルタずみのエクセル画面を見るときちんとフィルタされているのですが・・・。
手動でフィルタを行おうとすると、該当するコードがフィルタのチェックボックスに表示されていない・・・。
よく調べると、空白行がいくつかあり、そこまでの範囲しかフィルタリングされていなかった様子。しかし、VBA実行中に見ると、確かにフィルタされているのですがね。
空白行を削除したところ、きちんとコピーされるようになりました。
先日カーネルのアップデートを行いました。
が、起動しなくなるので、以前のカーネルで動かしています。
yum update でエラーが出ているのを解消したかったのです。
そして、再起動して無事起動するか確認。
Raidドライバの都合で、起動しなくなることがあるのです。
もちろん、前のバージョンで起動するように設定してあるので、
そのまま起動するはずですが。
無事起動。
？ httpd が自動起動していない。自動起動設定がされていなかったか？
!? radiusd が起動できずに失敗する。
時間が遅かったのであとは翌日です。
翌朝、systemctl start radiusd あっさりきどうしました。？？？？？
あああ、radiusdを起動しようとしたときに、mariadbが起動していなかったから起動できなかったのですね。ログを見ればわかったのかな。
内部のIPを外部のIPに変換するPATですが、
今回は内部ネットワークの別セグメントへの接続にPATを使用します。
192.168.0.0/24 と 192.168.40.0/24 の間にC841Mを設置し、
PATで192.168.2.※→ 192.168.40.1 に変換。
というのが当初の目論見でした。
□interface GigabitEther0/5 を 192.168.0.252 255.255.255.0 に設定。
configure terminal
interface Gi0/5
ip address 192.168.0.252 255.255.255.0
ip nat inside
no shutdwon
□ interface GigabitEther0/4 を 192.168.40.1 255.255.255.0に設定。
interface Gi0/4
ip address 192.168.40.1 255.255.255.0
ip nat outside
no shutdown
□access-list 1 に 192.168.0.0 のアクセス許可を設定
access-list 1 permit 192.168.0.0 0.0.0.255
ip nat inside source list 1 interface GigabitEther0/5 overload
以上の設定でOKなはずです。192.168.40.11 にホスト（Windows10)を設置して
ping を送信すると・・・返ってきました！
次にパケットの送信IPを確認するために、
ホストでWireShark を起動して、もう一度pingします。
すると、送信元のIPは、なんと192.168.0.252で変換されていない？？のでした。
しかし、設定前はping が通らなかったので、
全てが間違っているわけでもなさそうです。
show ip nat translationsで変換テーブルを表示しても表示されないので、
やはり変換されていないようです。
PATの設定を削除しても、なぜかpingは通り続け、まったく意味が分かりません。
-------------------------------------------------------------------------------------------------
意味が分からないので、基本から、ということで静的NATから試していくことにしました。
静的NAT → 動的NAT と試していきましたが、NATでは全く問題がありませんでした。
show ip nat translations すると
Inside globalは変換されたアドレス 192.168.40.※
Inside localはpingを送信したPCのIP 192.168.0.2
と表示されて変換されている様子がわかります。
さて、PATに戻ります。
--------------------------------------------------------------------------------------------------
PATをインターフェースに直接割り当てるのではなく、poolを作成し、そのアドレスに割り当てるように変更してみました。
① PAT変換後となる内部グローバルアドレスのプールを定義
ip nat pool TEST 192.168.40.7 192.168.40.7 netmask 255.255.255.0
② PAT変換対象となる送信元IPアドレスをACLで定義
no access-list 3 permit 192.168.0.0 0.0.0.255
③ 内部ローカルアドレスを定義する「ACL」と、外部グローバルアドレスとする「プール」を関連づけ
ip nat inside source list 3 pool TEST overload
④ どのインターフェースを「内部ネットワーク」または「外部ネットワーク」に指定するのかを定義
interface GigabitEther0/5
ip nat inside
interface GigabitEther0/4
ip nat outside
とこれでホスト側でWireSharkを起動したところ、見事に192.168.40.7 に送信元IPが変換されました。
show ip nat translations も予想道理になり、思った通りに動作させることができました。
なぜ、Interface GigabitEther0/5を直接に割り当てたときに、IPが変換されないのかは・・・謎です。
※ちなみにvlan10 を作成してそれのip nat inside にして、
interface GigabitEhter0/1 のswitchport access vlan 10
でGigabitEther0/1をvlan10に割り当ててみましたが、
Natテーブルを確認すると、192.168.0.2 → 192.168.2.252 という変換が行われて通信していました。？？？
ディスプレイを変えてみると映ることもあります。
ダメならば、ウィンドウズのタイトル画面が表示されたときに、電源長押しで電源を切ります。３回目の起動で自動修復モードに入ります。
詳細オプションのスタートアップ設定で再起動します。
低解像ビデオモードを選択すれば無事にディスプレイが表示されます。
さて、画面ロックのやり方がわかって喜んでいたのだが、
WindowsServer2016でテストしたところ、画面ロックが動作しない。
・・・しばらく試した末に、あきらめかけましたが、
頑張って調べました。
アクティブなユーザートークンを取得して、そのユーザーとして、LockWorkStationしているので、リモートデスクトップでユーザートークンが取得できずに、ロックできないという現象のようです。
１「WTSGetActiveConsoleSessionId」関数で物理コンソールのセッションIDを取得する。
２ 「WTSQueryUserToken」関数で取得したセッションIDのユーザートークンを主とする。
とやっているのですが、つまり物理コンソールでないとだめだということです。
リモートデスクトップではセッションIDを取得することができません。
代わりに、「WTSEnumerateSessions」
を使用してアクティブなリモートデスクトップのセッションIDを取得し、
そのセッションIDでWTSQueryUserToken 関数を使用して、ユーザートークンを取得するということをやります。
それでは、まず、WTSEnumerateSession を使えるように、クラスを作ります。
ここを参照しました。
http://hongliang.seesaa.net/article/7243455.html
Imports System Imports System.ComponentModel Imports System.Runtime.InteropServices Imports System.Text Public Class TerminalService Public Shared ReadOnly CurrentServerHandle As IntPtr = IntPtr.Zero Public Shared Function GetSessionInfos(ByVal server As IntPtr) As WTSSessionInfo() Dim buffer As IntPtr '返ってくる配列を受け取るポインタ。 Dim count As Integer '数。どちらも初期化不要。 '早速実行。失敗したら例外。 If Not (Win32Api.WTSEnumerateSessions(server, 0, 1, buffer, count)) Then Throw New Win32Exception(Marshal.GetLastWin32Error()) End If 'バッファが空ならセッション無しと言うこと。 If buffer.Equals(IntPtr.Zero) Then Return New WTSSessionInfo() {} End If Dim infos(count - 1) As WTSSessionInfo 'WTSSessionInfo構造体のサイズを取得。 Dim size As Integer = Marshal.SizeOf(GetType(WTSSessionInfo)) Try Dim i As Integer For i = 0 To count - 1 'ポインタを、sizeずつずらしていく。 Dim current As IntPtr = New IntPtr(buffer.ToInt64() + (size * i)) 'ポインタから構造体に変換して配列に格納。 infos(i) = CType(Marshal.PtrToStructure(current, GetType(WTSSessionInfo)), WTSSessionInfo) Next Return infos Catch ex As Exception Throw New InvalidOperationException( "バッファの読み出し中にエラーが発生しました。", ex) '確実に後始末 Finally Win32Api.WTSFreeMemory(buffer) End Try End Function Public Shared Function GetProcessInfos(ByVal server As IntPtr) _ As WTSProcessInfo() 'やってることはGetSessionInfosと同じ。使う関数と構造体が違うだけ。 Dim buffer As IntPtr Dim count As Integer If Not (Win32Api.WTSEnumerateProcesses(server, 0, 1, buffer, count)) Then Throw New Win32Exception(Marshal.GetLastWin32Error()) End If If buffer.Equals(IntPtr.Zero) Then Return New WTSProcessInfo() {} End If Dim infos(count - 1) As WTSProcessInfo Dim size As Integer = Marshal.SizeOf(GetType(WTSProcessInfo)) Try Dim i As Integer For i = 0 To count - 1 Dim current As IntPtr = New IntPtr(buffer.ToInt64() + (size * i)) infos(i) = CType(Marshal.PtrToStructure(current, GetType(WTSProcessInfo)), WTSProcessInfo) Next Return infos Catch ex As Exception Throw New InvalidOperationException( "バッファの読み出し中にエラーが発生しました。", ex) Finally Win32Api.WTSFreeMemory(buffer) End Try End Function <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Public Structure WTSSessionInfo Public SessionId As Integer Public WinStationName As String Public State As ConnectState End Structure Public Enum ConnectState Active = &H0 Connected = &H1 ConnectQuery = &H2 Shadow = &H3 Disconnected = &H4 Idle = &H5 Listen = &H6 Reset = &H7 Down = &H8 Init = &H9 End Enum <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Public Structure WTSProcessInfo Public SessionId As Integer Public ProcessId As Integer Public ProcessName As String Public UserSid As IntPtr End Structure Private NotInheritable Class Win32Api Declare Auto Function WTSOpenServer Lib "wtsapi32.dll" ( ByVal name As String) As IntPtr Declare Auto Function WTSEnumerateSessions Lib "wtsapi32.dll" ( ByVal server As IntPtr, ByVal reserved As Integer, ByVal version As Integer, ByRef infos As IntPtr, ByRef count As Integer) As Boolean Declare Auto Function WTSEnumerateProcesses Lib "wtsapi32.dll" ( ByVal server As IntPtr, ByVal reserved As Integer, ByVal version As Integer, ByRef infos As IntPtr, ByRef count As Integer) As Boolean Declare Auto Sub WTSFreeMemory Lib "wtsapi32.dll" (ByVal memory As IntPtr) End Class End Class
で、これをこう使います。
Dim UserTokenHandle As IntPtr = IntPtr.Zero TerminalService.GetProcessInfos(UserTokenHandle) Dim infos As TerminalService.WTSSessionInfo() = TerminalService.GetSessionInfos(UserTokenHandle) Dim activeID As UInteger For Each inf As TerminalService.WTSSessionInfo In infos If inf.State = TerminalService.ConnectState.Active Then activeID = inf.SessionId End If Next WTSQueryUserToken(activeID, UserTokenHandle) Dim ProcInfo As New PROCESS_INFORMATION Dim StartInfo As New STARTUPINFOW StartInfo.cb = CUInt(Runtime.InteropServices.Marshal.SizeOf(StartInfo)) Dim cmdline As New System.Text.StringBuilder cmdline.Append("rundll32.exe user32.dll,LockWorkStation") CreateProcessAsUser(UserTokenHandle, Nothing, cmdline, IntPtr.Zero, IntPtr.Zero, False, 0, IntPtr.Zero, Nothing, StartInfo, ProcInfo)
これで 動作しました。
ちなみに、コマンドプロンプトから query session を実行すると、現在のセッションの状態を表示することができます。これを見て、セッションが少しわかったような気がしました。
