Open Multiple Windows System Files With One Click
Posted on Jul, 2012 by Admin
1. You are on a windows platform.
2. You have Windows Scripting (WSH) enabled.
3. You have no security issues running VBS scripts.
The following code will pull up several system files in notepad all in one place. Save this code into a text file and then rename the extension to .vbs for it to become executable. Modify it to take out or add more by changing what is in the array. For example, taking out everything except the hosts file from the array will mean only the hosts file will be opened in notepad:
Set Sh = WScript.CreateObject("WScript.Shell") On Error Resume Next sOStype = Sh.RegRead(_ "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType") If Err.Number <> 0 Then Wscript.Echo " This doesn't appear to be an NT-like operating system;" _ & vbcrlf & "on Win9x use sysedit or msconfig." Else Set FSO = CreateObject("Scripting.FileSystemObject") dirConfPath = "%SYSTEMROOT%\System32\" fileset=Array("config.nt","autoexec.nt","drivers\etc\hosts", _ "drivers\etc\lmhosts","drivers\etc\networks", _ "drivers\etc\protocol","drivers\etc\services") On Error Resume Next For Each configfile In fileset Sh.Run "Notepad " & dirConfPath & configfile Next End If