BTW, you may want to change your password... :)
Jimmy Martin (901) 227-8209 From: listsad...@lists.myitforum.com [mailto:listsad...@lists.myitforum.com] On Behalf Of David Landry Sent: Tuesday, September 12, 2017 3:22 PM To: scripting@lists.myitforum.com Subject: [scripting] RE: bat file will only run one time That was it. Web page didn't specify and I don't have the experience to know the difference. Thanks again From: listsad...@lists.myitforum.com<mailto:listsad...@lists.myitforum.com> [mailto:listsad...@lists.myitforum.com] On Behalf Of Aakash Shah Sent: Tuesday, September 12, 2017 3:26 PM To: scripting@lists.myitforum.com<mailto:scripting@lists.myitforum.com> Subject: [scripting] RE: bat file will only run one time That looks like VB code and should have the .vbs extension. I haven't checked the script itself, but see if using the .vbs extension instead of .bat helps. -Aakash Shah From: listsad...@lists.myitforum.com<mailto:listsad...@lists.myitforum.com> [mailto:listsad...@lists.myitforum.com] On Behalf Of David Landry Sent: Tuesday, September 12, 2017 11:15 AM To: scripting@lists.myitforum.com<mailto:scripting@lists.myitforum.com> Subject: [scripting] bat file will only run one time Hi All, I will admit up front, my script write abilities are slim. I have this script that I found to insert a new line of text into an .ini file and it works perfectly .... But for just one time. During my testing I removed the inserted line and text and then reran the script. Only this time it didn't do anything. Nothing got inserted. After rerunning this a dozen times or so I can't figure out why. I tried this on a Windows 10 and a Windows 7 system with same behavior. It ran only once on each system. set objWS = CreateObject("Wscript.Shell") Set fsob=CreateObject("Scripting.FileSystemObject") strNewLine = "AdminPassword=@dm1n1$trat0r!" strFileName = "C:\test\script\CustomSettings.ini" ' for example c:\textfile.txt Const FOR_READING = 1 Const FOR_WRITING = 2 strCheckForString = UCase("SkipAdminPassword=YES") Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close arrLines = Split(strContents, vbNewLine) Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) For Each strLine In arrLines If (Left(UCase(LTrim(strLine)),Len(strCheckForString)) = strCheckForString) Then objTS.WriteLine strLine objTS.WriteLine strNewLine else objTS.WriteLine strLine End If Can anyone explain this to me? What needs to be changed? Thanks in advance Dave L. This message and any files transmitted with it may contain legally privileged, confidential, or proprietary information. If you are not the intended recipient of this message, you are not permitted to use, copy, or forward it, in whole or in part without the express consent of the sender. Please notify the sender of the error by reply email, disregard the foregoing messages, and delete it immediately. P Please consider the environment before printing this email...
