Zum Inhalt springen

cimec

Mitglieder
  • Gesamte Inhalte

    4
  • Benutzer seit

  • Letzter Besuch

Beiträge von cimec

  1. Hallo Zusammen,

    mein alter USB Stick wird nichtmehr erkannt ("ich hab nix gemacht" :D )

    also diskpart zeigt weder das Volume noch die partionen an.

    im geräte manger wird der treiber als "unknown usb Device" angezeigt. keine aussagekräftige hardware id.

    disk manager zeigt. leider auch garnichts an.

    hat jemand noch ein Tipp für mich?

    Die Daten wären wichtig :)

    Danke Viele Grüße und einen schönen Sonntag noch :)

    cimec

  2. z.b.

    
    Set objExcel = CreateObject("Excel.Application")
    
     objExcel.Visible = True
    
     objExcel.Workbooks.Add
    
     intRow = 2
    
    
     objExcel.Cells(1, 1).Value = "Machine Name"
    
     objExcel.Cells(1, 2).Value = "Results"
    
    
     Set Fso = CreateObject("Scripting.FileSystemObject")
    
     Set InputFile = fso.OpenTextFile("MachineList.Txt")
    
    
     Do While Not (InputFile.atEndOfStream)
    
     HostName = InputFile.ReadLine
    
    
     Set WshShell = WScript.CreateObject("WScript.Shell")
    
     Ping = WshShell.Run("ping -n 1 " & HostName, 0, True)
    
    
     objExcel.Cells(intRow, 1).Value = HostName
    
    
     Select Case Ping
    
     Case 0 objExcel.Cells(intRow, 2).Value = "On Line"
    
     Case 1 objExcel.Cells(intRow, 2).Value = "Off Line"
    
     End Select
    
    
     intRow = intRow + 1
    
     Loop
    
    
     objExcel.Range("A1:B1").Select
    
     objExcel.Selection.Interior.ColorIndex = 19
    
     objExcel.Selection.Font.ColorIndex = 11
    
     objExcel.Selection.Font.Bold = True
    
     objExcel.Cells.EntireColumn.AutoFit 
    
    

    tut mein ping aber bekomm den nslookup nicht rein.

  3. Hallo zusammen,

    ich bin seid längerer Zeit auf der Suche nach einen guten Script das mir ein paar DNS einträge in einer alten Zone die ggf. ausgemistet werden soll durchcheckt. alte DNS einträge (Ü500) manuel ausmisten ist eklig :D

    da wir IT'ler ja allgemein faul sind aber uns die faulheit erst erarbeiten müssen, zerbrech ich mir seid einer gewissen Zeit den kopf über sämtliche Scripts.. nungut, ich hab das mal in pseudocode veranschaulicht.

    Zustand 1 = ok.

    Zustand 0 = nicht ok.

    ping "hostname" + domainname

    case1: (0)

    --> schreibe in logdatei

    case2: (1)

    do nslookup --> schreibe in loggdatei

    wäre für .vbs - .ps1 für alle schweinerein offen ;-)

    habe schon diverse Sachen probiert, aber bin leider immer mal wieder auf die schnautze gefallen :(

    Vieleicht kann mir einer von euch schlauen FIAE helfen :)))))

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...