使用vbs將語法寫入txt

zp145 2016-02-27 12:52:14 ‧ 3000 瀏覽

分享至

想請教各位大大，我在撰寫vbs時，要如何才能把下列紅字部分，透過vbs寫入到txt內文中?

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
AppDataPath = objShell.ExpandEnvironmentStrings("%AppData%")
AppVMClientPath = AppDataPath & "\test\test Client"
    Set testSet = objFSO.CreateTextFile(AppVMClientPath & "\test.txt", True)
    &lt;span style="color: #FF0000;">VMSet.Write("&lt;strong>&lt;?xml version="1.0"?> &lt;Root>&lt;RecentServer serverName="vSer.lab.com.tw" lastLogInAsCurrentUser="false"/>&lt;SecurityMode certCheckMode="2"/>&lt;LastLoginAsCurrentUser loginAsCurrentUser="false"/>&lt;GlobalDefaultServer serverName="vSer.lab.com.tw"/>&lt;HIDECLIENTAFTERLAUNCHSESSION hideClientAfterLaunchSession="false"/>&lt;/Root>&lt;/strong>")&lt;/span>
    VMSet.Close

zp145 iT邦新手 5 級 ‧ 2016-02-27 20:54:35 檢舉

感謝fillano大大

將此段語法加上雙引號就可以執行了。

testSet.Write("<?xml version=""1.0""?> <Root><RecentServer serverName=""vSer.lab.com.tw""lastLogInAsCurrentUser=""false""/><SecurityMode certCheckMode=""2""/><LastLoginAsCurrentUser loginAsCurrentUser=""false""/><GlobalDefaultServer serverName=""vSer.lab.com.tw""/><HIDECLIENTAFTERLAUNCHSESSION hideClientAfterLaunchSession=""false""/></Root>")

登入發表討論