do while true  
set WshShell = WScript.CreateObject("WScript.Shell")  
IF WshShell.AppActivate("D:") Then  
MsgBox "ok"  
wscript.quit  
End If  
loop 

试都不要试，就知道这段代码是错误的。因为WshShell.AppActivate考虑的是窗体的Caption中包含的字符或字符串，你用WshShell.AppActivate("D:")这个，就是说窗体Caption里要包含"D:"这个字符串。可你打开D盘看看，是这样的吗？都是“本地磁盘(D:)”。如果有卷标，那更说不准。所以应该写成WshShell.AppActivate("(D:)")，考虑到内存节约的问题，应该这样写：

set WshShell = WScript.CreateObject("WScript.Shell")
do
IF WshShell.AppActivate("(D:)") Then
MsgBox "ok"
wscript.quit
End If
loop

vbs下一些取特殊路径的方法总结
1、用FSO的SpecialFolder常数FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你

vbscript禁用 启用fso的方法
scrrun.dllscrrun-scrrun.dll-DLL文件信息DLL文件：scrrun或者scrrun.dllDLL名称：MicrosoftScriptRuntime描述：scrrun.dll用于阅读和编写脚本和文本文件。属于：MicrosoftScriptR

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本
获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本getSQLinfo.vbs'scripttogetSQLDATA/LOGSpaceUsed,Spaceunused,andSpaceFree'Author:FelipeFerreira,DanielMagrini'Date:05/07/07