顯示文章

這裡允許您檢視這個會員的所有文章。請注意, 您只能看見您有權限閱讀的文章。


文章 - shane0711

頁: [1] 2
1
程式討論版 / Expect語法問題
« 於: 2011-02-18 01:18 »
各位大大好,小弟最近想用expect搭配perl寫一支script來scan DELL server drac底下的網卡info ,但是目前只能一個一個IP查,希望可以將所有IP寫在一個host_ip.txt檔案
讓script讀取然後把值print出來,麻煩請各位大大提供一下意見,以下為我目前的語法

#!/usr/bin/perl

use Expect;
use Getopt::Long;

my $host;
my $user="root";
my $ssh="/usr/bin/ssh";
my $pwd="123456";
my $prompt=".*\/admin1.*";
my $search=".*iSCSI.*";
my $conn_timeout=60;
my $cmd_timeout=60;
my $send_cmd="racadm racdump";
my $log_stdout=0;
my $help;
my $result = GetOptions (
                "host=s"        =>      \$host,
                "user=s"        =>      \$user,
                "ssh=s"         =>      \$ssh,
                "pwd=s"         =>      \$pwd,
                "prompt=s"      =>      \$prompt,
                "regex=s"       =>      \$search,
                "sendcmd=s"     =>      \$send_cmd,
                "timeoutcon=i"  =>      \$conn_timeout,
                "timeoutcmd=i"  =>      \$cmd_timeout,
                "logstdout=i"   =>      \$log_stdout,
                "help"          =>      \$help
        );

die "Must specify -host" if !$host;
my @params;
push @params, "$user\@$host";
my $command=$ssh;
my $prmpt_regex=$prompt;
my $search_regex=$search;

my $e = new Expect();
$e->raw_pty(1);
$e->log_stdout($log_stdout);
$e->spawn($command,@params) or die "failed to spawn";

my $pat = $e->expect(10, "-re",".*password:.*");
$e->send("$pwd\n");

my $prm = $e->expect(10, "-re", $prompt);
$e->send("$send_cmd\n");

my @d  = $e->expect(15, "-re", $prompt);
$e->send("exit\n");
my @data = split("\n",$d[3]);

while (my $l = shift(@data)) {
        print "$l\n" if ( $l =~ $search);
}


另外,因為我還想同時search drac mac以及current ip ,如果要一次把這三個結果都print出來,該怎麼做呢?  麻煩請各位大大幫忙囉

2
Linux 討論版 / Expect語法問題
« 於: 2011-02-18 00:24 »
各位大大好,小弟最近想用expect搭配perl寫一支script來scan DELL server drac底下的網卡info ,但是目前只能一個一個IP查,希望可以將所有IP寫在一個host_ip.txt檔案
讓script讀取然後把值print出來,麻煩請各位大大提供一下意見,以下為我目前的語法

#!/usr/bin/perl

use Expect;
use Getopt::Long;

my $host;
my $user="root";
my $ssh="/usr/bin/ssh";
my $pwd="123456";
my $prompt=".*\/admin1.*";
my $search=".*iSCSI.*";
my $conn_timeout=60;
my $cmd_timeout=60;
my $send_cmd="racadm racdump";
my $log_stdout=0;
my $help;
my $result = GetOptions (
                "host=s"        =>      \$host,
                "user=s"        =>      \$user,
                "ssh=s"         =>      \$ssh,
                "pwd=s"         =>      \$pwd,
                "prompt=s"      =>      \$prompt,
                "regex=s"       =>      \$search,
                "sendcmd=s"     =>      \$send_cmd,
                "timeoutcon=i"  =>      \$conn_timeout,
                "timeoutcmd=i"  =>      \$cmd_timeout,
                "logstdout=i"   =>      \$log_stdout,
                "help"          =>      \$help
        );

die "Must specify -host" if !$host;
my @params;
push @params, "$user\@$host";
my $command=$ssh;
my $prmpt_regex=$prompt;
my $search_regex=$search;

my $e = new Expect();
$e->raw_pty(1);
$e->log_stdout($log_stdout);
$e->spawn($command,@params) or die "failed to spawn";

my $pat = $e->expect(10, "-re",".*password:.*");
$e->send("$pwd\n");

my $prm = $e->expect(10, "-re", $prompt);
$e->send("$send_cmd\n");

my @d  = $e->expect(15, "-re", $prompt);
$e->send("exit\n");
my @data = split("\n",$d[3]);

while (my $l = shift(@data)) {
        print "$l\n" if ( $l =~ $search);
}


另外,如果想一次print出來兩種search的值又該怎麼做呢? 謝謝囉

3
我現在只是很單純的使用一台Linux FC5f去對windows2003作minitor  , server上均已安裝NSClient++  ,

就是不知道要怎麼monitor  windows2003上面的total_processes  ,我找了好久都沒有資料 ,請大大

門提供我作法讓我有個方向..Thanks

4
謝謝大大的回覆,目前其他監控項目都沒有問題,已可監控到CPU,Memory,Nsclient++

目前就是不清楚再windows.cfg裡面的check total_processes的command該怎麼作


麻煩幫忙囉,Thanks

5
各位大大你們好,小弟想請教一個問題,這陣子用FC5架設了Nagios來監控所有windows2003的監控,目前遇到一個問題

若我要使用nagios來監控windows 2003的Total processes應該怎麼作呢?

麻煩各位大大幫忙,小弟真的是找不到網路上的資料,Thanks

6
Linux 討論版 / Apache Log收集
« 於: 2008-07-10 11:19 »
請問一下各位學長,我這邊有大約20台的Apache Server,我現在想要做webalizer讓公司內部的某些使用者可以清楚看到一些檔案下載的情形。
每台apache server都各有各的Log存放在/Files,每天半夜三點把Log tar起來以後丟到中控機。
我現在必須做的可能是要撰寫一個script讓他每天把中控機tar過的Log解壓縮之後再cat到同一份檔案,因為我對script不是很熟,想請各位幫忙指點一下
我這支Script要怎麼撰寫,或是有別的方法可以使用取代,麻煩各位~謝謝

7
請問各位大大,我有兩個Table
TableA,TableB

TableA裡面有個欄位是id,TableB裡面也有個欄位是id

請問我要如何下語法可以去比對TableA和TableB重付的ID呢?

8
BSD 討論版 / 關於Fresbse Port的loadbalance !
« 於: 2006-11-15 13:43 »
想請問各位大大,現在我有一台機器對外是開放10002Port讓玩家進來做認證.可是因為假日人數太多服務常常會掛掉~所以我想做loadbalance的功能~讓玩家連進來的時候是順序連到兩台機器作認證~因為我一直找不到freebsd有關這方面loadbalance的套件~請請問各位大大有沒有辦法解決這各問題呢?

9
Linux 討論版 / samba中文問題!
« 於: 2005-03-30 12:14 »
各位大大,小弟使用Redhat as2架了一台PDC !
從SAMBA SHARE出來的中文檔案從MS的CILENT看都是亂碼!
請問是哪裡的問題呀?


用的SAMBA版本為
samba-client-3.0.2-6.3E
samba-3.0.2-6.3E
redhat-config-samba-1.0.16-1
samba-common-3.0.2-6.3E

10
Linux 討論版 / 關於samba權限問題!
« 於: 2005-03-04 15:41 »
想請教各位學長們!
  我利用samba分享了一些資料夾出來!例如MP3的資料夾,請問有辦法限制
  user們只能丟MP3格式的檔案進這個資料夾嗎?

  請學長們指教!謝謝

11
Linux 討論版 / 關於Diskarray?
« 於: 2005-01-26 18:04 »
請問各位大大一下;
我有兩台samba server想做samba的ha cluster! 
兩台samba都接到一台Diskarray上面,也同時都把diskarray分別掛載在個別的home目錄下,那如果我在PCA的HOME下面加個目錄那在HOSTB的HOME目錄下不是也應該看的到嗎?想請問各位大大!是要在Diskarray下設定還是要在linux上面作設定呢?

謝謝各位大大!

12
Linux 討論版 / 關於PDC問題
« 於: 2005-01-11 11:05 »
請問各位大大一下!我使用Linux Enterprise as2架了一台PDC,
當我的client端(win xp)加入domain之後,想要改密碼,卻出現
'系統目前無法變更你的密碼,因為網域無法使用',但是密碼還是改掉了,
請問各位大大是什麼問題呀?

13
Linux 討論版 / 關於RedHat Enterprise !
« 於: 2005-01-06 11:06 »
請問各位大大!我想用linux enterprise as 2作samba的 HA Cluster,
那Cluster的RedHat Cluster Suite Update2這各套件的光碟該如何取得呢?
或是哪裡有下載點呢?
謝謝各位大大

14
Linux 討論版 / 請問iowait是什麼意思?
« 於: 2004-12-27 16:03 »
請問各位學長們!
top指令裡面有一個iowait是什麼意思呢?

15
MIS 討論區 / 收集公司主機名稱和ip?
« 於: 2004-12-25 10:03 »
想請教一下各位大大~我對程式不是很熟!
我想收集公司所有使用的電腦名稱以及所使用的ip...請問該用什麼方式比較好?
不知道有沒有什麼軟體可以做得到?linux或windows的都可以~

謝謝各位大大囉

16
各位學長好:
小弟有兩個問題想要請教一下!
1.小弟架了一台pdc fileserver!旦是遇到一個問題!當我想從原來的solaris files server 把資料轉移過來!字形方面要如何設定才不會變成亂碼?
2.在linux一開機時有一個check new hardware要如何把他關掉?

小弟使用的版本是linux enterprise as2的版本!謝謝各位學長們的指導!^^

17
LDAP 討論區 / LDAP設定問題!
« 於: 2004-12-02 17:54 »
學長們!幫幫忙唷!
   寫了兩天寫不出來@@
我的Manager.ldif設定檔:
dn: o=startravel, dc=files, dc=com, dc=tw
o: startravel
objectClass: organization
dn: cn=Manager, o=startravel, dc=files, dc=tw
objectClass: inetOrgPerson
uid: root
cn: root
sn: root

錯誤訊息為:
adding new entry "o=startravel, dc=files, dc=com, dc=tw"
ldap_add: Undefined attribute type
        additional info: dn: attribute type undefined

ldif_record() = 17


我domain:files.com.tw
組織名稱:startravel
ldap管理員:Manager

拜託各為學長幫個忙!

18
LDAP 討論區 / LDAP設定問題!
« 於: 2004-12-01 17:51 »
那請問一下!我的BND.ldif到底該怎麼打才對呀
我domain:files.com.tw
組織名稱:startravel
ldap管理員:root

謝謝!

19
LDAP 討論區 / LDAP設定問題!
« 於: 2004-12-01 16:10 »
各位大大大們!小弟在設定頻頻出現錯誤訊息
編輯BDN.ldif檔:
dn: dc=files, dc=com, dc=tw
dc: files
objectClass: organization
o: startravel
dn: cn=root,dc=files,dc=com,dc=tw
objectClass: inetOrgPerson
cn: root
uid: root
sn: root
 
使用
ldapadd -f BDN.ldif -D "cn=root,o=startravel,dc=files,dc=com,dc=tw" -w secret -x
發生的錯誤訊息為
adding new entry "dc=files, dc=com, dc=tw"
ldap_add: No such object

ldif_record() = 32
不知到各位大大有沒有看出我錯的地方呀?
我使用的samba為
samba-3.0.2-6.3E

20
Linux 討論版 / 關於samba Cluster
« 於: 2004-11-29 11:37 »
請問各位大大,我想要架samba的cluster,有沒有哪裡有這種的相關書籍的呢?

21
Linux 討論版 / 一直被退信問題!
« 於: 2004-11-24 14:46 »
telnet進去都沒有問題....
此外!我發現一個問題!就是當我寄給哪家公司的時候<假如是mail.com.tw>,
但是信被退回來之後卻是說找不到另一台主機<smtp.mail.com.tw>但是我利用nslookup指令兩台都查的到!請問各位大大,會是什麼樣的問題呢?

22
Linux 討論版 / 一直被退信問題!
« 於: 2004-11-23 11:46 »
請問各位大大一個問題
我用LInux架了一台sendmail!當信寄出去某一家公司的時候一直會被退信,我用nslookup查的到他的mail server....但是ping不到!請問是不是被她們的防火強擋掉了..或是其他的一些問題!請大家指導一下!謝謝!

<寄給其他家公司都不會,就寄給那特定一家都會被退>

23
Linux 討論版 / 有關samba domain問題!
« 於: 2004-11-19 15:50 »
我用SAMBA架了一台PDC,而我所提供的帳號要如何能讓該帳號登入SAMBA
>  DOMAIN的時候能有ADMINISTRATOR的權限(作業系統為XP),
> 這各問題讓我搞了好久,謝謝!
>
> 拜託拜託!

24
Linux 討論版 / 帳號問題
« 於: 2004-11-16 14:26 »
請問各位高手一下
  我sambaPDC開放出來的帳號要如何使其帳號能在她們的WINXP上有administrator的權限?

25
Linux 討論版 / 關於SAMBA作PDC的問題
« 於: 2004-11-16 10:45 »
想請問各位大大一個問題
現在公司的FILE SERVER常出問題,經理要求我用SAMBA架一台PDC出來,再這幾天的試驗我發現一各問題想請各位大大指導一下
因為現在公司三百多個人還沒加入DOMAIN而且都有自己桌面以及自己的一些資料
那我如果把他加入PDC以後資料是不是都會不見,如果有辦法保留的話請問要怎麼作呢?


請各位大大幫忙指導一下!謝謝唷︿︿

26
請問各位大大,當我的XP要加入SAMBA網域的時候一直出現下的錯誤訊息


     無法連絡網域oc101的網域控制站

我怎麼事都是這各問題!不知道有沒有人遇到過呢?希望大大們能指導一下!

27
Linux 討論版 / [問題]請問各位學長們!
« 於: 2004-11-15 10:32 »
最近公司FILESERVER常出問題!所以經理希望我用SAMBA重架一台當PDC,但是小弟試了幾天之後發現一個問題,因為公司大概有三百多人,當每個人一開機登入samba的時候讀取自己的PROFILE好像會很久,想請問大家一下PROFILE這邊需要作蛇麼相關設定嗎?或是哪裡有相關書籍可以讓我參考一下
.

謝謝^^

28
Linux 討論版 / squid!
« 於: 2004-06-27 12:44 »
我用的是Fedora core1...squid的版本是squid-2.5.STABLE3-3.3E


錯務訊息如下:
[root@rh-Howard root]# service squid start
init_cache_dir /var/spool/squid... /etc/init.d/squid: line 162: 28003 Aborted $SQUID -z -F -D 2>/dev/null
Starting squid: /etc/init.d/squid: line 162: 28004 Aborted $SQUID $SQUID_OPTS 2>/dev/null
[FAILED]


請問各位學長是不是有哪裡我有設錯的呢?
再請問各位學長一下所謂的cache到底是要怎麼要設定呢?
謝謝唷!

29
Linux 討論版 / 關於squid!
« 於: 2004-06-26 23:38 »
請問一下..我用Fedore Core 1的squid想架proxy server 可是我的squid一直都無法啟動..請問是不是有什麼架squid的先決條件或是有什麼要注意的事項呀?麻煩教教我可以嗎....快瘋掉了= =

30
Network 討論版 / 請問各位大大?
« 於: 2004-04-06 17:18 »
請問各位大大!封包若小於64bytes會是什麼造成的呢?若真滴小於64bytes會發生什麼情況?那大於1518bytes又是什麼造成滴?會發生什麼情況呀?

敬請指導一番!謝謝

頁: [1] 2