mitaken’s gists

mitaken / FILE_EXISTS.vbs

Last active May 8, 2023 00:35

	Option Explicit

	Call WScript.Quit(Main())

	Function Main()
	Main = 0

	Dim ObjShell, StrPaths, AryPaths
	Set ObjShell = WScript.CreateObject("WScript.Shell")
	StrPaths = ObjShell.ExpandEnvironmentStrings("%PATH%")

mitaken / iLO3.vbs

Created March 11, 2023 09:02

Open iLO3 admin panel bypassing SSL certification warning

	Option Explicit

	Call Main()
	Call WScript.Quit()

	Sub Main()
	Const CstStrILO3 = "https://192.168.1.100/"

	Dim ObjIE, ObjDoc, ObjLinks, ObjLink
	Set ObjIE = WScript.CreateObject("InternetExplorer.Application")

mitaken / LocalDB_MSOLEDBSQL.udl

Created March 20, 2020 01:08

	[oledb]
	; Everything after this line is an OLE DB initstring
	Provider=MSOLEDBSQL;Integrated Security=SSPI;Data Source=(LocalDB)\MSSQLLocalDB

mitaken / coreserver.vbs

Last active April 5, 2018 14:49

CORESERVER or XREAアクセスIP許可

	Option Explicit

	'doc
	'CORESERVER https://apidoc.coreserver.jp/#/tool/2017/07/19/tool-ssh-add.html
	'XREA https://apidoc.xrea.com/#/tool/2017/07/19/tool-ssh-add.html

	'接続先情報
	Const CstStrTarget = "username:[email protected]"
	'Const CstStrTarget = "username:[email protected]"

mitaken / UnblockFiles.vbs

Created February 12, 2018 14:19

Drag and Drop zone protected files

	Option Explicit

	Call WScript.Quit(Main())

	Function Main()
	Dim ObjShell, ObjResult, ObjStdIn
	Set ObjShell = WScript.CreateObject("WScript.Shell")
	Set ObjResult = ObjShell.Exec("powershell -NoLogo -Command -")
	Set ObjStdIn = ObjResult.StdIn

mitaken / DeleteSubmodule.vbs

Created April 23, 2017 16:08

Delete submodule reference(s). D&D working directory to vbs

	Option Explicit

	Const CstStrGit = "C:\Program Files\Git\bin\git.exe"
	Const CstStrAll = "*"

	'引数取得
	Dim ObjArgs, ObjUnnamed, StrWork
	Set ObjArgs = WScript.Arguments
	Set ObjUnnamed = ObjArgs.Unnamed
	StrWork = ObjUnnamed(0)

mitaken / ezget.ini

Created January 17, 2017 15:18

list of au disposition

	[MIME]
	; EXT = "mime/type,disposition,forceEZget,checkout,pcsharing,rule[direct(EZget)\|copyright(EZget2001)]"
	TXT = "text/plain,devte4z,1,1,1,1"
	CLD = "text/plain,devhldy"
	3GP = "audio/3gpp,devmgzz,0,1,1"
	3G2 = "audio/3gpp2,devmpzz,0,1,1"
	LST = "audio/3gpp2,devlvzz,0,0,0"
	LIV = "video/3gpp2,devlvzx,0,0,0,1"
	MP4 = "video/mp4,,0,1,1"
	PNG = "image/png,dev8aww,1,1,1,1"

mitaken / Mitaken.Mail.wsc

Created July 20, 2015 14:46

	<?xml version="1.0" encoding="Shift_JIS"?>
	<package>
	<?component error="true" debug="true"?>
	<component id="Mitaken.Mail">
	<!-- SMTP Configuration -->
	<resource id="SMTP_HOST">[email protected]</resource>
	<resource id="SMTP_PORT">25</resource>
	<resource id="SMTP_FROM">[email protected]</resource>
	<resource id="SMTP_USER"></resource>
	<resource id="SMTP_PASS"></resource>

mitaken / install.sh

Created February 15, 2015 08:56

Git install on XSERVER

	#!/bin/sh

	#Upload to ~/install.sh
	#Run '$ sh install.sh'

	#Install gettext
	cd ~/
	wget http://ftp.gnu.org/pub/gnu/gettext/gettext-latest.tar.gz
	mkdir gettext && tar xvf gettext-latest.tar.gz -C gettext --strip-components=1
	cd gettext

mitaken / Aterm.vbs

Last active December 25, 2016 07:12

Aterm Router Reboot

	Option Explicit

	Const CstStrDomain = "http://192.168.179.1"
	Const CstStrReboot = "/index.cgi/reboot_main"
	Const CstStrRebootSet = "/index.cgi/reboot_main_set"

	Dim ObjHttp, StrBody
	Set ObjHttp = WScript.CreateObject("Msxml2.XMLHTTP.6.0")

	On Error Resume Next

mitaken mitaken