unote 書けば書くほどに

RemoteDesktopConnection

Sub RemoteDesktopConnection()
Dim shell As Object
Dim address As String

' リモートデスクトップのアドレスを入力してください
address = "192.168.1.1" ' 例としてIPアドレスを指定

Set shell = CreateObject("WScript.Shell")

' リモートデスクトップ接続を開始するコマンドを実行
shell.Run "mstsc /v:" & address, 1, False
End Sub


Sub RemoteDesktopConnectionWithPassword()
Dim shell As Object
Dim address As String
Dim username As String
Dim password As String
Dim cmd As String

' リモートデスクトップのアドレスとユーザー名、パスワードを入力してください
address = "192.168.1.1" ' 例としてIPアドレスを指定
username = "username" ' リモートデスクトップのユーザー名
password = "password" ' リモートデスクトップのパスワード

' コマンドプロンプトに渡すコマンドを作成
cmd = "cmd /c echo " & password & " | mstsc /v:" & address & " /f /admin /console /restricted"

Set shell = CreateObject("WScript.Shell")

' コマンドプロンプトでリモートデスクトップ接続を開始するコマンドを実行
shell.Run cmd, 1, True
End Sub

moveFile

@echo off
set sourceFolder=C:\testA
set destFolder=C:\testB
set searchString=ABC

if not exist "%sourceFolder%" (
echo Source folder does not exist.
exit /b
)

if not exist "%destFolder%" (
echo Destination folder does not exist.
exit /b
)

for %%F in ("%sourceFolder%\*") do (
echo %%~nF | find /i "%searchString%" >nul
if not errorlevel 1 (
move "%%F" "%destFolder%"
echo Moved "%%F" to "%destFolder%"
)
)

echo Process complete.

timeout 3
rem pause

ログ

@echo off

set "folder_path=C:\Users\itino\Desktop\test"
set "file_path=%folder_path%\ログ.txt"

rem ファイルが存在する場合は削除する
if exist "%file_path%" del "%file_path%"

rem 現在の日時を取得してフォーマットする
set "timestamp=%DATE% %TIME%"

rem 日時と「実行完了」と書かれたログ.txtを作成する
echo %timestamp% 実行完了 > "%file_path%"

echo "ログ.txt を作成し、日時と実行完了を書き込みました。"

timeout 5
rem pause

20240409

20分

１．前期プランの見直し→現実的？
２．補助機能について、計画
３．注意喚起

遠慮と配慮を意識することを再認識

・きちんと傾聴できていますか？
・自分の思いだけを話していませんか？

『遠慮』とは、他人の気持ちや状況を考慮して、自らの行動や発言を控えること。
『配慮』とは、他人の立場や状況を理解しその上で最良の行動をとることを意味します。

新入社員が入ってきます。みんな、先輩として見られます
それだけでなく、外部の人も見ています。その印象は、「評価」につながります。

嫌な話をしていると、事実があります。
立場上指導が必要なことがあるんだなと感じたことです。
自分が感じることおよび外部からの意見、半々です。

「なんだ？」という方がいれば、詳しい話があります。