Imports System.IO Imports System.Collections ' ricerca DNS OleDB su c:\programmi\file comuni\ODBC\Data Sources Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables() Dim de As DictionaryEntry For Each de In environmentVariables Debug.Print(" {0} = {1}", de.Key, de.Value) If UCase(de.Key) = UCase("CommonProgramFiles") Then RiempiCombo(de.Key & "\ODBC\Data Sources") Exit For End If Next de Path = C:\oracle\product\10.2.0\client_1\bin;c:\programmi\Ora9;c:\programmi\sapdb\indep_prog\bin;c:\programmi\sapdb\indep_prog\pgm;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;c:\Programmi\Microsoft SQL Server\90\Tools\binn\;C:\Programmi\Windows Imaging\;C:\Programmi\QuickTime\QTSystem\;C:\Programmi\Microsoft SQL Server\80\Tools\Binn\;C:\Programmi\Microsoft SQL Server\100\Tools\Binn\;C:\Programmi\Microsoft SQL Server\100\DTS\Binn\;C:\Programmi\Microsoft SQL Server\100\Tools\Binn\VSShell\Common7\IDE\;D:\Programmi\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies\;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\Programmi\Java\jdk1.6.0_13\bin TEMP = C:\DOCUME~1\xf35564\IMPOST~1\Temp SESSIONNAME = Console PATHEXT = .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.PSC1 USERDOMAIN = INAILUTENTI PROCESSOR_ARCHITECTURE = x86 SystemDrive = C: APPDATA = C:\Documents and Settings\xf35564\Dati applicazioni WecVersionForRosebud.121C = 2 DEFLOGDIR = C:\Documents and Settings\All Users\Dati applicazioni\McAfee\DesktopProtection windir = C:\WINDOWS VisualStudioDir = C:\Documents and Settings\xf35564\Documenti\Visual Studio 2008 __COMPAT_LAYER = EnableNXShowUI TMP = C:\DOCUME~1\xf35564\IMPOST~1\Temp UATDATA = C:\WINDOWS\system32\CCM\UATData\D9F8C395-CAB8-491d-B8AC-179A1FE1BE77 USERPROFILE = C:\Documents and Settings\xf35564 ProgramFiles = C:\Programmi FP_NO_HOST_CHECK = NO HOMEPATH = \Documents and Settings\xf35564 com.adobe.versioncue.client.appname = AdobeDrive CLASSPATH = .;C:\Programmi\Java\jre6\lib\ext\QTJava.zip USERNAME = XF35564 NUMBER_OF_PROCESSORS = 2 PROCESSOR_IDENTIFIER = x86 Family 15 Model 107 Stepping 2, AuthenticAMD VSEDEFLOGDIR = C:\Documents and Settings\All Users\Dati applicazioni\McAfee\DesktopProtection SystemRoot = C:\WINDOWS ComSpec = C:\WINDOWS\system32\cmd.exe LOGONSERVER = \\60000UTDC01 com.adobe.versioncue.client.appversion = 1.0.0 CommonProgramFiles = C:\Programmi\File comuni JAVA_HOME = C:\Programmi\Java\jdk1.6.0_13 PROCESSOR_LEVEL = 15 PROCESSOR_REVISION = 6b02 QTJAVA = C:\Programmi\Java\jre6\lib\ext\QTJava.zip lib = C:\Programmi\Microsoft.Net\Odbc.Net\ ALLUSERSPROFILE = C:\Documents and Settings\All Users VS90COMNTOOLS = D:\Programmi\Microsoft Visual Studio 9.0\Common7\Tools\ COMPUTERNAME = DG001055260 OS = Windows_NT USERDNSDOMAIN = INAILUTENTI.INAIL.PRI com.adobe.versioncue.client.applocale = it_IT HOMEDRIVE = C: |