Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop

郁闷了，又病了 ，。。 ，，开始还在笑话同事感冒了，，这下惩罚来了 ，，，不用笑了 。

额。。今天公司没有发工资，，就给了200块，， 临下班前俺家经理说 我这月有希望突破2K工资。。
无语中 ，，，，
剪头发了，，，感觉木木的，呵呵
纠结中，，手机买什么好，。。。。

最经总想换手机，一直说手机的照相功能是没有用的，但是到我自己选择手机的时候才发现，
我也很注重要带摄像头的 ，。看好黑莓8320和8800了 。犹豫中 ，天天说要换手机 ，，就没换过
这个月工作还行，如果没有错的话工资能多一点点吧 。 呵呵 如果明天不迟到我就有满勤奖励(而且没有休假)
如果真的发的多的话就真的考虑换手机了，现在用的V3IE电池简直就是，，，额 不说了 ，，先冲上电再回来
写吧 ，。
如果没有什么大事情，我就在1月中下旬回家，，，纹身的事情家里还不知道，，额。。。。到时候再说吧
回家

好久没有写什么了，又到我乱说的时候了 ，

一切还是还是那样子，脑残的还是在QQ空间，

我失败吗。突然发现朋友在一夜之间全部出卖了我。可能是我太商业了，惹人厌了

感觉真不好，QQ上的朋友问我最近好过吗 ，还是那样，有什么好过不好过的，

饿？不是说过不用QQ了吗 。每天开机习惯的挂上QQ都不知道干什么，，，翻翻好友，

看看空间，但是放弃QQ%80的联系方式就Over。。

用电子邮件？谁和你对发啊 。。 晕晕的 。 昨天以为手机丢了，但是最后发现在自己的兜兜里。

烟没有抽完

3次，用图说话，全部计算51.2W次

一天7-8封。。。晕死了。。

不知道什么时候能轮到我。。。晕晕的，，。，

满勤奖没有了，还倒贴20。。。上火，

检查了一下，都对，为什么不响。。