RemortApp

RemoteApp の動作について
・「RDPShell」が起動している

    ''' 
    ''' RemoteAppで起動しているか判定
    ''' 
    ''' 
    ''' 
    Public Function IsRemoteApp() As Boolean
        Try
            Using mos As New System.Management.ManagementObjectSearcher( _
                String.Format( _
                    "SELECT * FROM Win32_Process WHERE Name LIKE 'RDPSHELL.EXE'"))
                Using moc As System.Management.ManagementObjectCollection = mos.[Get]()
                    For Each mo As System.Management.ManagementObject In moc
                        Using mo
                            'プロセスIDを取得する
                            Dim processId As Integer = Convert.ToInt32(mo("ProcessId"))
                            Dim name As String = mo("Name").ToString()
                            Try
                                Dim methodName(1) As String
                                mo.InvokeMethod("GetOwner", methodName)
                                Dim user As String = methodName(0)
                                Dim domain As String = methodName(1)
                                If user = Nothing Then user = ""
                                If user.ToUpper() = System.Environment.UserName.ToUpper() Then
                                    Return True
                                End If
                            Catch ex As Exception
                            End Try
                        End Using
                    Next
                End Using
            End Using
        Catch ex As Exception
        End Try
        Return False
    End Function
    ''' 
    ''' RemoteAppで起動しているか判定
    ''' 
    ''' 
    ''' 
    Public Function IsRemoteApp() As Boolean
        Try
            Dim mc As New System.Management.ManagementClass("Win32_Process")
            Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()
            Dim mo As System.Management.ManagementObject
            For Each mo In moc
                Dim id As String = mo("ProcessId").ToString()
                Dim name As String = mo("Name").ToString()
                Try
                    If name.ToUpper() = "RDPSHELL.EXE" Then
                        Dim methodName(1) As String
                        mo.InvokeMethod("GetOwner", methodName)
                        Dim user As String = methodName(0)
                        Dim domain As String = methodName(1)
                        If user = Nothing Then user = ""
                        If user.ToUpper() = System.Environment.UserName.ToUpper() Then
                            Return True
                        End If
                    End If
                Catch ex As Exception
                End Try
            Next mo
        Catch ex As Exception
        End Try
        Return False
    End Function

php

PHPでファイルをダウンロードする方法とよくあるエラー

PHPまとめ – ヘッダー
・生のHTTPヘッダーを送信する
・ステータスコードを指定
・別のページに飛ばす

PDF(等)のファイルをブラウザで開かせずにダウンロード形式にさせる。

PHPで画像を動的に作成

PHPでJSONを出力して、JavaScriptで取得する方法

PHPで画像を動的に出力する際にキャッシュさせない

○エラーが表示されない時、ソースの先頭に以下を追加

error_reporting(E_ALL);
ini_set('display_errors', TRUE);

SqlServer デッドロック 調査

第 3 章 トランザクション分離レベルの選択とデッドロックの問題~ SQL Server 2000 における Web アプリケーション開発 ~

デッドロックのサンプルクエリ

SQL トレーススクリプトの作成、実行 (SQL Server 2005 ~ 2014)

SQLServerのテーブルロック状態を取得するSQL

SQL Server でのロック・タイムアウト
・良さげ

SQL Serverで「デッドロック」を回避する
・「sp_lock_detail」ストアドプロシージャ

sp_lock_detail
・masterに作成するべし

弥生

○他のPCのSqlServerのデータをバックアップしようとすると、「エラー 67 ネットワーク名が見つかりません」
弥生会計のバックアップ時エラー
共有フォルダ―「C:\ProgramData\Yayoi\Backup」
共有名「YAccBackup$」
・「\\<PC名>\YAccBackup$」でアクセスした時、ID/PWを聞かれないようにしておく
参考:Windows 7 Home Premium で、パスワード無しの共有フォルダ