get-vpn-proxy-values.vbs
| HKEY_CURRENT_USER = &H80000001 | |
| strComputer = "." | |
| Const ForAppending = 8 | |
| strComputer = "." | |
| 'Setup text file to write results to | |
| Set fso = CreateObject("Scripting.FileSystemObject") | |
| Set objTextFile = fso.OpenTextFile("C:\temp\proxy.txt",ForAppending, True) | |
| dim iValues(1) | |
| Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") | |
| strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections" | |
| ' | |
| ValueName = "DefaultConnectionSettings" | |
| objReg.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, ValueName, iValues | |
| objTextFile.WriteLine ValueName & ": " & VbCrLf | |
| For i = lBound(iValues) to uBound(iValues) | |
| objTextFile.Write iValues(i) & "," | |
| Next | |
| objTextFile.WriteLine VbCrLf & "********************************************************************" | |
| ' | |
| ValueName = "RandomVPN2" | |
| objReg.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, ValueName, iValues | |
| objTextFile.WriteLine ValueName & ": " & VbCrLf | |
| For i = lBound(iValues) to uBound(iValues) | |
| objTextFile.Write iValues(i) & "," | |
| Next | |
| objTextFile.WriteLine VbCrLf & "********************************************************************" | |
| ' | |
| ValueName = "RandomVPN2" | |
| objReg.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, ValueName, iValues | |
| objTextFile.WriteLine ValueName & ": " & VbCrLf | |
| For i = lBound(iValues) to uBound(iValues) | |
| objTextFile.Write iValues(i) & "," | |
| Next | |
| objTextFile.WriteLine VbCrLf & "********************************************************************" |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment