Skip to content

Instantly share code, notes, and snippets.

View ebibibi's full-sized avatar

Masahiko Ebisuda ebibibi

13 followers · 2 following
View GitHub Profile
@ebibibi
ebibibi / configure_windows_by_boxstarter.ps1
Last active August 6, 2022 00:28
configure windows by boxstarter
Set-ExecutionPolicy RemoteSigned -force
. { iwr -useb https://boxstarter.org/bootstrapper.ps1 } | iex;
Install-BoxstarterPackage -PackageName https://gist.githubusercontent.com/ebibibi/cc53c859f2af91737889c2a6f6eb0aa5/raw/boxstarter.txt
@ebibibi
ebibibi / boxstarter.txt
Last active November 27, 2021 23:35
boxstarter for ebi
Set-WindowsExplorerOptions -EnableShowHiddenFilesFoldersDrives -EnableShowProtectedOSFiles -EnableShowFileExtensions
Enable-RemoteDesktop
Disable-UAC
cinst git
cinst vscode
cinst python
@ebibibi
ebibibi / YoutubeIndexFromPremiereMarker.ps1
Created October 25, 2021 02:42
Adobe Premiereのマーカーをエクスポートしたテキストファイルを元にYoutubeのインデックスを作成するPowerShellスクリプト
$targetFileName = "Ending_60p.txt"
$desktop = [Environment]::GetFolderPath("Desktop")
$targetFile = Join-Path $desktop $targetFileName
if(!(Test-Path $targetFile)) {
Write-Host "$targetFile が存在しませんでした"
exit
}
@ebibibi
ebibibi / Teamsのキャッシュを削除.ps1
Created July 21, 2021 05:22
Write-Host "Outlookを終了します。"
taskkill /IM outlook.exe
Write-Host "Teamsを終了します。"
Get-Process | Where-Object {$_.ProcessName -eq "Teams"} | Stop-Process
Write-Host "5秒待ちます"
Start-Sleep 5
Write-Host "Teamsのキャッシュファイルを削除します。"
@ebibibi
ebibibi / installMMAAgent.ps1
Created July 6, 2021 04:16
sample code for install MMA agent to windows server silently
param (
[Parameter(mandatory=$true)] $MMAInstallerURI,
[Parameter(mandatory=$true)] $WorkSpaceID,
[Parameter(mandatory=$true)] $Key
)
#donwload
Invoke-WebRequest -UseBasicParsing -URI $MMAInstallerURI -OutFile .\MMASetup-AMD64.exe
#extract
@ebibibi
ebibibi / samplevba.vbs
Created November 2, 2020 07:27
Sub 部署名変更bySubscriptionGUID(ByVal guid As String, ByVal newDepartment As String)
Dim detailTable
Set detailTable = Worksheets("データソースfromAzure(detail)").ListObjects("detail")
For i = 1 To detailTable.ListRows.Count
If detailTable.ListColumns("サブスクリプション GUID (SubscriptionGuid)").DataBodyRange(i) = guid Then
detailTable.ListColumns("部署名 (Department Name)").DataBodyRange(i).Value = newDepartment
End If
Next
@ebibibi
ebibibi / azurepolicy_sample_deny_connectfromany.json
Created January 13, 2020 14:04
{
"mode": "All",
"policyRule": {
"if": {
"allOf": [
{
"field": "type",
"equals": "Microsoft.Network/networkSecurityGroups/securityRules"
},
{
@ebibibi
ebibibi / SetAllMaiboxToJapanese.ps1
Created October 9, 2019 03:07
Set all mailboxes to Japanese language.
Connect-EXOPSSession
Get-Mailbox | ForEach-Object { Set-MailboxRegionalConfiguration -Identity $_.displayname -DateFormat "yyyy/MM/dd" -TimeFormat "H:mm" -TimeZone "Tokyo Standard Time" -LocalizeDefaultFolderName:$True -Language "ja-JP"}
@ebibibi
ebibibi / AddUserPermissionToShareMailboxByGroup.ps1
Created October 2, 2019 14:28
#予め Connect-EXOPSSession で接続しておく
function AddUserPermissionToShareMailboxByGroup([string]$shareMailbox, [string]$group)
{
Write-Host "Get-DisributionGroup"
Write-Host "group is $group"
$members = Get-DistributionGroupMemberRecursivery $group
foreach($member in $members)
{
@ebibibi
ebibibi / SetRightCtrlToCapsLock.reg
Created September 8, 2019 14:11
Windows Registry Editor Version 5.00
;CapsLockを右Ctrlにする
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map" = hex:00,00,00,00, 00,00,00,00, 02,00,00,00, 1D,E0,3A,00, 00,00,00,00