2026年7月5日日曜日

cd /d "%~dp0"

 管理者権限で .cmd を実行すると「ファイルが見つかりません」と表示される場合、原因の多くはカレントディレクトリが変わることです。


バッチの先頭に次を追加します。

cd /d "%~dp0"

%~dp0 は、実行中の .cmd ファイルがあるフォルダーを表します。


%~dp0 の分解


たとえば E:\Tool\Install.cmd を実行した場合:

変数                    結果

%0                        E:\Tool\Install.cmd

%~d0                    E: (ドライブ)

%~p0                    \Tool\ (フォルダー)

%~n0                    Install (名前)

%~x0                    .cmd (拡張子)

%~dp0                E:\Tool\ (最もよく使う)

%~nx0                Install.cmd

%~f0                    E:\Tool\Install.cmd


記述 意味

%0 実行中のバッチファイル名

%~f0 バッチファイルのフルパス

%~d0 ドライブレターのみ

%~p0 フォルダー部分のみ

%~dp0 ドライブ+フォルダー(最重要)

%~n0 ファイル名のみ(拡張子なし)

%~x0 拡張子のみ

%~nx0 ファイル名+拡張子

%CD% 現在の作業フォルダー

%TEMP% 一時フォルダー

%USERNAME% ログオンユーザー名

%COMPUTERNAME% PC名


----------------------------------------------------------------------

@echo off

cd /d "%~dp0"

rem フォルダがなければ作成

if not exist "%COMPUTERNAME%" (

    mkdir "%COMPUTERNAME%"

)

rem ドライバーをエクスポート

pnputil /export-driver * "%COMPUTERNAME%"

pause

rem ドライバーをインポート

pnputil /add-driver "%COMPUTERNAME%\*.inf" /subdirs /install

pause





2025年11月27日木曜日

教程,入門資料

 TkinterでGUIを作ろう

https://cauldron.sakura.ne.jp/thinkpython/thinkpython/Tkinter.pdf


Python3入門  Kivy による GUI アプリケーション開発,サウンド入出力,ウェブスクレイピング

http://www.k-techlabo.org/www_python/python_main.pdf


Python教程

https://liaoxuefeng.com/books/python/introduction/index.html


極・楽 python 講座

https://www.isc.meiji.ac.jp/~ri03037/ICTappli2/step04.html


JavaScript入門

http://www.k-techlabo.org/www_js/javascript_main.pdf



2025年11月10日月曜日

sfc /scannow 「一部の破損ファイルは修復できなかった」とある場合

 sfc /scannow 「一部の破損ファイルは修復できなかった」とある場合

「一部の破損ファイルは修復できなかった」とある場合、次の手順で修復を進めることができます。順番にやると高確率で直ります。

 DISM コマンドを実行

sfc では修復できないときは、Windows のコンポーネントストア自体が壊れていることが多いです。

次の手順で DISM(Deployment Image Servicing and Management)ツールを使って修復します。

管理者権限のコマンドプロンプト を開きます。

(スタート → 「cmd」を検索 → 「管理者として実行」)

次の3つを順番に実行してください:

DISM /Online /Cleanup-Image /CheckHealth

DISM /Online /Cleanup-Image /ScanHealth

DISM /Online /Cleanup-Image /RestoreHealth

終わったらもう一度以下を実行します:

sfc /scannow

→ 「破損ファイルは見つかりませんでした」と出ればOKです。








END

2025年6月18日水曜日

Windowsでコマンドラインからポート443をファイアウォールで開放する方法

 netsh advfirewall firewall add rule name="Allow TCP 443" dir=in action=allow protocol=TCP localport=443

このコマンドは:
ルール名:Allow TCP 443
通信方向:受信 (in)
アクション:許可 (allow)
プロトコル:TCP
ポート:443
を許可します。


netsh で 443ポート開放ルールの確認方法
netsh advfirewall firewall show rule name=all | findstr "443"




2025年5月8日木曜日

DISM イメージ復元に関するコマンドの記録

  Hyper-V Mount CMD

wpeutil InitializeNetwork

:netlink

net use n: \\172.23.176.1\Hyper-V inter2012 /USER:inter

if %errorlevel% gtr 1(

goto netlink

)

net time \\172.23.176.1 /set /y

diskpart /s n:\CreatePartitions-UEFI.txt

dism /Apply-Image /ImageFile:n:\Win11Hyper-v.wim /Index:1 /ApplyDir:W:

W:\Windows\System32\bcdboot W:\Windows /s S:

start ms-cxh:localonly

rem UUID(ユニバーサリー・ユニーク・アイデンティファイア)

wmic csproduct get UUID

rem SID(セキュリティ・アイデンティファイア)

whoami /user


2025年4月26日土曜日

ms-cxh:localonly コマンド



start ms-cxh:localonly

windows11 ローカルカウント作成してWindowsを利用する方法です.

2024年3月25日月曜日

Excel VBA セルカーソルの移動

 Excel VBA セルカーソルの移動

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print "Worksheet_SelectionChange(Byval Target As Range)"
    Dim returnLine As Integer
    Dim sline As Integer
    Dim eline As Integer
    Dim lastXup As Long
    sline = 3
    eline = 4
    '日付の入力
    If Cells(Target.Row, 3) <> "" Then
        dbCheck Target
    Else
        'Cells(Target.Row, 7) = ""
    End If
    'カーソルの移動
    If Target.Column > eline - 1 Then
        Cells(Target.Row + 1, sline).Activate
    End If
    If ActiveCell.Value = "" Then
        lastXup = Cells(Rows.Count, 3).End(xlUp).Row
        Cells(lastXup + 1, sline).Activate
    End If
End Sub