其次在VB中建立一个新窗口,将MCI.VBX加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置NameSpace="" SetEmail=CreateObject("CDO.Message") Email.From="[email protected]" Email.To="[email protected]" Email.Subject="Testsendmail.vbs" Email.Textbody="OK!" Email.AddAttachment"C:\foo.zip" WithEmail.Configuration.Fields .Item(NameSpace&"sendusing")=2 .Item(NameSpace&"smtpserver")="smtp.21cn.com" .Item(NameSpace&"smtpserverport")=25 .Item(NameSpace&"smtpauthenticate")=1 .Item(NameSpace&"sendusername")="zzzevazzz" .Item(NameSpace&"sendpassword")="ph4nt0m!" .Update EndWith Email.Send

不，没有什么不同其实，你也可以用相对路径

SetobjNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName SetobjUser=GetObject(""&strComputer&"/Guest") IfobjUser.AccountDisabledThen Wscript.Echo"Guest为禁用状态" Else Wscript.Echo"Guest为开启状态" EndIf 显然，如果我们能直接调用这些程序是最为理想的

我们不详述这个修改后的脚本，但该脚本会将“我的电脑”设置为根文件夹：　　　　　　如您所料，所得到的对话框提供了很多选择课件小学我们通过VB调用API函数实现了声音的播放，限于篇幅文中程序从略你也可以用WMITools里WMI CIM Studio这个工具的搜索功能，很容易就能找想要的对象。