現時刻をYYYY-MM-DD hh:mm:ss形式でクリップボードに収めるスクリプト

gooブログでは、記事のステータスを草稿(下書き状態)で保存しておいたものを、
その後公開中(完成)にステータスを変更して投稿しても、
記事の投稿日時は最初に投稿した時刻(草稿として投稿した時刻)になってしまいます。

投稿時刻はステータスを公開中に変更して投稿した時刻にしたい、
という時に活用できるかも知れないVBScriptです。

具体的には、このスクリプトを起動した時刻を「YYYY-MM-DD hh:mm:ss」という形式で
クリップボードに格納するという、単純なスクリプトです。
(スクリプト自体のオーバーヘッドがありますので、そこまでの正確性は求めてはいけません。)

あとはgooブログの「投稿日時」のところへ貼り付ければOKです。
(トラックバックURLのすぐ上ですね。)

WindowsMe、IE5.5、WSH5.6で確認しました。
以下を拡張子「vbs」で保存して下さい。

'-----
' 現時刻をYYYY-MM-DD hh:mm:ss形式でクリップボードに収めるスクリプト
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
Set oClip = oIE.Document.ParentWindow.ClipboardData

sExp = "/"
Set regEx = New RegExp
regEx.Pattern = sExp
regEx.Global = True

oClip.setData "text", regEx.Replace(CStr(Now), "-")
Set regEx = Nothing
Set oClip = Nothing
Set oIE = Nothing