Теги обслуговування пакетних запитів Dell

Хтось знає про спосіб отримати купу інформації для переліку тегів обслуговування, чи має Dell на своєму сайті розділ для цього? Я також був би відкритий для будь-яких бібліотек Perl / Python або сценаріїв оболонки * nix.

Зараз я в основному хочу отримати якусь дату для кожного тегу.

Завантажте таку URL-адресу (замінюючи SVCTAG в кінці фактичним тегом служби) для кожного тегу:

http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&l=en&s=gen&ServiceTag=SVCTAG

Розбір отриманої сторінки на інформацію, яка вас цікавить, залишається читачем як вправа :-)

Додайте вашу систему на сайт підтримки dell, у розділ " Мої системи ". Ви можете обробляти до 100 систем.

Ви, звичайно, повинні мати акаунт на сайті Dell.

На жаль, я не знаю про пакетну систему для виконання цієї роботи, навіть якщо ви, звичайно, можете використовувати curl, snoopy або все, що вам відомо, щоб автоматично зробити логін, отримати список і проаналізувати результати.

Я знаю, що це старий пост, але я витратив на це пристойну кількість годин і думав, що допоможу всім іншим, хто зіткнувся з цим. Новий сайт Dell - це все javascript, і я не міг зрозуміти, як кодувати його, щоб запитувати дані службових тегів. Колись я думав використовувати замість них мобільний сайт (mobile = без JavaScript), і це працювало для мене, використовуючи perl / LWP, щоб перетягувати дані на кожен сервіс-тег. Я хакер з перла, тому хтось інший, можливо, зможе написати це трохи більш чисто. Нижче витягується оригінальний конфігурація системи. Ідея полягає в тому, що перша URL-адреса "отримати" тягне файл cookie з тегом служби, а друга URL-адреса витягує потрібні вам дані про тег служби. Потім ви можете проаналізувати "$ відповідь" другого отримання для даних, які шукаєте.

#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;

my $inputfile  = $ARGV[0];

my ($url,$response,$answer);

open (DATA, $inputfile) or die "Can't open $inputfile \n";
foreach my $serviceTag (<DATA>)
{
   chomp $serviceTag;
   print "\n$serviceTag";

   ##### Allow Cookies
   my $browser = LWP::UserAgent->new;
   $browser->cookie_jar({});
   $browser->cookie_jar( HTTP::Cookies->new(
      'file' => 'cookies.lwp',  # where to read/write cookies
      'autosave' => 0           # do not save it to disk when done
   ));

   # declare agent as mozilla, not perl LWP
   $browser->agent("Mozilla/8.0");

   my $urlPartA = "http://m.dell.com/mt/www.dell.com/support/troubleshooting/us/en/19/Servicetag/";
   my $urlPartB = "?s=BIZ&un_jtt_redirect";
   my $firstURL = join('', $urlPartA,$serviceTag,$urlPartB);
   #print "\nURL = $firstURL";


   $url = URI->new("$firstURL");
   $response = $browser->get( $url );
   $answer = $response->content;
   #print "\nAnswer:\n$answer\n\n";

   $url = URI->new('http://m.dell.com/mt/www.dell.com/support/troubleshooting/us/en/555/TroubleShooting?name=TroubleShooting_SystemConfigurationTab');
   $response = $browser->get( $url );
   $answer = $response->content;
   #print "\nAnswer:\n$answer\n\n";
}

Тег обслуговування, як правило, аналогічний серійному номеру.

Ця інформація містить клас WMI Win32_BaseBoard.SerialNumber. Google "wmi серійний номер", і ви знайдете кілька прикладних рішень для отримання цих даних. Ми використовуємо скрипт у час збирання, щоб назвати поле, використовуючи серійний номер та інші попередні символи як наші імена хостів робочої станції, що значно спрощує усунення несправностей у великій кількості клієнтів.

Тепер у Dell є можливість зберігати свої теги послуг. Вам потрібно створити логін з ними, і це все. Він також показує, які гарантії сервера закінчуються, і ви можете експортувати з нього.

#!/usr/bin/python

# dell_warranty.py v0.1
# Written by Frode Egeland <egeland[at]gmail.com> - Copyright 2009
# Released under the terms of the GNU GPL v3 - see http://www.gnu.org/licenses/gpl-3.0.html
#
# Version History
# 0.1 - 2009-10-12 - Frode Egeland - Initial version. Tested with a simple csv list of service tags only.
# 

import urllib2, csv, re
from BeautifulSoup import BeautifulSoup

url="http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&l=en&s=gen&ServiceTag=%s"

stlist = []

# generate a list of servicetags from a csv
csvfile = csv.reader(open('taglist.csv'))

for line in csvfile:
 for entry in line:
  stlist.append(entry)

fixdate = re.compile("(\d{1,2})\/(\d{1,2})\/(\d{4})")

print "Service Tag, Warranty Type, Provider, Start Date, End Date, Days Remaining"

for currtag in stlist:
 page = urllib2.urlopen(url % (currtag,))

 for line in page.readlines():
  if "Parts only Warranty" in line:
   soup = BeautifulSoup(line)
   break
 table = soup.find('table',{'class':"contract_table"})
 rows = table.findAll('tr')
 rows = rows[1:]
 for row in rows:
  output = "%s" % (currtag,)
  cells = row.findAll('td')
  for cell in cells:
   if cell.a: # link / formatted text
    txt = cell.a.string
   elif cell.b: # bold text
    txt = cell.b.string
   elif cell.i: # italic
    txt = cell.i.string
   else: #normal text
    txt = cell.string
   match = fixdate.search(txt)
   if match:
    txt = "%d-%d-%d" % (int(match.group(3)),int(match.group(1)),int(match.group(2)))
   output = "%s,%s" % (output,txt)
  output = output.strip()
  print output

Я знаю, що це досить стара тема (я знайшов її лише тому, що вона була пов’язана з більш новою), але, можливо, ви можете використовувати цей плагін nagios : nagios exchange

python check_dell_warranty.py
OK: Service Tag: tag Warranty: Next Business Day, Provider: DELL, Start: 2010-02-24, End: 2013-02-25, Days left: 860 Warranty: NBD ProSupport For IT On-Site, Provider: DELL, Start: 2010-02-24, End: 2013-02-25, Days left: 860

Сценарій запитує стандартний localhost, намагаючись dmidecode. Ви також можете запустити його на віддаленому хості за допомогою SNMP або ви можете запустити його з NRPE. Досить зручно.

dmidecode -s system-serial-number

поверне тег служби

ви можете використовувати ssh, щоб віддалено запустити його на всіх ваших системах партією. якщо, звичайно, вони працюють під управлінням Linux

У мене є сценарій автоматичного його створення, який створює файл csv зі списку тегів служби, переглядаючи веб-сайт служби підтримки Dell.

Ви можете дотримуватися тієї самої логіки, щоб витягти іншу інформацію та розмістити їх у форматі csv

http://fei-automation.blogspot.hk/2014/09/how-to-check-model-for-list-of-dell-pc.html

Примітка. Це відредагований репост цієї відповіді

Компанія Dell нещодавно змінила свій веб-сайт.

Я оновив вищевказаний сценарій Perl, щоб дозволити цю зміну.

Мене зацікавило лише скидання дати доставки кожної машини до текстового файлу, настільки проаналізованого, але я впевнений, що код можна легко змінити, щоб захопити будь-які дані, які ви хочете.

===

#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;
use Mojo::DOM;

my $inputfile  = $ARGV[0];

my ($url,$response,$html);
my $outputfile = "result.txt";
open (DATA, $inputfile) or die "Can't open $inputfile \n";
open OUTPUT, ">>".$outputfile or die "Could not open '$outputfile'\n";
foreach my $serviceTag (<DATA>)
{
   chomp $serviceTag;
   print "\n$serviceTag\n";
   print OUTPUT $serviceTag."\t";
   ##### Allow Cookies
   my $browser = LWP::UserAgent->new;
   $browser->cookie_jar({});
   $browser->cookie_jar( HTTP::Cookies->new(
      'file' => 'cookies.lwp',  # where to read/write cookies
      'autosave' => 0           # do not save it to disk when done
   ));

   # declare agent as mozilla, not perl LWP
   $browser->agent("Mozilla/8.0");
    #    
   my $urlPartA = "http://www.dell.com/support/home/us/en/19/product-support/servicetag/";
    #   configuration
   my $urlPartB = "/configuration";
   my $firstURL = join('', $urlPartA,$serviceTag,$urlPartB);
   #print "\nURL = $firstURL";

   $url = URI->new("$firstURL");
   $response = $browser->get( $url );
   $html = $response->content;
   #print "\nAnswer:\n$html\n\n";

   my @values;
   my $dom = Mojo::DOM->new;
   $dom->parse($html);
   my $skip;
   for my $dd ($dom->find('div.col-lg-4.col-md-4.col-sm-3.col-xs-6')->each) {
    push(@values, $dd->text) if $skip++;
    #print $dd->text, "\n" if $skip++;
   }
    print $values[1]."\n";
    if ( $values[1] =~ m/^(\d{1,2})\/(\d{1,2})\/(\d{4})$/ )

    {   # format date better for Excel
        #print OUTPUT $values[1]."\n";
        print OUTPUT "$3-$1-$2\n";
    }

    print $values[1]."\n";
    print "$3-$1-$2\n";
}


close OUTPUT or die $!;