Jeenne

Das ist leider auszuschließen, da Office 2003 zum Einsatz kommt...

Nein, finde leider nichts. Hmm... so langsam weiß ich nicht mehr wo ich suchen soll und wo das Problem ist... Hast du noch einen Link wo ich nachlesen kann wie die Textdatei aussehen muss, damit sie für eine SQL Abfrage verwenden kann? Z.B. wie muss die Überschrift dort stehen? Oder ... "Tab oder ;?

Nein das ist immer noch ANSI. Habe wie gesagt die Textdatei jetzt direkt in dem Query um etwas zu testen (Also SELECT * FROM text.txt WHERE ....). Damit nimmt sich das Script die Datei aus dem Temp Ordner. Wenn ich jetzt z.B. mal komplett leer mache, sagt er mir nur "Query must have at least one destination field", aber er macht in dem Sinne den Fehler nicht mehr, daher denke ich dass der Fehler hier liegt, oder?

Also die Connection funktioniert ohne Probleme... Habe jetzt mal ein wenig mit dem SQL Statement rumgespielt, jetzt sieht es ein wenig danach aus , dass er die txt Datei nicht richtig einliesst. Habe die txt. Datei auch einmal direkt angesprochen, doch hier hat er wieder Probleme... Weißt du wodran es liegen kann?

Ich habe das Gefüll es liegt in der Connecation, dass er damit nicht umgehen kann, ist das möglich? ' ADO-Objekte Set objConn = CreateObject("ADODB.Connection") ' weitere Objekte Set objNetwork = CreateObject("WScript.Network") Set objShell = CreateObject("Wscript.Shell") Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strTemppfad & ";" & _ "Extended Properties=""text;HDR=YES;FMT=Delimited""" und... set objRS = objConn.Execute()

Hmm... schade...

Auf dem PC wo es nicht funktioniert, stehen auch noch jede Menge TMP File's, welche auf dem anderen, wie es aussieht danach gelöscht werden.

Moin, wie folgt sind die Ergebnisse: Hier funktioniert es: Temppfad ist: C:\DOCUME~1\testuser\LOCALS~1\Temp C:\Documents and Settings\testuser\Desktop\Druckerverbindung.vbs(46, 2) Microsof t JET Database Engine: No value given for one or more required parameters. Hier funktioniert es nicht: Temppfad ist: C:\DOKUME~1\testuser\LOKALE~1\Temp

Nicht wundern, ich habe es gerade unter einer Englischer Installation getestet. Die aber genau die gleiche Fehlermeldung erzeugt. Die Select-Ausgabe ist folgende: SELECT * FROM radE6201.tmp WHERE DruckerAlt = 'Microsoft XPS Document Writer' C:\Documents and Settings\testuser\Desktop\Druckerverbindung.vbs(47, 2) Microsoft JET Database Engine: No value given for one or more required parameters.

Nein, hier ist leider kein Unterschied. Es wird Windows XP 32Bit verwendet, nur das die neuen Installationen mit einem Multilanuage System installiert werden, wo dann Deutsch ausgewählt wird.

Hallo zusammen, ich habe folgendes Problem: Ich würde gerne auf Client Rechnern alte gegen neue Drucker austauschen, nachdem ich den neuen Printserver online habe. Auf deutschen Systemen funktioniert es ohne Probleme, aber auf Multilanguage Systemen bringt es leider die Fehlermeldung "Code:80040E10 Error:Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben" und zeigt auf die Zeile mit "set objRS = objConn.Execute("SELECT * FROM " & strTabelle & " WHERE DruckerAlt = '" & strDruckerAlt & "'")". Seht einer an dem Script das Problem? Script: ' Region Description ' ' Name: Druckerverbindung.vbs ' Author: Nils Kaczenski ' Version: 1.0 ' Description: Ersetzt Windows-Netzwerkdruckerverbindungen im aktuellen Benutzerprofil ' durch andere Verbindungen. Die alten und neuen Verbindungsdaten sind in einer Textdatei ' angegeben. Nützlich bei Drucker-Migrationen. ' Für die Fachzeitschrift IT-Administrator, 2006 ' Freie Weitergabe des Skriptcodes erlaubt. Keine Gewähr! ' ' EndRegion ' Pfad zur Druckerdatei strDBPfad = "<Mein Druckerpfad>" ' Druckerdatei temporär kopieren, um Sperrkonflikte zu umgehen Set objFSO = CreateObject("Scripting.FileSystemObject") Set objDBDatei = objFSO.GetFile(strDBPfad) strDBDateilokal = objFSO.GetTempName strTemppfad = objFSO.GetSpecialFolder(2) strDBPfadlokal = objFSO.BuildPath(strTemppfad, strDBDateilokal) objDBDatei.Copy strDBPfadlokal ' Tabelle hier: Name der Textdatei strTabelle = strDBDateilokal ' ADO-Objekte Set objConn = CreateObject("ADODB.Connection") ' weitere Objekte Set objNetwork = CreateObject("WScript.Network") Set objShell = CreateObject("Wscript.Shell") Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strTemppfad & ";" & _ "Extended Properties=""text;HDR=YES;FMT=Delimited""" strText = "" ' Druckerverbindungen des Benutzers durchlaufen Set colDrucker = objNetwork.EnumPrinterConnections ' Im jeweils zweiten Wert steht der Druckername For i=0 To colDrucker.Count-1 Step 2 strDruckerAlt = colDrucker(i + 1) ' In Datenbank nach der aktuellen Verbindung suchen set objRS = objConn.Execute("SELECT * FROM " & strTabelle & " WHERE DruckerAlt = '" & strDruckerAlt & "'") ' Falls Drucker gefunden (objRS nicht leer) ... If Not objRS.EOF Then ' ... neuen Drucker herausfinden strDruckerNeu = objRS("DruckerNeu") ' ... und verbinden DruckerSetzen strDruckerAlt, strDruckerNeu End If Next ' Erfolg melden If strText <> "" Then objShell.Popup strText, 10, "Drucker wurden erfolgreich umbenannt." End If ' Lokale Textdatei schließen und löschen objRS.Close Set objDBDateilokal = objFSO.GetFile(strDBPfadlokal) objDBDateilokal.Delete Sub DruckerSetzen(strDruckerAlt, strDruckerNeu) ' ist der alte Drucker der Standarddrucker? strDruckerWQL = Replace(strDruckerAlt, "\", "\\") strWQL = "SELECT Default FROM Win32_Printer " _ & "WHERE Name = '" & strDruckerWQL & "'" Set colPrinters = objWMI.ExecQuery(strWQL) If colPrinters.Count > 0 Then For Each objPrinter In colPrinters If objPrinter.Default = vbTrue Then flgDefault = True Else flgDefault = False End If Next End If ' alte Verbindung entfernen objNetwork.RemovePrinterConnection strDruckerAlt, True, True strText = strText & strDruckerAlt & " entfernt." & VbCrLf ' neue Verbindung hinzufügen objNetwork.AddWindowsPrinterConnection strDruckerNeu strText = strText & strDruckerNeu & " hinzugefügt." & VbCrLf If flgDefault Then objNetwork.SetDefaultPrinter(strDruckerNeu) strText = strText & strDruckerNeu & " ist Standarddrucker." & VbCrLf End If End Sub Vergleichsdatei: DruckerAlt;DruckerNeu "\\AlterDruckserver\AlterName";"\\NeuerDruckserver\NeuerName"