サイボウズOFFICE7にVBスクリプトで自動ログインする

サイボウズOffice7に自動ログインするスクリプトです。
おそらくOffice8でも動作するのでは無いかと思いますが未確認です。

また、設定でユーザアカウントをログイン画面に表示させている場合には、多少スクリプトを修正しなければおそらく動作しません。遊び心で特定の端末が指定の時間までにPING応答が無い場合に「xxxさんお休みです。」みたいな書き込みをするスクリプトを作ろうかとも思ったのですが、そこまで作っていません。
また、スクリプトにIDとパスワードを直接記載する必要があるので、セキュリティ的にも実は、あまりお勧めではありません。あくまでお遊びスクリプトです。

使い方

以下のスクリプトをメモ帳等でテキスト文書に保存して、拡張子を”vbs”に変更してください。
スクリプト中の”HOSTNAME”にサイボウズOfficeがインストールされているサーバを指定し、”USERNAME”にログイン名、”PASSWORD”にはパスワードを入力します。

あとは実行するだけです。

'サイボウズOffice7自動ログインスクリプト
Option explicit
Set objIE = CreateObject("InternetExplorer.Application")

Dim USERNAME
Dim PASSWORD
Dim HOSTNAME
Dim StrHTML
Dim StrHTML_LINE
Dim objIE

'------------↓変更必要箇所↓----------------
HOSTNAME = ""
USERNAME = ""
PASSWORD = ""
'------------↑変更必要箇所↑----------------

Call Main()
Set objIE = Nothing

Sub Main()
	objIE.Visible = True
	'サイボウズログイン画面
	objIE.Navigate "http://" & HOSTNAME & "/ag.exe?"
	'メニューバーを表示するかどうか。
	objIE.MenuBar = True
	While objIE.Busy Or objIE.ReadyState <> 4
	Wend
	If AM_I_AUTH() = False Then
		objIE.document.all.Item("_Account").Value = USERNAME
		objIE.document.all.Item("PASSWORD").Value = PASSWORD
		objIE.document.all.Item("Submit").Click
	End If
End Sub

'既にサイボウズにログイン済みかどうかのチェック
Function AM_I_AUTH()
	StrHTML = Split(objIE.document.body.innerHTML,vbCrLf)
	for each StrHTML_LINE in StrHTML
		If StrHTML_LINE = "<TD noWrap align=right>ログイン名</TD>" Then
			AM_I_AUTH = False
			Exit Function
		End If
	Next
	AM_I_AUTH = True
End Function

関連する記事

• 試用期間が終了したため、バーチャル マシン ” ” は起動されませんでした。 (0)
• 自宅用ファイルサーバについての考察 (0)
• 環境変数を取得する@VBS (0)
• 特殊フォルダのパスを取得する@VBS (0)
• 無償版Photoshop@Webアプリケーション (0)