2011-01-31

Administrators 権限を与えたユーザーで、DOSのバッチやPowerShellを実行するには

WindowsServer2008での話です。

BuiltinのAdministratorユーザー以外に

Administratorsグループに属するユーザーを追加し、

そのユーザーでDOSのバッチやPowerShellなど、CUIベースの操作をしようとすると

（例えば、サービスの再起動など。）

「システムエラー 5 が発生しました。」「Access is denied.」

などが表示されます。

これは、ユーザーアカウント制御 (UAC; User Account Control)が邪魔をしているため、

コマンドから実行できません。

GUIベースでは問題なく実行できます。

バッチでサービス起動等を実行するには、

バッチ実行ユーザーのUACを外してあげる必要があります。

UACを外す場合、サーバ再起動が必要になります。

2011-01-30

PowerShellでSQLServerAgentのジョブを実行するには

PowerShell SQLServer

SQLServerの Sqlpsツールを使用してSQLServerAgentのジョブを起動します。

【実行環境】

実行環境は、下記を前提としています。

SQLServer2008 R2　が動作しているWindowsServer上で実行します。

SQLServer Agentサービスが起動されていること。

【事前準備】

sqlps　は、SQLServerにWindows認証で接続するため

Windowsにログイン中のユーザーをSQLServerにWindows認証ユーザーで登録します。

登録ユーザーには、サーバーロール　public,sysadminを割り当てます。

【実行手順】

コマンドプロンプトやファイル名を指定して実行ダイヤログから

sqlps

と入力します

sqlps の画面で下記コマンドを入力するとSQLServerAgentのジョブを起動することができます。

cd sql\マシン名\インスタンス名\JobServer\jobs

dir | where-object{$_.Name -eq “ジョブ名”} | foreach-object{$_.Start()}

例

マシン名：PC1

インスタンス名：DEFAULT

ジョブ名：Test.Subplan_1

の実行コマンド例です。

cd sql\PC1\DEFAULT\JobServer\jobs

dir | where-object{$_.Name -eq “Test.Subplan_1”} | foreach-object{$_.Start()}

2011-01-22

お風呂テレビ

家電

お風呂テレビを購入しました。
TwinBirdのVD-J713CWという機種です。
画面サイズは7インチです。

TWINBIRD ワンセグ付防水DVDプレーヤーセラミックホワイト VD-J713CW

出版社/メーカー: ツインバード工業
発売日: 2008/08/08
メディア: エレクトロニクス
購入: 10人クリック: 42回
この商品を含むブログ (14件) を見る

お風呂には、電波が届かないため、
防水のアンテナを購入しセットしたところ
写りました。
お風呂内でテレビアンテナを伸ばせば
電波が受信できます。

Logitec ワンセグアンテナ防水タイプ 3m+延長5m お風呂で使えるIPX5準 LDT-ANT2C5WP

出版社/メーカー: ロジテック
発売日: 2010/02/01
メディア: エレクトロニクス
クリック: 1回
この商品を含むブログ (2件) を見る

2011-01-22

PowerShell サービスを起動するバッチ

PowerShell

PowerShellでWindwosのサービスを起動するバッチを作成しました。

サービス一覧を取得するには

Get-Service

と入力するとサービスの一覧を取得することができます。

下記のバッチは、"Netlogon"サービスが起動していない場合は、
起動させるというものです。

#PowerShell
#NetLogonServiceを起動する

$ServiceName = 'Netlogon'

#Get-Service
if (Get-Service $ServiceName | Where-Object {$_.status -eq "stopped"})
    #サービスが止まっている場合は、サービスを起動します。
    {Start-Service $ServiceName}
else
    {"動いています。"}

2011-01-22

リモートデスクトップサービス

WindowsServer2008 R2

Windows2008ServerR2のリモートデスクトップサービスでクライアントからサーバーに接続すると、
「ライセンスプロトコルにエラーが発生したため、リモートコンピュータによってセッションが切断されました。リモートコンピュータへの接続をもう一度実行するか、またはサーバー管理者に問い合わせてください。」
というメッセージが表示されました。
解決方法をリモートデスクトップのライセンスのエラーメッセージに関するトラブルシューティング
を参考に調べていくと
接続できない原因は、

ターミナルサーバーライセンスサービスを有効にしていなかったため。
ターミナルサーバーライセンスモードを設定していなかったため。

でした。
ターミナルサーバーライセンスサービスを有効にして
ターミナルサーバーライセンスモードを接続ユーザー数モードで設定したところ
無事、クライアントから接続することができました。

2011-01-10

VB2008 ラムダ式サンプル

VB2008のラムダ式を少し覚えました。
下記はサンプルソースです。
今まで、ForEach Nextステートメントなどを使用して複数行で書いていたソースが
１行で表現できます。

    'Whereメソッド サンプルソース
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = str.Where(Function(s) s = "いちご")
        MsgBox(Name(0)) '配列で返します。　'"いちご"　が表示されます。
    End Sub
    'Findメソッド サンプルソース
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = Array.Find(str, Function(s) s = "いちご")
        MsgBox(Name)    '見つかったはじめの1件目の値を返します。　'"いちご"　が表示されます。
    End Sub
    'Existsメソッド サンプルソース
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str() As String = {"レモン", "りんご", "いちご", "バナナ", "みかん"}
        Dim Name = Array.Exists(str, Function(s) s = "いちご")
        MsgBox(Name)    '配列に指定された値が含まれるか判定します。　'"True"　が表示されます。
    End Sub