Portierung 2003 / 2008 ADODB.Connection

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Portierung 2003 / 2008 ADODB.Connection

    Hallo zusammen,
    ich versuche jetzt seit 8 Stunden das Script auf einem 2008 Server zum laufen zu bekommen.

    Unter 2003 kein ding, da läuft es sauber!
    Unter 2008 stoße ich auf mehrere Fehler.

    Das Script habe ich im ersten Lehrjahr vor 4 Jahren geschrieben und jetzt möchte ich es erneut anwenden ...
    Ich habe es jetzt soweit das er mir unter XP 32bit normal läuft, wenn ich diese Datei auf den Server koppiere und ausführe kommt der Hinweis:
    ADODB.Fields: Item cannot be found in the collection corresponding to the requested name or odinal.

    Ich führe das Script über die shell mittels 32bit cscript.exe aus. Um sicherzustellen das es auch auf dem 64bit Server 2008 r2 in der Version 32bit ausgeführt wird.
    Der Fehler erscheint mir bei:     Leistungsklasse = objRecordset.Fields.Item("Klasse")

    Die bisher versuchten dinge, ich habe die JetODB.DLL überprüft das sie auf dem Aktuellsten Stand ist, ist sie.
    Ich habe es in 64bit sowie in 32bit ausgeführt.
    Ich habe begonnen es auf dieses ACE ding umzuschreiben, es aber aufgegeben weil ich den selben Fehler bekam. (Treiber selbstver. installiert.)

    Da ich mit dem googeln nicht mehr weiter komme und gerade anfange graue Haare zu entwickeln bitte ich euch um Hilfe,
    evtl. hatte einer von euch so ein Problem, oder kann mir den lösenden Tipp geben.

    PS: Ja ich weiß das Script ist nicht gerade elegant geschrieben, heute würde ich es auch anders Schreiben :) Azubi arbeit in der ersten Woche ;)


    Visual Basic-Quellcode

    1. Version:0.9
    2. StartHTML:00000107
    3. EndHTML:00038107
    4. EndFragment:00038067
    5. EndFragment:00000000
    9. Option Explicit
    10. Dim i, k, kontrolle, check, checker
    11. Dim strPathToTextfile, strFile, strComputer, Leistungsklasse, Namen, LK, Location
    12. Dim objConnection, objRecordSet, objWMIService, objNewPort, objPrinter, objPort
    13. Dim colInstalledPrinters, colInstalledPorts
    14. Dim fso, tFile, WshShell
    15. Dim port
    17. msgbox "Stellen Sie sicher das die CSV datei geschlossen ist!"
    18. port = inputbox("Geben sie den Drucker port ein!Standart 9100",vbok)
    20. Const adOpenStatic = 3
    21. Const adLockOptimistic = 3
    22. Const adCmdText = &H0001
    23. i =0
    24. k =0
    26. strPathtoTextFile = "."
    27. strFile = "liste.csv"
    28. strComputer = "."
    30. Set objConnection = CreateObject("ADODB.Connection")
    31. Set objRecordSet = CreateObject("ADODB.Recordset")
    32. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    34. Set colInstalledPrinters =  objWMIService.ExecQuery("Select * from Win32_PrinterDriver")
    35. Set colInstalledPorts =  objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort")
    38. objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
    39. objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPathtoTextFile & ";" & "Extended Properties=""text;HDR=YES;FMT=Delimited"""
    40. objRecordset.Open "SELECT * FROM " & strFile , objConnection, adOpenStatic, adLockOptimistic, adCmdText
    42. Do Until objRecordset.EOF
    43.     check = 0
    44.     checker = 0
    45.     kontrolle = 0
    47.     Leistungsklasse = objRecordset.Fields.Item("Klasse")
    48.     Namen = objRecordset.Fields.Item("Name")
    49.     Location = objRecordset.Fields.Item("Location")
    50.     
    51.     If Leistungsklasse = "LK1"            then 
    52.     LK = "RICOH Aficio SP 4210N PCL 6" 
    53.     ElseIf Leistungsklasse = "LK1a"        then
    54.     LK = "RICOH Aficio SP C420DN PCL 6"
    55.     ElseIf Leistungsklasse = "LK2"        then
    56.     LK = "RICOH Aficio MP 161 PCL 6" 
    57.     ElseIf Leistungsklasse = "LK2a"    then 
    58.     LK = "RICOH Aficio MP C2050 PCL 6" 
    59.     ElseIf Leistungsklasse = "LK3"        then 
    60.     LK = "RICOH Aficio MP 4000 PCL 6"
    61.     ElseIf Leistungsklasse = "LK4"        then 
    62.     LK = "RICOH Aficio MP C3300 PCL 6"
    63.     ElseIf Leistungsklasse = "LK5"        then 
    64.     LK = "RICOH Aficio MP 4000 PCL 6"
    65.     ElseIf Leistungsklasse = "LK6"        then 
    66.     LK = "RICOH Aficio MP 5001 PCL 6"
    67.     ElseIf Leistungsklasse = "LK7" then
    68.     LK = "RICHO Aficio MP C3500 PCL 6"
    69.     Else
    70.     LK = Leistungsklasse
    71.     End If
    72.     
    73.     For each objPrinter in colInstalledPrinters 
    74.         If  InStr(objPrinter.Name, LK) = 1 Then  
    75.             check = 1
    76.             kontrolle = 1
    77.         Else
    78.         End If
    79.     Next
    80.     
    81.     For Each objPort in colInstalledPorts 
    82.             If objPort.Name = Namen Then
    83.                 checker = 1
    84.                 kontrolle = 0
    85.             Else
    86.             End If
    87.     Next
    89.     
    90.     
    91.     
    92.     
    93.     If  kontrolle = 1 then 
    94.     
    96.         If Leistungsklasse = "LK5" or Leistungsklasse ="LK6" or Leistungsklasse = "LK7" then
    97.     
    98.             Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
    99.             objNewPort.Name = Namen
    100.             objNewPort.Protocol = 2
    101.             objNewPort.Queue = "lp"
    102.             objNewPort.HostAddress = Namen
    103.             objNewPort.SNMPEnabled = False
    104.             objNewPort.ByteCount = True
    105.             objNewPort.Put_
    106.         
    107.         Else 
    108.             Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
    109.                     
    110.             objNewPort.Name = Namen
    111.             objNewPort.Protocol = 1
    112.             objNewPort.HostAddress = Namen
    113.             objNewPort.PortNumber = port
    114.             objNewPort.SNMPEnabled = False
    115.             objNewPort.Put_
    116.                 
    117.         End If
    118.         
    119.         Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
    120.         objPrinter.DriverName = LK
    121.         objPrinter.PortName   = Namen
    122.         objPrinter.DeviceID   = Namen
    123.         objPrinter.Location = Location
    124.         objPrinter.Network = FALSE
    125.         objPrinter.Shared = True
    126.         objPrinter.ShareName = Namen
    127.         objPrinter.Comment = Namen & " / DHCP" 
    128.         objPrinter.EnableBIDI = True
    129.         objPrinter.Put_ 
    130.     
    131.         check = 3
    132.         checker = 3
    134.     i = i+1
    135.     End If
    136.     
    139.     If check = 0 and checker = 0 Then 
    140.         Set fso = CreateObject("Scripting.FileSystemObject")
    141.         Set tFile = fso.OpenTextFile("Fehler.txt",8,true)
    142.         tFile.WriteLine "Treiber _________ Drucker: -" & Namen & "- konnte nicht Installiert werden, weil der Treiber nicht vorhanden ist!"
    143.         tFile.close
    144.         k = k +1
    145.     ElseIf checker = 1 and check = 1 Then
    146.         Set fso = CreateObject("Scripting.FileSystemObject")
    147.         Set tFile = fso.OpenTextFile("Fehler.txt",8,true)
    148.         tFile.WriteLine "Port ____________ Drucker: -" & Namen & "- konnte nicht Installiert werden, weil der Port bereits vergeben war!"
    149.         tFile.close
    150.         k = k +1
    151.     ElseIf checker = 1 and check = 0 Then
    152.         Set fso = CreateObject("Scripting.FileSystemObject")
    153.         Set tFile = fso.OpenTextFile("Fehler.txt",8,true)
    154.         tFile.WriteLine "PORT & Treiber __ Drucker: -" & Namen & "- konnte nicht Installiert werden."
    155.         tFile.close
    156.         k = k +1
    157.     End If
    159.         
    160.      check = 0
    161.      checker = 0
    162.      err.Clear
    163.      
    164.      
    166.     
    167.   kontrolle = 0
    168.   objRecordset.MoveNext
    169.   
    170.   
    171.   
    172.   
    173.   
    174.   
    175.   Set WshShell = WScript.CreateObject("WScript.Shell") 
    176.   Set fso = CreateObject("Scripting.FileSystemObject") 
    177.   
    178.   
    179.   WshShell.Popup "In Bearbeitung", 1, "Working....."
    180. Loop
    182. msgbox "DONE - es wurden " & i & " Drucker inklusiv Portsangelegt."
    183. msgbox "Es wurden " & k & " Drucker nicht angelegt. Eine genaue Auflistung finden Sie in der Fehler.txt!"

    Krehk schrieb:

    Der Fehler erscheint mir bei:     Leistungsklasse = objRecordset.Fields.Item("Klasse")
    Wenn's auf den anderen Systemen läuft, kann's ja eigentlich nur ein Naming.Problem sein.

    Vielleicht musst du "[Klasse]" angeben.
    (wobei ich mir dieses Verhalten eher bei Name vorstellen könnte).

    Schau doch einfach mal nach, welche Fields sich in der Collection befinden.

    Visual Basic-Quellcode

    1. For each item in objRecordset.Fields
    2. MsgBox item.Name
    3. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo petaod,

    meine Test csv sieht wie folgt aus:

    Name;Klasse;Location
    GP-DEZ1-001; LK6; Köln-Deutz Bereich 11 EG A E01
    GP-DEZ1-001; LK6; Köln-Deutz Bereich 11 EG A E01

    Wenn ich mir den String ausgeben lasse bekomme ich alls angezeigt ausser Name; Klasse; Location;.
    Ich denke das ist auch korrekt, da ich das als DB anspreche und die erste Zeile der Header also der Bezeichenr ist.

    :) wie gesagt das problem kommt erst wenn ich es vom 2003 auf den 2008 Server ziehe :)

    Wenn ich es mit "[]" mache, sagt er mir das selbe, er findet es nicht.
    Wenn ich es mit [] mache, also ohne "", sagt er mir Variable nicht definiert.

    Das problem liegt irgendwie in der portierung nach 2008 und dem dort nicht mehr so einfachen Oledb.4.0 treiber...
    Aber ich habe das VBS schon als win32.exe kompiliert und es erzeugt den selben fehler ... :-/