Next step is changing your admin password. - Sean
> On Sep 12, 2017, at 12:39 PM, David Landry <david.lan...@lairdtech.com> wrote: > > Thank you to all for all the guidance. It is very much appreciated. > > > From: listsad...@lists.myitforum.com [mailto:listsad...@lists.myitforum.com] > On Behalf Of Benke, Richard L. (WWRC) > Sent: Tuesday, September 12, 2017 4:20 PM > To: scripting@lists.myitforum.com > Subject: [scripting] RE: bat file will only run one time > > I numbered the lines for reference. > > You’re opening a file handle in line 13, but you’re never closing it. This is > leaving the file handle open for that instance of the script, which is > preventing subsequent instances of the script from being able to open it. > > End your script with another objTS.Close (like in line 11) > > From: listsad...@lists.myitforum.com [mailto:listsad...@lists.myitforum.com] > On Behalf Of David Landry > Sent: Tuesday, September 12, 2017 2:15 PM > To: 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. > > >
