vbScript / Custom Action
Anyone have an idea why this is not working as a custom action?
Thanks a lot!
Dim wshShell, filesys, filetxt, getname, path, strComputerName
Set wshShell = CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\Program Files\My App\cal.txt", True)
path = filesys.GetAbsolutePathName("c:\Program Files\My App\cal.txt")
getname = filesys.GetFileName(path)
filetxt.WriteLine(strComputerName)
filetxt.Close
Thanks a lot!
0 Comments
[ + ] Show comments
Answers (2)
Please log in to answer
Posted by:
reds4eva
13 years ago
Posted by:
Secondlaw
13 years ago
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.