nKB

PowerShellでコンピュータ名を変更する

Win32_ComputerSystemクラスのrenameメソッドを使う

PS C:\>(Get-WmiObject -Class Win32_ComputerSystem).Rename("Computer Name")
PS C:\> Restart-Computer

PowerShellメモ

ファイル一覧

> Get-ChildrenItem <Directory>


リモート実行には設定が必要

初期設定

ローカルに保存されているスクリプトファイルの実効を許可する
ポリシーを「RemoteSigned」にする

PS C:\> Set-ExecutionPolicy RemoteSigned

実行ポリシーの変更
実行ポリシーは、信頼されていないスクリプトからの保護に役立ちます。実行ポリシーを変更すると、
about_Execution_Policies のヘルプ トピック (http://go.microsoft.com/fwlink/?LinkID=135170)
で説明されているセキュリティ上の危険にさらされる可能性があります。実行ポリシーを変更しますか?
[Y] はい(Y)  [A] すべて続行(A)  [N] いいえ(N)  [L] すべて無視(L)  [S] 中断(S)  [?] ヘルプ
 (既定値は "N"): y

実行ポリシーの確認

PS C:\> Get-ExecutionPolicy
RemoteSigned

コメントの書き方
1行だけコメントにする場合

# コメント

複数行をまとめてコメントにする場合

<# コメント1
コメント2
コメント3 #>
広告を非表示にする

Access VBAメモ

VBAのメモ

ボタンにVBAを割り当てる

デザインビューでボタンを右クリック→イベントのビルド

サブフォームを更新する

Forms("<フォーム名>").Controls("<サブフォーム名>").Form.Requery

フォームの非連結のテキストボックスに入力した値をテーブルに反映させる

Private Sub テーブル更新()

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("<テーブル名>", dbOpenTable)
With Rst
.AddNew
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Fields("<フィールド名>") = Me!<テキストボックス名>
.Update
End With

Rst.Close
Set Rst = Nothing

End Sub

テキストボックスの値を初期化する

'初期化<テキストボックス名>.Value = Null

広告を非表示にする