Jump to content

bergesel

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    372

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von bergesel

  2. DSN=eventlog Fehler

    in Windows Forum — Scripting

    Geschrieben

    ...so wie es aussieht müsste ich ODBC konfig.

     

    Möchte dies aber mit dem OLE DB Provider lösen. Ich weis nur nicht wie ich das in das script einbaue!

     

     

    Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;User ID=MeineUserID;Initial Catalog=wartung;Data Source=Mein Server.

     

    Das ziel ist, dass ich das eventlog in SQL Schreiben kann. Jemand ein plan? ;-)

     

    gruss

  3. DSN=eventlog Fehler

    in Windows Forum — Scripting

    Geschrieben

    Hallo zusammen

     

    ich habe hier ein script was mir das eventlog in eine SQL DB schreiben soll. nun bekomme ich ein fehler mit der Zeile "DSN=eventlog". meine frage ist nun was muss ich bei DSN eingeben oder was ist falsch daran. ist fast org. script von script portable. ich weis zwar was DSN heisst abe nicht auf was er die Source bezieht!

     

    danke um hilfe

    hier mein script:

     

    Set objConn = CreateObject("ADODB.Connection")

    Set objRS = CreateObject("ADODB.Recordset")

     

    objConn.Open "DSN=EventLogs;" "!!!!hier bekomm ich die fehlermeldung!!!!"

    objRS.CursorLocation = 3

    objRS.Open "SELECT * FROM tabelle1" , objConn, 3, 3

    strComputer = "."

     

    Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colRetrievedEvents = objWMIService.ExecQuery _

    ("Select * from Win32_NTLogEvent")

     

    For Each objEvent in colRetrievedEvents

    objRS.AddNew

    objRS("Category") = objEvent.Category

    objRS("ComputerName") = objEvent.ComputerName

    objRS("EventCode") = objEvent.EventCode

    objRS("Message") = objEvent.Message

    objRS("RecordNumber") = objEvent.RecordNumber

    objRS("SourceName") = objEvent.SourceName

    objRS("TimeWritten") = objEvent.TimeWritten

    objRS("Type") = objEvent.Type

    objRS("User") = objEvent.User

    objRS.Update

    Next

     

    objRS.Close

    objConn.Close

    –

    ...muss ich eine ODBC schnittstelle konfig?

  9. Script für SQL Anweisung (variablen fehler?)

    in MS SQL Server Forum

    Geschrieben

    Hallo zusammen

     

    ich bin noch ein dummi in SQL und vb scripten. Nun habe ich mir mal ein Script erstellt und hab ein Fehler bei der variable "computername". bringt mir immer ein fehler bei der variablen. ich denke es liegt am Syntax meines scriptes. Habe einmal eine WMI abfrage auf zeit und eine auf Hostname die er dann in sql eintragen soll.

     

    Und das ist mein script:

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")

    For Each objItem in colItems

     

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

    Set colItems1 = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)

    For Each objItem1 in colItems

     

    dim computername

     

    dim day

    dim week

    dim hour

    dim minute

    dim month

    dim quarter

    dim second

    dim weekinmonth

    dim year

     

    day = objItem.Day

    week = objItem.DayOfWeek

    hour = objItem.Hour

    minute = objItem.Minute

    month = objItem.Month

    quarter = objItem.Quarter

    second = objItem.Second

    weekinmonth = objItem.WeekInMonth

    year = objItem.Year

    computername = objItem.DNSHostName "Dies ist die Variable(fehler)"

     

    set db = CreateObject("ADODB.Connection")

    db.Open("Provider=SQLOLEDB.1;Data Source=MeinServer; Trusted_Connection=Yes;Initial Catalog=wartung;User ID=sa;Password=xxx;")

    sql = "use wartung;"

    set rs = db.Execute(sql)

     

    sql = "insert into wartung (day, year, dayofweek, hour, minute, month, quarter, second, weekinmonth, computername)"

    sql = sql & "values ('" & day & "','" & year & "','" & week & "','" & hour & "','" & minute & "','" & month & _

    "','" & quarter & "','" & second & "','" & weekinmonth & "','" & computername & "');"

    db.Execute(sql)

     

    Next

  11. Tabelle Einfügen

    in MS SQL Server Forum

    Geschrieben

    Hallo zusammen

     

    ich habe folgende situation. ich möchte gerne von einem vbs scribt die informationen in eine bestehende sql DB einfügen.

     

    dies sieht so aus:

    Das scribt erstellt auf den clients ein text file mit zeit und Datum. Danach möchte ich die Daten in MS sql in eine bestehende DB einfügen damit ich sehe ob die zeit und datum auch stimmen von den clients. scribt ist schon vorhanden.

    nun möchte ich die informationen eben in die DB einfügen. welche anweisung muss ich im scribt machen damit es in sql eingetragen wird

     

    danke

    bergesel

  15. regkey installieren für user

    in Windows Server Forum

    Geschrieben

    eventviewer = Application:

     

    UserInit: "computer" / Event ID 1000 / user N/A

     

    Could not execute the following script \\server\netlogon\testlogin.cmd. Access denied

     

    auf dem share(netlogon) habe ich explizit full control auf den pc und user :)

    unter security(netlogon) habe ich für beide read, execute und listfolder

     

    im gpo habe ich für die reg die permission fullcontroll auf user und pc :) unter local machine ganzer knoten software :)

  16. Boardtreffen in der Schweiz?

    in Off Topic

    Geschrieben

    ..ich würde mal sagen, das wir uns irgend wo zentral treffen würden.

     

    glaub namensschilder sind nicht erforderlich :)

     

    dann halbwegs eine gute laune! was geredet wird sich ja dann zeigen oder?

    denke nicht das wir ein themenprogramm erstellen müssen um ein gespräch zu führen! :D

    ausser es ist gewünscht über longhorn und exploits explizit zu diskutieren!!

     

    ich würde einfach mal sagen, dass wir mal den ort aussuchen was für alle ok ist und dann erst datum zeit.

     

    ich währ für zürich als zentraler ort, auch wen ich von basel bin:D

     

    so ihr seit dran.

  17. regkey installieren für user

    in Windows Server Forum

    Geschrieben

    sry ich schon wieder!!

     

    habe nun im eventviewer nachgesehen mit meldungen. der sagt mir das ich ein access denied habe auf diese cmd. nun ist aber der pc und der user auf diesen ordner berechtigt. dies ist nur der fall wenn ich unter script->start (computerteil) das script hinterlege. wenn ich es beim user mache geht das(habe die reg berechtigungen im gpo noch für software gesetzt). haben aber beide die selben berechtigungen.

    verstehe nicht wieso er den pc ignoriert oder access denied meldet.

     

    habe keine anderen GPO einstellungen vorgenommen, ausser was das msi paket betrifft und script.

     

    könnte sein das der citrix agent im prozess läuft und den key nicht einfügen will? kann mir dies einfach nicht plausiebel nachvoll ziehen, dass ist mein problem und nervt mich extrem!! :)

     

    gruss und vielleicht eine einleuchtende erklärung!!

     

    bergesel

×
×
  • Neu erstellen...