札幌で数少ないPCパーツショップが営業停止になったそうで。
先週に買い物に行ったばかりなんですけどね…
品揃えが良かっただけに、再開してくれればいいですね。
Archive for 11月, 2008
昨日の日付を表示するVBスクリプトです。
現在の日付を求めるために別の関数を呼んでいます。
Option Explicit
Dim STR_Yesterday
Dim STR_Temp
STR_Temp = Get_YYYYMMDD(1)
STR_Yesterday = DateAdd("d",-1,STR_Temp)
WScript.Echo STR_Yesterday
Private Function Get_YYYYMMDD(ByVal STR_Flag)
Dim STR_Temp
Dim STR_YYYY
Dim STR_MM
Dim STR_DD
If Not IsNumeric(STR_Flag) Then Exit Function End If
STR_Temp = Year(Now)
If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If
STR_YYYY = STR_Temp
STR_Temp = Month(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
STR_MM = STR_Temp
STR_Temp = Day(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
STR_DD = STR_Temp
Select Case STR_Flag
Case 0
GET_YYYYMMDD = STR_YYYY & STR_MM & STR_DD
Case 1
GET_YYYYMMDD = STR_YYYY & "/" & STR_MM & "/" & STR_DD
Case 2
GET_YYYYMMDD = "#" & STR_DD & "/" & STR_MM & "/" & STR_YYYY & "#"
End Select
End Function
Scriptのダウンロードは こちら です。
11月も中旬になりましたね。
来週の天気を見てみると…
[tegaki]雪ばっかりだ～[/tegaki]
本格的に冬になりますね。
そろそろ鍋物が美味しい時期ですね！
と、いうわけでホットプレートを購入しました。
早速、鍋をしました。この季節はこれに限りますね(笑)
指定したフォルダのファイル一覧を取得します。再帰処理でサブフォルダ内のファイル名も取得します。
Option Explicit
Private Function GET_FileList(STR_Path)
Dim OBJ_FSO
Dim OBJ_Folder
Dim COL_SubFolder
Dim COL_File
Set OBJ_FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set OBJ_Folder = OBJ_FSO.GetFolder(STR_Path)
For Each COL_File In OBJ_Folder.Files
WScript.Echo COL_File.Name
Next
For Each COL_SubFolder In OBJ_Folder.SubFolders
GET_FileList(COL_SubFolder)
Next
End Function
Scriptのダウンロードは こちら です。
以前は、UTCタイムフォーマットから”YYYYMMDDHHMMSS”に変換するスクリプトでした。
今度は、逆です。YYYYMMDDやHHMMSSを取得するスクリプトの使用しています。
Option Explicit
Dim STR_Computer
Dim OBJ_SWbemServices
Dim OBJ_TimeZone
Dim COL_TimeZone
Dim STR_Bias
Dim DTMCurrentDate
Dim DTMTargetDate
Dim DTMMonth
Dim DTMDay
STR_Computer = "."
Set OBJ_SWbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STR_Computer & "\root\cimv2")
Set COL_TimeZone = OBJ_SWbemServices.ExecQuery("SELECT * FROM Win32_TimeZone")
For Each OBJ_TimeZone In COL_TimeZone
STR_Bias = OBJ_TimeZone.Bias
Next
DTMTargetDate = Get_YYYYMMDD(0) & Get_HHMMSS(0)
DTMTargetDate = DTMTargetDate & ".000000"
DTMTargetDate = DTMTargetDate & CStr(STR_Bias)
WScript.Echo DTMTargetDate
Private Function Get_YYYYMMDD(ByVal STR_Flag)
Dim STR_Temp
Dim STR_YYYYMMDD
If Not IsNumeric(STR_Flag) Then Exit Function End If
STR_Temp = Year(Now)
If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If
If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If
STR_YYYYMMDD = STR_Temp
STR_Temp = Month(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If
STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp
STR_Temp = Day(Now())
If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp
GET_YYYYMMDD = STR_YYYYMMDD
End Function
Private Function GET_HHMMSS(ByVal STR_Flag)
Dim STR_Temp
Dim STR_HHMMSS
If Not IsNumeric(STR_Flag) Then Exit Function End If
STR_Temp = Hour(Now())
If Len(Hour(Now())) = 1 Then STR_Temp = "0" & Hour(Now())
If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If
STR_HHMMSS = STR_Temp
STR_Temp = Minute(Now())
If Len(Minute(Now())) = 1 Then STR_Temp = "0" & Minute(Now())
If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If
STR_HHMMSS = STR_HHMMSS & STR_Temp
STR_Temp = Second(Now())
If Len(Second(Now())) = 1 Then STR_Temp = "0" & Second(Now())
STR_HHMMSS = STR_HHMMSS & STR_Temp
GET_HHMMSS = STR_HHMMSS
End Function
Scriptのダウンロードは こちら です。
今度は、HHMMDDを取得します。
引数も同様に、1以上の場合は”HH:MM:SS”を、0の場合は”HHMMSS”です。
Private Function GET_HHMMSS(ByVal STR_Flag) Dim STR_Temp Dim STR_HHMMSS If Not IsNumeric(STR_Flag) Then Exit Function End If STR_Temp = Hour(Now()) If Len(Hour(Now())) = 1 Then STR_Temp = "0" & Hour(Now()) If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If STR_HHMMSS = STR_Temp STR_Temp = Minute(Now()) If Len(Minute(Now())) = 1 Then STR_Temp = "0" & Minute(Now()) If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If STR_HHMMSS = STR_HHMMSS & STR_Temp STR_Temp = Second(Now()) If Len(Second(Now())) = 1 Then STR_Temp = "0" & Second(Now()) STR_HHMMSS = STR_HHMMSS & STR_Temp GET_HHMMSS = STR_HHMMSS End Function
Scriptのダウンロードは こちら です。
WSHのプログラミングで、年月日(YYYYMMDD)や時間(HHMMSS)をとるのって、以外と手間だったりします。
ファイル名やタイムスタンプを表示するときに私は以下の関数を利用しています。
まずは、年月日からです。フラグで1以上の値を渡すと”YYYY/MM/DD”になり、0の場合は、”YYYYMMDD”になります。
Private Function Get_YYYYMMDD(ByVal STR_Flag) Dim STR_Temp Dim STR_YYYYMMDD If Not IsNumeric(STR_Flag) Then Exit Function End If STR_Temp = Year(Now) If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If STR_YYYYMMDD = STR_Temp STR_Temp = Month(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp STR_Temp = Day(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp GET_YYYYMMDD = STR_YYYYMMDD End Function
Scriptのダウンロードは こちら です。
システム管理に役立つSysinternals Suiteです。
ダウンロードは以下のURLから。
http://technet.microsoft.com/ja-jp/sysinternals/0e18b180-9b7a-4c49-8120-c47c5a693683.aspx
最近のLinuxでは、GUIベースのログインや操作が一般的になってきましたね。
私が始めてLinuxに出会ったころは、CUIベースのものしかなかったのに(笑）
と、いうわけでDebian でCUIベースに切り替える方法です。(正確には、X Windowsの操作です)
GUIベースのログイン画面で、 CTRL + ALT + F1 を押す。
これだけです。非常に簡単ですね。
ちなみに、GUIに戻りたい時は、 ALT + F7で戻れます。
また、仮想端末の切り替えが、ALT +F1～F6 でできます。つまり、6個の仮想端末が起動しています。
先週、札幌で初雪でしたね。
手稲山や藻岩山も白くなったとか。
その頃、私は会社の機械室で寒さとの戦いでしたが(笑)
そんな忙しい日も落ち着き、昨日は手羽先を食べに行ってきました。
札幌ではおなじみの「キィー」です。
予約せずに行ったので入れるかは、かなり微妙でしたが…
店の前には、女性二人が待っていて…「やっぱりか～(汗)」と思っていたら、
どうやらカウンターは空いているが、テーブル待ちとのこと。
と、言う訳でなんとか入れました。
いか刺しと枝豆でビールを待ちながら1時間。
念願の手羽先が食べられました～(^_^)v
もう大満足です。暫く手羽先は…ってくらい(笑)
店内でふと気が付いたのですが、女性二人組や女性のグループだけで来ている人が多い？
最近では、こういう店や居酒屋が好きな女性が増えているとか？ちょっと意外でした。