I got it into my head earlier this evening that maybe I couldn’t reach my files that should be registered in the PATH variable because it had been truncated, after all when I ran
I did get a truncated text. However that is probably just due to the output buffer being capped looking at this post about maximum length of environment variables.
By this point however, I had already begun building a script to try and shorten down my PATH variable, I mean, who would ever do that manually?……. I mean, who wouldn’t spend two hours writing a script to do it?……. I mean, yea, you could’ve used a regex and split it, done a 5 second ocular inspection, decided that it couldn’t be improved and left it at that but that wouldn’t be fun would it?……. ok. I got carried away.
So, anyway, I did some research, a lot of trial and error and the script I came up with not only removes any multiples of registered directories and missing ones in the PATH variable but also showcases some cool useful stuff you can do with a VBScript or command prompt, such as:
- Restarting current command prompt
- Which is good for reloading environment variables
START cmd /SEPARATE & EXIT
- Running an elevated command from within the script
- Grabbing output from another script
- Changing environment variables from within a script
- Checking whether or not you’re running in elevated mode
So the script looks like this and is ready to run with cscript or wscript from elevated or non elevated mode, the one thing I didn’t bother fixing in the end was to output the text from the elevated process to the first process if it’s restarted as elevated:
Dim application : Set application = CreateObject("Shell.Application") Dim shell : Set shell = CreateObject("WScript.Shell") Dim filesystem : Set filesystem = CreateObject("Scripting.FileSystemObject") Dim winMgmt : Set winMgmt = GetObject("WinMGMTS://./Root/CIMv2") Function Elevated() Dim waitOnReturn : waitOnReturn = true Dim windowStyle : windowStyle = 1 Dim execResult : Set execResult = shell.Exec("%comspec% /c whoami /groups | find ""S-1-16-12288""") Do While execResult.Status = 0 WScript.Sleep 100 Loop Dim output : output = execResult.StdOut.ReadAll If InStr(output, "S-1-16-12288") Then Elevated = true Else Elevated = false End If End Function If Not Elevated() Then WScript.Echo "Not running as elevated user, will restart with UAC control" WScript.Echo "Will now run as elevated in another window, to get effects afterwards this console will need to be restarted." WScript.Echo "To restart a command prompt use: START cmd /SEPARATE & EXIT" application.ShellExecute "cscript.exe", WScript.ScriptFullName, "", "runas", 1 WScript.Quit End If Function TrimTrailingSlash(path) If Right(path, 1) = Chr(92) Then ' Chr(92) = , used Chr to not mess up syntax highlighting TrimTrailingSlash = Left(path, Len(path) - 1) Else TrimTrailingSlash = path End If End Function Function InPath(totalPath, subPath) Dim caseInsensitive : caseInsensitive = 1 InPath = InStr(1, totalPath, subPath & ";", caseInsensitive) End Function Function InPathExpanded(totalPath, subPath) InPathExpanded = InPath(shell.ExpandEnvironmentStrings(totalPath), shell.ExpandEnvironmentStrings(subPath)) End Function Dim sysEnv : Set sysEnv = shell.Environment("SYSTEM") Dim pathEntries : pathEntries = Split(sysEnv("PATH"), ";") Dim path, newPath, folderPath, itemsSaved newPath = "" itemsSaved = 0 For Each path in pathEntries path = TrimTrailingSlash(path) folderPath = shell.ExpandEnvironmentStrings(path) If Not filesystem.FolderExists(folderPath) Then WScript.Echo "Folder missing, removing from path: " & path ElseIf InPath(newPath, path) Then WScript.Echo "Folder exists in path multiple times, skipping: " & path ElseIf InPathExpanded(newPath, path) Then WScript.Echo "Folder exists in expanded path (no %...%) multiple times, skipping: " & folderPath Else newPath = newPath & path & ";" itemsSaved = itemsSaved + 1 End If Next WScript.Echo "" WScript.Echo "Output path = " & newPath WScript.Echo "" Dim optimized : optimized = UBound(pathEntries) - itemsSaved + 1 WScript.Echo "Saving " & itemsSaved & " items, optimized " & optimized & " items." sysEnv("PATH") = newPath WScript.Echo "All done! If running in a command prompt you will need to restart it for effects to kick in." WScript.Echo "To restart a command prompt use: START cmd /SEPARATE & EXIT" WScript.Sleep 2000
If nothing else, I hope it could at least serve as an example of some scripting techniques.