AKAI TSUKI

System development or Technical something

Script

try to use hash in Bash

This is sample script. [root@pm01 ~]# cat get_log.sh #!/bin/bash nodes=( vm01 vm02 vm03 ) declare -A IP_ADDRESSES; IP_ADDRESSES=( ["vm01"]="192.168.122.62" ["vm02"]="192.168.122.68" ["vm03"]="192.168.122.12" ["vm04"]="192.168.122.11" ) dec…

for loop sample by Bash

try loop sample [root@pm01 ~]# sh get_log.sh 0 => vm01 1 => vm02 2 => vm03 [root@pm01 ~]# [root@pm01 ~]# cat get_log.sh #!/bin/bash nodes=( vm01 vm02 vm03 ) cnt=0 for node in "${nodes[@]}" do echo "$cnt => $node" let cnt++ done [root@pm01 …

try to use zabbix api on bash

I created this script to add host/host group by Zabbix API. #!/bin/bash set -x ### config user_name=user01 user_pass=pass_string zabbix_url=http://localhost/zabbix/api_jsonrpc.php header="Content-Type: application/json-rpc" # -------------…

remove '#' and empty lines

設定ファイルを確認する際に、コメント行などを表示しないようにする。 コメント行削除する場合には、sedで、 $ cat filename | sed -e '/^#.*$/d' 空行も削除するなら $ sed -e 's/#.*$//' -e '/^$/d' さらに以下を行うと、空行が2回続く場合に1行にまとめ…

VBScriptでExcel(xltx)を保存する。

「xltx形式のExcelをVBScriptで保存する」試してみた。 単にSaveメソッド?で保存するとxlsx形式で保存されてるみたい。単に保存するだけではNGな様子。SaveASメソッドでファイル名を指定して保存するだけでもNGでした。 実際には以下のメッセージのエラ…

FileSearchを利用したサンプルmsdnのサイトより

Sub test1() ' FindFile "test" End Sub Function FindFile(strFileSpec As String) Dim fsoFileSearch As FileSearch Set fsoFileSearch = Application.FileSearch With fsoFileSearch .NewSearch .LookIn = "c:\" .Filename = strFileSpec .SearchSubFolde…

utf-8ってダメなの?

WSHのファイルをUTF-8で保存したの。 実行しようとしたらエラーが出ましたわ。というのも、Visual Web Developer 2005 Express Editionってのを使って VBScriptを書こうとしたらファイルのエンコードがUTF-8なのよね〜。めんどくさい話ですわ。

IEも動かせる

Const BROWSER_WIDTH = 600 Const BROWSER_HEIGHT = 400 Const BROWSER_INIT_X = 10 Const BROWSER_INIT_Y = 10 Const csTitlePostfix=" - Microsoft Internet Explorer" Const clSleep = 400 Const url = "http://www.hatena.ne.jp/" Dim ie, shell, i Set …

引数も使える

Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next

でフォルダ作成

Const LOG_FOLDER_PATH = "C:\" Dim dtNow, dateStr dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True dateStr = objRegExp.Replace(dtNow,"") Dim createFolderPath createFolderPath = LOG_FOLDER_PATH & dat…

日付を使ってみる

Dim dtNow, ret dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True ret = objRegExp.Replace(dtNow,"") WScript.Echo ret

ほうほう

Dim setpath setpath = "C:\foo" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call RenameForCheckedFiles(objFolder, "foo.gif", ".gif") sub RenameForCheckedFiles(folder, rBeforeStr,…

なるほど

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call MakeFilePathList(objFolder, fileList) Call OutPutText(fileList) sub MakeFilePathList…

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) For Each objFile In objFolder.Files fileList = fileList & objFile.Path fileList = fileLis…