ebibibi

<?xml version="1.0" encoding="utf-8"?>
<unattend xmlns="urn:schemas-microsoft-com:unattend">
    <settings pass="oobeSystem">
        <component name="Microsoft-Windows-International-Core" processorArchitecture="x86" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <InputLocale>ja-JP</InputLocale>
            <SystemLocale>ja-JP</SystemLocale>
            <UILanguage>ja-JP</UILanguage>
            <UserLocale>ja-JP</UserLocale>
        </component>
    </settings>

ebibibi

<?xml version="1.0" encoding="utf-8"?>
<unattend xmlns="urn:schemas-microsoft-com:unattend">
    <settings pass="oobeSystem">
        <component name="Microsoft-Windows-International-Core" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <InputLocale>ja-JP</InputLocale>
            <SystemLocale>ja-JP</SystemLocale>
            <UILanguage>ja-JP</UILanguage>
            <UserLocale>ja-JP</UserLocale>
        </component>
    </settings>

ebibibi

Param(
    $DefaultUserName = "",
    $DefaultPassword = "",
    $DefaultDomainName = ""
)

$RegLogonKey = "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

Set-itemproperty -path $RegLogonKey -name "AutoAdminLogon" -value 1
Set-itemproperty -path $RegLogonKey -name "DefaultUsername" -value $DefaultUserName

ebibibi

#第一引数にスクリプト名をフルパスで記述
#第二引数以降にスクリプトへの引数(複数指定可能)

$RegRunOnceKey = "HKLM:\Software\Microsoft\Windows\CurrentVersion\RunOnce"
$powershell = (Join-Path $env:windir "system32\WindowsPowerShell\v1.0\powershell.exe")
$restartKey = "Restart-And-RunOnce"

$script = $args[0]
$newArgs = ""
for($i = 1; $i -le $args.Length; $i++)

ebibibi

#--------------------------------------------------------------------------------------------------
# デジカメ、スマートフォンなどで撮影した画像、動画ファイルをリネーム後月ごとのフォルダに移動するスクリプトです。
# 以下のようにリネームします。exif情報があればそれを使って。無ければファイルの作成日時を使います。
#   yyyy.mm.dd-hh.mm.ss + オリジナルの拡張子
# リネーム後、指定されたフォルダ内にyyyymmフォルダを作成し、その中に移動します。
# 移動先に同一名称のファイルがあり、同一内容(MD5ハッシュで判断)であれば移動元ファイルを削除します。
#
# -SourceDir      移動元ディレクトリを入力します。再帰的にサブディレクトリも対象になります。
# -DestinationDir 移動先ディレクトリを入力します。このディレクトリの下に月ごとのディレクトリが作成され、そこに移動されます。
# -$Filter        対象とするファイルをフィルタで指定します。Get-ChildItemのFilterパラメータにそのまま渡されます。

ebibibi

@ECHO off 

VER | find "95" > nul 
IF not errorlevel 1 GOTO Win_95

VER | find "98" > nul 
IF not errorlevel 1 GOTO Win_98

VER | find "NT" > nul 
IF not errorlevel 1 GOTO Win_NT

ebibibi

$a = New-Object -comobject cpapplet.cpappletmgr
$a.GetClientActions() |% {$_.PerformAction()}

$b = New-Object –COMObject CPApplet.cpappletmgr
$b.GetClientActions() |% {$_.PerformAction()}

ebibibi

Set cpApplet = CreateObject("CPAPPLET.CPAppletMgr")
Set actions = cpApplet.GetClientActions
For Each action In actions
        action.PerformAction 
        'WScript.Echo "Performed '" & action.name & "'"
Next

ebibibi

sc query CcmExec |findstr /I "SERVICE_NAME: CcmExec"
if %errorlevel%==0 goto Installed
:Not_Installed
echo sccm client is not installed.
goto end

:Installed
echo sccm client is installed.
goto end

ebibibi

Sub ImageSizeFit()
    On Error Resume Next
    
    w = 720
    h = 768
    shapeNo = 3
    
    For i = 56 To ActivePresentation.Slides.Count
        Set Slide = ActivePresentation.Slides(i)
        Slide.Shapes(shapeNo).Width = w