cimec
-
Gesamte Inhalte
4 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von cimec
-
-
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.
-
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
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 ))))
-
Hallo Zusammen,
ich suche einen Parameter für die WinPowerShell indem mann angezeige DistributionLists nochmal aufklappen kann.
Also ich suche jetzt nach einer Bestimmten DL, habe aber in dieser auch nur DL's, will aber die untergeordneten Member gelistet bekommen.
hat jemand ne Idee?
USB Stick wird nicht mehr erkannt
in Hardware
Geschrieben
Hallo Zusammen,
mein alter USB Stick wird nichtmehr erkannt ("ich hab nix gemacht" )
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