ロックする
On Error Resume Next Set objShell = CreateObject("Wscript.Shell") objShell.Run "%windir%\System32\rundll32.exe user32.dll,LockWorkStation"
見る人が見ればすぐに分かる話ですが、
rundll32 user32.dll,LockWorkStation
と書いたbatファイルでも全く同じ。もっと言うと、上に書いた1行を、新規に作成したショートカットのリンク先に書いてもよい。Windows2000で動くかどうかは知らない。
TweakUIあたりを利用して自動ログオンするようにしつつ、こいつをスタートアップに放り込んでおく。そうすっと、電源ボタン押したあと、一服しに行って帰ってくると、アンチウィルスソフトだのなんだのの常駐アプリが起動完了した状態のマシンがお待ちかねというわけです。
ま、はっきり言って自分用のメモです。