Automation服務器不能創建對象
最簡單解決方法：打開Internet Explorer “工具”菜單欄中的“選項”一欄，單擊“安全”欄中的“自定義級別”選項卡，將第三項“對沒有標記為安全的activex控件進行初始化和腳本運行”設置成
另外解決辦法參考：http://blog.chinaunix.net/uid-20624711-id-1911481.html
==========
參考：http://www.cnblogs.com/java-boy/archive/2011/03/21/1989911.html
<script type="text/javascript">
/**
*CreateFile: 測試在電腦上創建一個文件件，并在文件夾里寫進一些數據。
*
*/
function CreateFile()
{
var fso, tf;
fso = new ActiveXObject("Scripting.FileSystemObject");//獲取對象
tf = fso.CreateTextFile("c:\\testfile.txt", true);//創建一個文件夾
// 寫一行，并且帶有新行字符。
tf.WriteLine("Testing 1, 2, 3.") ;
// 向文件寫三個新行字符。
tf.WriteBlankLines(3) ;
// 寫一行。
tf.Write ("This is a test.");
tf.Close();//關閉
}
/**
*Folder的API：
*任務 方法
*創建文件夾。 FileSystemObject.CreateFolder
*刪除文件夾。 Folder.Delete 或 FileSystemObject.DeleteFolder
*移動文件夾。 Folder.Move 或 FileSystemObject.MoveFolder
*復制文件夾。 Folder.Copy 或 FileSystemObject.CopyFolder
*檢索文件夾的名字。 Folder.Name
*如果文件夾在驅動器上存在，則找出它。 FileSystemObject.FolderExists
*獲得現有 Folder 對象的實例。 FileSystemObject.GetFolder
*找出文件夾的父文件夾名。 FileSystemObject.GetParentFolderName
*找出系統文件夾的路徑。 FileSystemObject.GetSpecialFolder
*/
function ManipFiles()
{
var fso, f1, f2, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\\testfile.txt", true); //如果當前文件已經存在的話，則覆蓋原有文件
alert("Writing file <br>");
// 寫一行。
f1.Write("This is a test.");
// 關閉文件。
f1.Close();
alert("Moving file to c:\\tmp <br>");
if(!fso.FolderExists("c:\\tmp")) { //如果tmp目錄不存在，則創建一個目錄
fso.CreateFolder("c:\\tmp");
}
// 獲取 C 的根目錄(C:\)中的文件的句柄。
f2 = fso.GetFile("c:\\testfile.txt");
// 把文件移動到 \tmp 目錄。如果這個tmp目錄下已經有testfile.txt文件了，則會出錯。（如果沒有tmp這個文件目錄也會出錯）
f2.Move ("c:\\tmp\\testfile.txt");
alert("Copying file to c:\\temp <br>");
// 把文件復制到 \temp 目錄
if(!fso.FolderExists("c:\\temp")) {//如果temp目錄不存在，則創建一個目錄
fso.CreateFolder("c:\\temp");
}
f2.Copy ("c:\\temp\\testfile.txt");
alert("Deleting files <br>");
// 獲得文件當前位置的句柄。
f2 = fso.GetFile("c:\\tmp\\testfile.txt");
f3 = fso.GetFile("c:\\temp\\testfile.txt");
// 刪除文件。
f2.Delete();
f3.Delete();
//刪除文件夾
var fdTmp = fso.GetFolder("c:\\tmp");
var fdTemp = fso.GetFolder("c:\\temp");
fdTmp.DeleteFolder();
fdTemp.DeleteFolder();
alert("All done!");
}
ManipFiles();
//CreateFile();
alert("Ok! Write Over!");
</script>