bat nsis 无法执行_NSIS如何创建vbs或者bat文件？

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

; Output the VBScript

FileOpen $4 "$PLUGINSDIR\GetWebsites.vbs" w

FileWrite $4 'Set IISOBJ = getObject("IIS://localhost/" & "w3svc")$\n'

FileWrite $4 'Set objFSO = CreateObject("Scripting.FileSystemObject")$\n'

FileWrite $4 'Set objTextFile = objFSO.OpenTextFile("$PLUGINSDIR\websites.ini", 8, True)$\n'

FileWrite $4 'AllSites = ""$\n'

FileWrite $4 'for each Web in IISOBJ$\n'

FileWrite $4 'if (Web.Class = "IIsWebServer") then$\n'

FileWrite $4 'Set IISWebSite = getObject("IIS://localhost/" & "w3svc" & "/" & Web.Name)$\n'

FileWrite $4 'Set IISWebSiteRoot = getObject("IIS://localhost/" & "w3svc" & "/" & Web.Name & "/root")$\n'

FileWrite $4 'AllSites = AllSites & "|" & IISWebSite.ServerComment$\n'

FileWrite $4 'objTextFile.WriteLine("[" & IISWebSite.ServerComment & "]")$\n'

FileWrite $4 'objTextFile.WriteLine("Path=" & IISWebSiteRoot.Path)$\n'

FileWrite $4 'objTextFile.WriteLine("")$\n'

FileWrite $4 'Set IISWebSiteRoot = nothing$\n'

FileWrite $4 'Set IISWebSite = Nothing$\n'

FileWrite $4 'end if$\n'

FileWrite $4 'next$\n'

FileWrite $4 'objTextFile.WriteLine("[Websites]")$\n'

FileWrite $4 'objTextFile.WriteLine("AllSites=" & Right(AllSites, Len(AllSites)-1))$\n'

FileWrite $4 'objTextFile.Close$\n'

FileWrite $4 'Set objFSO = Nothing$\n'

FileWrite $4 'Set objTextFile = Nothing$\n'

FileWrite $4 'Set IISOBj = Nothing$\n'

FileClose $4