参考:
http://www.foxtable.com/help/topics/1439.htm
另,下面这段用不着的了:
If Functions.Execute("net20sp1") = False Then Return End If