DSN per Gruppenrichtlinien verteilen

[C_T]

Hallo liebe @Notesler,

ich hab da mal ne Frage und ich hoffe Ihr könnt mir helfen.

Und Sry das ichs hier ins OffTopic gepostet hab, wusste net genau wo ichs sonst hinschreiben sollte.


Folgende Aufgabenstellung:
Es sollen auf mehreren PCs ca 100Stk. an verschiedenen Standorten ein und dieselbe System-DSN eingerichtet werden (NotesSQL Driver).

NUn möchte ich das ungern auf jedem PC einzeln machen.

Daher die Frage, kann man z.B. per Gruppenverteilung über den Server eine System-DSN verteilen oder so?

Oder muss ich mir dann doch eher nen Programm dafür schreiben?



Schonmal Vielen Dank im vorraus.

MFG
CHristian

[BigWim]

Hallo Christian,

ich weiß nicht, ob die Idee praxistauglich ist. Unser Projekt ist da leider im Sande verlaufen ...

Ich hatte vor, die DSN zur Laufzeit zu erstellen. Vielleicht hilft es ja
Markus

Code

Declare Function RegCreateKey Lib "advapi32.dll"  Alias "RegCreateKeyA" (Byval hKey As Long, Byval lpSubKey As String, phkResult As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias  "RegSetValueExA" (Byval hKey As Long, Byval lpValueName As String, Byval Reserved As Long, Byval dwType As Long, lpData As Any, Byval cbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (Byval hKey As Long) As Long


.
.
.
sDSN_ZUD = "DSN_ZUD"
Call CreateDSNString (sDSN_ZUD)
.
.
.

	Private Sub CreateDSNString (DataSourceName As String)
'		Constant for a string variable type.
		Const REG_SZ = 1    
		Const HKEY_LOCAL_MACHINE = &H80000002
		
		Dim DatabaseName As String
		Dim Description As String
		Dim DriverPath As String
		Dim DriverName As String
		Dim LastUser As String
		Dim Regional As String
		Dim Server As String
		Dim Password As String
		Dim TrustedConnection As String
		
		Dim lResult As Long
		Dim hKeyHandle As Long
		
'		Specify the DSN parameters.
		DatabaseName = "<SQLDatenbank>"  
		Description = "Yes I can"   
		DriverPath = "C:\WINDOWS\system32\SQLSRV32.dll"
'		LastUser = "<User>"    
'		Password = "<Password>"
		Server = "<Servername>"    
		DriverName = "SQL Server"
		TrustedConnection = "Yes"
		
'		Create the new DSN key.
		lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" &  DataSourceName, hKeyHandle)
		
'		Set the values of the new DSN key.
		lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, Byval DatabaseName, Len(DatabaseName))
		lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ,  Byval Description, Len(Description))
		lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ,  Byval DriverPath, Len(DriverPath))
'		lResult = RegSetValueEx(hKeyHandle, "LastUser", 0&, REG_SZ,  Byval LastUser, Len(LastUser))
		lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, Byval Server, Len(Server))
		lResult = RegSetValueEx(hKeyHandle, "Trusted_Connection", 0&, REG_SZ, Byval TrustedConnection, Len(TrustedConnection))
		
'		Close the new DSN key.
		lResult = RegCloseKey(hKeyHandle)
		
'		Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
		lResult = RegCreateKey(HKEY_LOCAL_MACHINE,  "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", hKeyHandle)
		
'		Specify the new value.
		lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ,  Byval DriverName, Len(DriverName))
		
'		Close the key.
		lResult = RegCloseKey(hKeyHandle)

[C_T]

HI

Also das mit dem Script halte ich derzeit nicht wirklcih für ne sinnvolle lösung. Dachte man könnte das evtl irgendwie mit nem Servertask oder so verteilen.

Vielleciht hat ja sonst noch jemand ne idee von euch
sonst muss ich mal schaun das das mit dem script doch umgesetzt wird...