程序代码：

    var fso, fldr, folder;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    var WshShell=new ActiveXObject("WScript.Shell");
    var answer=WshShell.popup("是不是将本目录中的所有文件夹的属性设为普通",100,"请选择",4);
    if (answer==7)
    {
        WScript.Echo("谢谢您的使用\r\nBy zklhp    Email:zklhp@ QQ:493165744");
        WScript.Quit(0);
    }

    folder = fso.GetFolder(WshShell.CurrentDirectory);
    fc = new Enumerator(folder.SubFolders);
    for (; !fc.atEnd(); fc.moveNext())
    {
        folder = fso.GetFolder(fc.item());
        folder.Attributes = 32;
    }

    WScript.Echo("运行成功 谢谢您的使用\r\nBy zklhp    Email:zklhp@ QQ:493165744");