Sh run output anomaly.
Has anyone ever seen this before? I did a show run and I get this ..
router eigrp 1
network 10.0.0.0
passive-interface default
no passive-interface GigabitEthernet0/1
no passive-interface Tunnel0
When someone else who was in the router did the sh run command they seen this.
router eigrp 1
network 10.0.0.0
passive-interface default
no passive-interface GigabitEthernet0/1
I cannot explain it at all. I have never seen anything like that happen before. Yet sure enough Eigrp was giving me grief for an hour trying to figure out why the tunnel would not neighbor up. Soon as the "no passive-interface Tunnel0' was added, poof it came up. Everytime I checked and rechecked that statement was there. I even removed eigrp and added it back a few times with that same result.
Yeah that is the funny thing I cannot reproduce the error. It is up and working on a active location so I can't goof around with it anymore. At this point it is a ghost. I can neither reproduce or validate it at this point. Since the other person entered the command I was already seeing and it is up there is no way to prove that it even happened. Hence why I came here hoping someone seen this before.
I copied the config from Excel pasted it into the router. Like I have done 10000 times. when it would not come up I removed the eigrp process and pasted it back in complete with the no passive statements. From both Excel and from the router output. Since I must have removed eigrp entirely like 5 different times. and each time I pasted everything back in.
Each and everytime I would see it in there yet no eigrp on the T0 interface.
Similar Messages
-
I've configured /etc/defaults/periodic.conf to email the results of the daily, weekly, and monthly stuff to me.
Problem is, sometimes I get 2 daily run outputs.
1 always at 3:14 (which is too early) and the other at the regularly scheduled time of 3:15.
The periodic.conf file is unchanged except for my user name in the "*_output" fields.
Any ideas as to why this is happening?WHEW!!! OK, you asked for it...
[charles@larry:~]$ cat /var/log/daily.out
Tue Sep 27 03:15:04 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 15987424 61776208 21% /
DUMP: WARNING: no file `/etc/dumpdates', making an empty one
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 26974 0 26974 0 0
lo0 16384 127 localhost 26974 - 26974 - -
lo0 16384 localhost ::1 26974 - 26974 - -
lo0 16384 localhost fe80::1 26974 - 26974 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 4045856 0 1067411 0 0
en0 1500 larry-local fe80::211:24ff:fe 4045856 - 1067411 - -
en0 1500 192.168.254 192.168.254.3 4045856 - 1067411 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Sep 28 03:15:00 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 16010484 61753148 21% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 53012 0 53012 0 0
lo0 16384 127 localhost 53012 - 53012 - -
lo0 16384 localhost ::1 53012 - 53012 - -
lo0 16384 localhost fe80::1 53012 - 53012 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 5499969 0 2397450 0 0
en0 1500 larry.local fe80::211:24ff:fe 5499969 - 2397450 - -
en0 1500 192.168.254 192.168.254.3 5499969 - 2397450 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Sep 29 03:14:58 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 29878744 47884888 38% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 8154 0 8154 0 0
lo0 16384 localhost ::1 8154 - 8154 - -
lo0 16384 localhost fe80::1 8154 - 8154 - -
lo0 16384 127 localhost 8154 - 8154 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 122706 0 83560 0 0
en0 1500 larry.local fe80::211:24ff:fe 122706 - 83560 - -
en0 1500 192.168.254 192.168.254.3 122706 - 83560 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Sep 30 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20040016 57723616 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 18918 0 18918 0 0
lo0 16384 localhost ::1 18918 - 18918 - -
lo0 16384 localhost fe80::1 18918 - 18918 - -
lo0 16384 127 localhost 18918 - 18918 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 136995 0 94955 0 0
en0 1500 larry.local fe80::211:24ff:fe 136995 - 94955 - -
en0 1500 192.168.254 192.168.254.3 136995 - 94955 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Oct 1 03:15:04 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20319648 57443984 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 10605 0 10605 0 0
lo0 16384 localhost ::1 10605 - 10605 - -
lo0 16384 localhost fe80::1 10605 - 10605 - -
lo0 16384 127 localhost 10605 - 10605 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 3648686 0 6497839 0 0
en0 1500 larry.local fe80::211:24ff:fe 3648686 - 6497839 - -
en0 1500 192.168.254 192.168.254.3 3648686 - 6497839 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Oct 2 03:14:56 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 17813884 59949748 23% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 21055 0 21055 0 0
lo0 16384 localhost ::1 21055 - 21055 - -
lo0 16384 localhost fe80::1 21055 - 21055 - -
lo0 16384 127 localhost 21055 - 21055 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 1825189 0 2229538 0 0
en0 1500 larry.local fe80::211:24ff:fe 1825189 - 2229538 - -
en0 1500 192.168.254 192.168.254.3 1825189 - 2229538 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Oct 3 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 16402432 61361200 21% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 50873 0 50873 0 0
lo0 16384 localhost ::1 50873 - 50873 - -
lo0 16384 localhost fe80::1 50873 - 50873 - -
lo0 16384 127 localhost 50873 - 50873 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 2756104 0 2777576 0 0
en0 1500 larry.local fe80::211:24ff:fe 2756104 - 2777576 - -
en0 1500 192.168.254 192.168.254.3 2756104 - 2777576 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Oct 4 03:15:01 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 16488896 61274736 21% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 19329 0 19329 0 0
lo0 16384 127 localhost 19329 - 19329 - -
lo0 16384 localhost ::1 19329 - 19329 - -
lo0 16384 localhost fe80::1 19329 - 19329 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 470303 0 302382 0 0
en0 1500 larry.local fe80::211:24ff:fe 470303 - 302382 - -
en0 1500 192.168.254 192.168.254.3 470303 - 302382 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Oct 5 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 16500540 61263092 21% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 43683 0 43683 0 0
lo0 16384 127 localhost 43683 - 43683 - -
lo0 16384 localhost ::1 43683 - 43683 - -
lo0 16384 localhost fe80::1 43683 - 43683 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 2245796 0 2297213 0 0
en0 1500 larry.local fe80::211:24ff:fe 2245796 - 2297213 - -
en0 1500 192.168.254 192.168.254.3 2245796 - 2297213 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Oct 6 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 17053400 60710232 22% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 63971 0 63971 0 0
lo0 16384 127 localhost 63971 - 63971 - -
lo0 16384 localhost ::1 63971 - 63971 - -
lo0 16384 localhost fe80::1 63971 - 63971 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 2775504 0 2662553 0 0
en0 1500 larry.local fe80::211:24ff:fe 2775504 - 2662553 - -
en0 1500 192.168.254 192.168.254.3 2775504 - 2662553 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Oct 7 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 22667484 55096148 29% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 87309 0 87309 0 0
lo0 16384 127 localhost 87309 - 87309 - -
lo0 16384 localhost ::1 87309 - 87309 - -
lo0 16384 localhost fe80::1 87309 - 87309 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 5659265 0 4495181 0 0
en0 1500 larry.local fe80::211:24ff:fe 5659265 - 4495181 - -
en0 1500 192.168.254 192.168.254.3 5659265 - 4495181 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Oct 8 03:14:54 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19158916 58604716 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 102217 0 102217 0 0
lo0 16384 127 localhost 102217 - 102217 - -
lo0 16384 localhost ::1 102217 - 102217 - -
lo0 16384 localhost fe80::1 102217 - 102217 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 5695701 0 4540012 0 0
en0 1500 larry.local fe80::211:24ff:fe 5695701 - 4540012 - -
en0 1500 192.168.254 192.168.254.3 5695701 - 4540012 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Oct 9 03:15:06 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 18662044 59101588 24% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 9627 0 9627 0 0
lo0 16384 localhost ::1 9627 - 9627 - -
lo0 16384 localhost fe80::1 9627 - 9627 - -
lo0 16384 127 localhost 9627 - 9627 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 12291 0 11790 0 0
en0 1500 larry.local fe80::211:24ff:fe 12291 - 11790 - -
en0 1500 192.168.254 192.168.254.3 12291 - 11790 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Oct 10 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20691252 57072380 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 102817 0 102817 0 0
lo0 16384 localhost ::1 102817 - 102817 - -
lo0 16384 localhost fe80::1 102817 - 102817 - -
lo0 16384 127 localhost 102817 - 102817 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 2560006 0 1772933 0 0
en0 1500 larry.local fe80::211:24ff:fe 2560006 - 1772933 - -
en0 1500 192.168.254 192.168.254.3 2560006 - 1772933 - -
en0 1500 (16)00:00:ff:3d:d8 2560006 0 1772933 0 0
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Oct 11 03:15:03 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20126788 57636844 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 4847 0 4847 0 0
lo0 16384 127 localhost 4847 - 4847 - -
lo0 16384 localhost ::1 4847 - 4847 - -
lo0 16384 localhost fe80::1 4847 - 4847 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 138010 0 73264 0 0
en0 1500 larry.local fe80::211:24ff:fe 138010 - 73264 - -
en0 1500 (16)00:00:ff:4e:4c 138010 0 73264 0 0
en0 1500 192.168.254 192.168.254.3 138010 - 73264 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Oct 12 03:14:52 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19960456 57803176 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 26533 0 26533 0 0
lo0 16384 127 localhost 26533 - 26533 - -
lo0 16384 localhost ::1 26533 - 26533 - -
lo0 16384 localhost fe80::1 26533 - 26533 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 525594 0 291500 0 0
en0 1500 larry.local fe80::211:24ff:fe 525594 - 291500 - -
en0 1500 (16)00:00:ff:23:e5 525594 0 291500 0 0
en0 1500 192.168.254 192.168.254.3 525594 - 291500 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Oct 13 03:14:59 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 33477940 44285692 43% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 6820 0 6820 0 0
lo0 16384 127 localhost 6820 - 6820 - -
lo0 16384 localhost ::1 6820 - 6820 - -
lo0 16384 localhost fe80::1 6820 - 6820 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 19603 0 20088 0 0
en0 1500 (16)00:00:ff:58:4b 19603 0 20088 0 0
en0 1500 larry.local fe80::211:24ff:fe 19603 - 20088 - -
en0 1500 192.168.254 192.168.254.3 19603 - 20088 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Oct 14 03:15:06 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 33774384 43989248 43% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 3706 0 3706 0 0
lo0 16384 127 localhost 3706 - 3706 - -
lo0 16384 localhost ::1 3706 - 3706 - -
lo0 16384 localhost fe80::1 3706 - 3706 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 551476 0 317143 0 0
en0 1500 larry.local fe80::211:24ff:fe 551476 - 317143 - -
en0 1500 (16)00:00:ff:d8:83 551476 0 317143 0 0
en0 1500 192.168.254 192.168.254.3 551476 - 317143 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Oct 15 03:15:01 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21273072 56490560 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 8358 0 8358 0 0
lo0 16384 127 localhost 8358 - 8358 - -
lo0 16384 localhost ::1 8358 - 8358 - -
lo0 16384 localhost fe80::1 8358 - 8358 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 553624 0 3125410 0 0
en0 1500 (16)00:00:ff:d0:df 553624 0 3125410 0 0
en0 1500 larry.local fe80::211:24ff:fe 553624 - 3125410 - -
en0 1500 192.168.254 192.168.254.3 553624 - 3125410 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Oct 16 03:14:52 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 22020832 55742800 28% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 27736 0 27736 0 0
lo0 16384 127 localhost 27736 - 27736 - -
lo0 16384 localhost ::1 27736 - 27736 - -
lo0 16384 localhost fe80::1 27736 - 27736 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 2431612 0 9048043 0 0
en0 1500 (16)00:00:ff:d0:df 2431612 0 9048043 0 0
en0 1500 larry.local fe80::211:24ff:fe 2431612 - 9048043 - -
en0 1500 192.168.254 192.168.254.3 2431612 - 9048043 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Oct 17 03:14:56 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21270112 56493520 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 13600 0 13600 0 0
lo0 16384 127 localhost 13600 - 13600 - -
lo0 16384 localhost ::1 13600 - 13600 - -
lo0 16384 localhost fe80::1 13600 - 13600 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 7599 0 11290 0 0
en0 1500 (16)00:00:ff:e2:0f 7599 0 11290 0 0
en0 1500 larry.local fe80::211:24ff:fe 7599 - 11290 - -
en0 1500 192.168.254 192.168.254.3 7599 - 11290 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Oct 18 03:15:00 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21281684 56481948 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 23608 0 23608 0 0
lo0 16384 127 localhost 23608 - 23608 - -
lo0 16384 localhost ::1 23608 - 23608 - -
lo0 16384 localhost fe80::1 23608 - 23608 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 43636 0 38846 0 0
en0 1500 (16)00:00:ff:63:68 43636 0 38846 0 0
en0 1500 larry.local fe80::211:24ff:fe 43636 - 38846 - -
en0 1500 192.168.254 192.168.254.3 43636 - 38846 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Oct 19 03:14:59 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20965720 56797912 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 7174 0 7174 0 0
lo0 16384 127 localhost 7174 - 7174 - -
lo0 16384 localhost ::1 7174 - 7174 - -
lo0 16384 localhost fe80::1 7174 - 7174 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 5304 0 7377 0 0
en0 1500 larry.local fe80::211:24ff:fe 5304 - 7377 - -
en0 1500 192.168.254 192.168.254.3 5304 - 7377 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Oct 20 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21027680 56735952 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 28141 0 28141 0 0
lo0 16384 127 localhost 28141 - 28141 - -
lo0 16384 localhost ::1 28141 - 28141 - -
lo0 16384 localhost fe80::1 28141 - 28141 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 40222 0 44745 0 0
en0 1500 larry.local fe80::211:24ff:fe 40222 - 44745 - -
en0 1500 192.168.254 192.168.254.3 40222 - 44745 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Oct 21 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21024288 56739344 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 41680 0 41680 0 0
lo0 16384 127 localhost 41680 - 41680 - -
lo0 16384 localhost ::1 41680 - 41680 - -
lo0 16384 localhost fe80::1 41680 - 41680 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 62062 0 69422 0 0
en0 1500 larry.local fe80::211:24ff:fe 62062 - 69422 - -
en0 1500 192.168.254 192.168.254.3 62062 - 69422 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Oct 22 03:14:54 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21042792 56720840 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 56966 0 56966 0 0
lo0 16384 127 localhost 56966 - 56966 - -
lo0 16384 localhost ::1 56966 - 56966 - -
lo0 16384 localhost fe80::1 56966 - 56966 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 243894 0 435280 0 0
en0 1500 larry.local fe80::211:24ff:fe 243894 - 435280 - -
en0 1500 192.168.254 192.168.254.3 243894 - 435280 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Oct 23 03:14:56 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21109624 56654008 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 21136 0 21136 0 0
lo0 16384 127 localhost 21136 - 21136 - -
lo0 16384 localhost ::1 21136 - 21136 - -
lo0 16384 localhost fe80::1 21136 - 21136 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 135994 0 108602 0 0
en0 1500 larry.local fe80::211:24ff:fe 135994 - 108602 - -
en0 1500 192.168.254 192.168.254.3 135994 - 108602 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Oct 24 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21223596 56540036 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 37148 0 37148 0 0
lo0 16384 127 localhost 37148 - 37148 - -
lo0 16384 localhost ::1 37148 - 37148 - -
lo0 16384 localhost fe80::1 37148 - 37148 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 809614 0 725247 0 0
en0 1500 larry.local fe80::211:24ff:fe 809614 - 725247 - -
en0 1500 192.168.254 192.168.254.3 809614 - 725247 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Oct 25 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21218116 56545516 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 51380 0 51380 0 0
lo0 16384 127 localhost 51380 - 51380 - -
lo0 16384 localhost ::1 51380 - 51380 - -
lo0 16384 localhost fe80::1 51380 - 51380 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 828816 0 742589 0 0
en0 1500 larry.local fe80::211:24ff:fe 828816 - 742589 - -
en0 1500 192.168.254 192.168.254.3 828816 - 742589 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Oct 26 03:14:58 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21649632 56114000 28% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 6179 0 6179 0 0
lo0 16384 127 localhost 6179 - 6179 - -
lo0 16384 localhost ::1 6179 - 6179 - -
lo0 16384 localhost fe80::1 6179 - 6179 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 311286 0 344645 0 0
en0 1500 larry.local fe80::211:24ff:fe 311286 - 344645 - -
en0 1500 192.168.254 192.168.254.3 311286 - 344645 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Oct 27 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21651088 56112544 28% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 12835 0 12835 0 0
lo0 16384 127 localhost 12835 - 12835 - -
lo0 16384 localhost ::1 12835 - 12835 - -
lo0 16384 localhost fe80::1 12835 - 12835 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 319300 0 352700 0 0
en0 1500 larry.local fe80::211:24ff:fe 319300 - 352700 - -
en0 1500 192.168.254 192.168.254.3 319300 - 352700 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Oct 28 03:14:53 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21659512 56104120 28% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 22729 0 22729 0 0
lo0 16384 127 localhost 22729 - 22729 - -
lo0 16384 localhost ::1 22729 - 22729 - -
lo0 16384 localhost fe80::1 22729 - 22729 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 335138 0 366351 0 0
en0 1500 larry.local fe80::211:24ff:fe 335138 - 366351 - -
en0 1500 192.168.254 192.168.254.3 335138 - 366351 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Oct 29 03:14:54 CDT 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20532436 57231196 26% /
/dev/disk1 7822056 7822056 0 100% /Volumes/HOUSEOFWAX
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 41321 0 41321 0 0
lo0 16384 127 localhost 41321 - 41321 - -
lo0 16384 localhost ::1 41321 - 41321 - -
lo0 16384 localhost fe80::1 41321 - 41321 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 1706861 0 7697473 0 0
en0 1500 larry.local fe80::211:24ff:fe 1706861 - 7697473 - -
en0 1500 192.168.254 192.168.254.3 1706861 - 7697473 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Oct 30 03:15:02 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20685528 57078104 27% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 15225 0 15225 0 0
lo0 16384 127 localhost 15225 - 15225 - -
lo0 16384 localhost ::1 15225 - 15225 - -
lo0 16384 localhost fe80::1 15225 - 15225 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 14091372 0 14695777 0 0
en0 1500 larry.local fe80::211:24ff:fe 14091372 - 14695777 - -
en0 1500 192.168.254 192.168.254.3 14091372 - 14695777 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Oct 31 03:20:29 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19127772 58635860 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 9161 0 9161 0 0
lo0 16384 127 localhost 9161 - 9161 - -
lo0 16384 localhost ::1 9161 - 9161 - -
lo0 16384 localhost fe80::1 9161 - 9161 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 8855 0 8825 0 0
en0 1500 larry.local fe80::211:24ff:fe 8855 - 8825 - -
en0 1500 192.168.254 192.168.254.3 8855 - 8825 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Nov 1 03:14:56 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19235196 58528436 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 115790 0 115790 0 0
lo0 16384 127 localhost 115790 - 115790 - -
lo0 16384 localhost ::1 115790 - 115790 - -
lo0 16384 localhost fe80::1 115790 - 115790 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 65671 0 64031 0 0
en0 1500 larry.local fe80::211:24ff:fe 65671 - 64031 - -
en0 1500 192.168.254 192.168.254.3 65671 - 64031 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Nov 2 03:14:57 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19674780 58088852 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 14035 0 14035 0 0
lo0 16384 127 localhost 14035 - 14035 - -
lo0 16384 localhost ::1 14035 - 14035 - -
lo0 16384 localhost fe80::1 14035 - 14035 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 3495807 0 246542 0 0
en0 1500 larry.local fe80::211:24ff:fe 3495807 - 246542 - -
en0 1500 24.176.112/21 24-176-113-173. 3495807 - 246542 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Nov 3 03:14:53 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20140296 57623336 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 27403 0 27403 0 0
lo0 16384 127 localhost 27403 - 27403 - -
lo0 16384 localhost ::1 27403 - 27403 - -
lo0 16384 localhost fe80::1 27403 - 27403 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 7455207 0 414054 0 0
en0 1500 larry.local fe80::211:24ff:fe 7455207 - 414054 - -
en0 1500 24.176.112/21 24-176-113-173. 7455207 - 414054 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Fri Nov 4 03:14:53 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20132452 57631180 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 43536 0 43536 0 0
lo0 16384 127 localhost 43536 - 43536 - -
lo0 16384 localhost ::1 43536 - 43536 - -
lo0 16384 localhost fe80::1 43536 - 43536 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 10954170 0 431935 0 0
en0 1500 larry.local fe80::211:24ff:fe 10954170 - 431935 - -
en0 1500 24.176.112/21 24-176-113-173. 10954170 - 431935 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sat Nov 5 03:15:05 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 21813620 55950012 28% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 14367 0 14367 0 0
lo0 16384 127 localhost 14367 - 14367 - -
lo0 16384 localhost ::1 14367 - 14367 - -
lo0 16384 localhost fe80::1 14367 - 14367 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 492686 0 454443 0 0
en0 1500 larry.local fe80::211:24ff:fe 492686 - 454443 - -
en0 1500 192.168.254 192.168.254.3 492686 - 454443 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Sun Nov 6 03:15:03 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 22718716 55044916 29% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 14129 0 14129 0 0
lo0 16384 127 localhost 14129 - 14129 - -
lo0 16384 localhost ::1 14129 - 14129 - -
lo0 16384 localhost fe80::1 14129 - 14129 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 71121 0 73806 0 0
en0 1500 larry.local fe80::211:24ff:fe 71121 - 73806 - -
en0 1500 192.168.254 192.168.254.3 71121 - 73806 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Mon Nov 7 03:14:53 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 20019400 57744232 26% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 30943 0 30943 0 0
lo0 16384 127 localhost 30943 - 30943 - -
lo0 16384 localhost ::1 30943 - 30943 - -
lo0 16384 localhost fe80::1 30943 - 30943 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 800173 0 2123247 0 0
en0 1500 larry.local fe80::211:24ff:fe 800173 - 2123247 - -
en0 1500 192.168.254 192.168.254.3 800173 - 2123247 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Tue Nov 8 03:14:58 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19816996 57946636 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 4604 0 4604 0 0
lo0 16384 127 localhost 4604 - 4604 - -
lo0 16384 localhost ::1 4604 - 4604 - -
lo0 16384 localhost fe80::1 4604 - 4604 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 3138 0 3229 0 0
en0 1500 larry.local fe80::211:24ff:fe 3138 - 3229 - -
en0 1500 192.168.254 192.168.254.3 3138 - 3229 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Wed Nov 9 03:14:52 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 78019632 19819912 57943720 25% /
Last dump(s) done (Dump '>' file systems):
mail:
postqueue: warning: Mail system is down -- accessing queue directly
Mail queue is empty
network:
Name Mtu Network Address Ipkts Ierrs Opkts Oerrs Coll
lo0 16384 <Link#1> 11982 0 11982 0 0
lo0 16384 127 localhost 11982 - 11982 - -
lo0 16384 localhost ::1 11982 - 11982 - -
lo0 16384 localhost fe80::1 11982 - 11982 - -
gif0* 1280 <Link#2> 0 0 0 0 0
stf0* 1280 <Link#3> 0 0 0 0 0
en0 1500 <Link#4> 00:11:24:7e:6d:62 10111 0 10560 0 0
en0 1500 larry.local fe80::211:24ff:fe 10111 - 10560 - -
en0 1500 192.168.254 192.168.254.3 10111 - 10560 - -
fw0 4078 <Link#5> 00:11:24:ff:fe:7e:6d:62 0 0 0 0 0
ruptime: no hosts in /var/rwho.
Rotating log files: system.log
Thu Nov 10 03:14:53 CST 2005
Removing old log files:
Removing scratch and junk files:
Removing scratch fax files
msgs: /var/msgs/bounds: No such file or directory
Backing up NetInfo data
Checking subsystem status:
disks:
Filesystem 1K-blocks Used Avail Capacity Mounted on
/dev/disk0s3 780 -
Portlet will run/output when run as Admin, but not normal user
Anyone know why a portlet would run/output under admin privs, but will not run under a normal user's privs? This is a VB.NET portlet using the EDK. Anyone have any ideas?
Flash Player should be initially installed using an Admin account. Once installed however, it should work for all users. If it does not function, then I suspect you're running into a file/folder/registry permission issue. This FAQ can help repair these problems:
How do I fix Windows permission problems with Flash Player? -
How to re-run output determination after goods issue through idoc
Hello,
i've got a question about output determination. We are currently in a process to automate picking, packing and goods issue through a 3rd party software. The software creates DELVRY03-Idocs including picking, packing and goods issue-information. Picking, packing and goods issue work just find and after submitting the idoc, the delivery is updated as needed.
The problem arises when it comes to printing the shipping document on the printer belonging to the picking station that just processed the delivery. To determine the correct printer, the external software includes the picking station number inside the idoc. A user exit in idoc_input_delivery puts the number (3 digits) into likp-traid. The customizing for using this field inside output determination is complete and seems to be working.
The problem is: as the number of the picking station is not known before goods issue, the LD00 message must not be generated before goods issue. I used the appropriate condition insinde the message scheme, the message is not generated until goods issue is complete. After processing the DELVRY03-Idoc, the message should be found and generated, but it isn't. When i take a look at the delivery after submitting the idoc, goods issue is complete, picking and packing is done - and no sign of an header message of type LD00. First i thought about a misconfiguration inside my customizing for output determination, but when i access the delivery via vl02n (change delivery), output determination seems to be processed again and without making any changes or actions, LD00 is generated and waiting for processing. After saving the delivery, LD00 is processed and the shipping document is printed exactly where it should be.
So, as my customizing seems to work and everything else around idoc processing doesn't make any problems either, i conclude that, after processing the idoc, R/3 just needs a little kick to re-run the output determination, find the now fitting condition for LD00, find the appropriate entry in the condition table and print the document.
I already tried report rsnast00, but this one just seems to run already created messages.
Any ideas how to automate this little "kick in the butt"?
Thanks in advance!I'm working on a similar issue with ws_delivery_update. I'm not using the IDOC as you are, but I'm using the function in a program of mine to PGI the delivery, but the output isn't being added to the delivery. I've tried to run the function twice as you suggested, but that doesn't seem to work. Do you have any suggestions or ideas on things to try?
Thanks,
Eric -
Problem in background run output
Hi all,
I have a report in which output is displayed in REUSE_ALV_LIST_DISPLAY
format having around 25 columns , all displayed well if the report is run in foreground with limited data, but as the report has to be run in background for the large data , the output is coming in two rows, half the columns displayed in second rows, As i don't want it to be printed directly , I Just want that report o/p
run in background should give all columns in single row , so that i can download it to excel sheet. Please provide your valuable suggestions.
thanks in advance,
VivekHi Vivek,
As of my knowledge better to decrease the text of the each field in the and try
For EG:
v_pos = v_pos + 1.
w_field-col_pos = v_pos.
wa_fldcat_head-tabname = 'it_FINAL'.
wa_fldcat_head-fieldname = 'NDABJ'.
wa_fldcat_head-seltext_l = 'Expired years start fiscal year'.----
>(in this just decrease how much u can )
append wa_fldcat_head to it_fldcat_head.
Reward if helpful
Thanks
Naveen khan
Message was edited by:
Pattan Naveen -
Do While Looks strange - Printing w/o Data on first run & Another Anomaly
OK, what is happening is that I have the following code which
prints out the
title in an h3, then prints out a link with "full story" text
in it.
My problem is that I am getting a blank link at the beginning
of this block.
<?php do { ?>
<h3><?php echo $row_rsNews['newsTitle'];
?></h3>
<a href="news.php?cid=<?php echo
$row_rsNews['newsID']; ?>">Full
Story</a><br />
<?php } while ($row_rsNews = mysql_fetch_assoc($rsNews));
?>
Outputs:
<h3></h3>
<a href="news.php?cid=">Full Story</a><br>
<h3>Youth Education Program</h3>
<a href="news.php?cid=5">Full Story</a><br>
<h3>Katy Trail Biking Trip</h3>
<a href="news.php?cid=15">Full
Story</a><br>
<h3>Choir Chili Supper Plans</h3>
<a href="news.php?cid=9">Full Story</a><br>
1. Notice that my first run of things are not showing
correctly
2. And this is the weird one - look at how my <br />
tags have changed to
<br>.
Any ideas? I'm about lost on this one.
TIA,
Jon Parkhurst
PriivaWeb
http://priiva.net.OK, here is my complete code block for my news section. This
page is goign
to be redone, but I would still like to understand why it's
not working -
why I'm not correctly resetting a recordset.
Recordset rsArticle is only populated if gID is sent in the
url
Here we see that the rsArticle to be displayed is only shown
if there is a
gID:
<?php if ($totalRows_rsArticle > 0) { // Show if
recordset not empty
?>
<h2><?php echo $row_rsArticle['newsTitle'];
?></h2>
<p><?php echo $row_rsArticle['newsAuthor'];
?><br />
<?php echo $row_rsArticle['newsDateEdited'];
?></p>
<?php $mc_pic = $row_rsArticle['newsPicture'];
if ($mc_pic != "") { ?>
<img class="newsimg"
src="app/app_get_img.php?image_path=<?php
echo $mc_pic?>&sz=article" />
<?php }
echo $row_rsArticle['newsContent']; ?></p>
<?php } // Show if recordset not empty ?>
And here is the code to show if there is no gID:
<?php if ($totalRows_rsArticle == 0) { // Show if
recordset empty ?>
Here is the first DoWhile statement, to repeat all *other*
records. the
rsNews Recordset is built using get all articles <>
gID. If no gID, it
fetches them all for a full listing, if gID, then it fetches
only the
articles NOT displayed by rsArticle. Cool so far, right?
<?php do { ?>
<a class="pbutton" href="news.php?cid=<?php echo
$row_rsNews['newsID']; ?>">Full Story ...</a>
<h3><?php echo $row_rsNews['newsTitle'];
?></h3>
<?php echo $row_rsNews['newsShortDesc']; ?>
<?php
} while ($row_rsNews = mysql_fetch_assoc($rsNews));
Now here, I'm *attempting* to reset rsNews to the first
record in the
recordset, so that I can reuse the recordset for another part
of the page.
Again, on this page it's not really necessary, but I have
other areas of the
site that this is crucial for me to be able to implement.
mysql_data_seek($rsNews, 0);
?>
Then it closes out the final If recordset is empty
<?php } // Show if recordset empty ?>
The reason I'd rather do this than just create another
recordset is mostly
simplicity. If I'm going to create another recordset, then I
see little
value in the recordsets - I can just set string variables and
re-send a SQL
statement. However, that method leaves the SQL as non DW
accessible.
Unless I'm missing something?
Thanks for taking a look, if you get the chance. If you
don't, I'm goign to
keep trying to figure out a way I can do this.
TIA,
Jon -
WEP encryption after AP reload and no show run output
Hello,we have an interesting incident.
We have added a second VLAN and SSID into the AP configuration. The first SSID is configured by WEP. After the configuration was finished there are any clients associated to the access point but not all clients are able to transfer packets to the wired network.Some clients are able to work and some clients are not able to work.When we perform a reload of the access point all clients are able to send and receive data packets again.
Another issue is when we do a "show run" there is no output in CLI. We had access to the AP via telnet. After the reboot this issue is solved,too.
I think it looks like a memory problem.
Is there anybody who had the same problem?
Thanks
MartinHello sillygoosetime,
Please take a look at this document, which provides troubleshooting steps that I hope will help resolve your HDMI sound issue.
Please let me know if this helps.
Good luck!
↙-----------How do I give Kudos?| How do I mark a post as Solved? ----------------↓ -
Hello Experts,
I am looking at the proposal of a previous payment run - Is there any way i can download it to an excel ?
All answers would be duly rewarded with points.
Thanks,
NanditaHi,
Yes you can download into an excel format. Go to transaction Code F110 > enter the proposal run date and run id and click on status. This will display the status of the run.
In the next step click on proposal icon or from the munu navigate to > Edit > Proposal > Display proposal.
This will display the proposal. It can be displayed in ALV format and from there click on the icon Export to Excel sheet.
Thanks
Murali. -
Viewing the mrp run output based on mrp groups
Hi, please advise how to view the mrp run result based on mrp groups? also advise how to run mrp on the basis of mrp groups?
thanks.Hi,
Can you use MRP Controller instead MRP Group. Because you have option to view MRP result by MRP Controller in MD05.
And you can execute MRP based on MRP Contoller by using user exit M61X0001 in MD01.
Regards,
Vishal -
Full "show run" output on Cisco Prime Infrastructure
Hi,
does anyone know if there's a way to see the entire "show run" config in one file?
on the gui it is presenting the configuration is divided into sections like - interfaces, ACL's, SNMP and so on...
i'm looking for one full file that i will be able to copy and paste on another device without deleting every headline.
hopefully you understand my request.
thanks,
AdirAdd - it's under the configuration archive tab:
-
Harvesting asset info and output to CSV
I need a script modified that will run on all servers in a work group in order to gather asset data on the appliances running Windows Server 2000 embedded edition. There are no domain services and these systems and this network technology is not an option
in our environment due to proprietary security, networking and infrastructure restrictions. I have found a script that works but i need it modified to output to a csv as it wont output and .xls .xlsx properly. The script will be run on the only computer on
the network that can access these devices. Any help on this would be awesome.
' Get Windows Server Information
' Written By Kely Mulcahey, E.C.S. LLC.
' Created: March 1, 2006
' Version: 3.0, Revised 5/30/2014
On Error Resume Next
Dim PUBOSVer ' Global OS Version
' Open File For Writing
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForReading = 1
' Get Server List
strServerFilename = "servers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strServerFilename) Then
' Open Servers File
Set objServers = objFSO.OpenTextFile(strServerFilename, ForReading)
Else
' Server File is missing: Exit
intMsg = MsgBox("File: " & Chr(34) & UCASE(strServerFilename) & Chr(34) & _
" is either " & _
"Missing or Damaged!" & vbcrlf & _
vbcrlf & _
"This Script will now Exit.", vbCritical, "Server File Error")
WScript.Quit(0)
End If
Do Until objServers.AtEndOfStream
strNewServer = Trim(objServers.ReadLine)
strServerList = strServerList & strNewServer & vbcrlf
intServerCnt = intServerCnt + 1
Loop
' Enumerate Server Array
For a = 0 To intServerCnt - 1
strServer = Split(strServerList, vbcrlf)
Next
' Create Excel Spreadsheet
Set objXLA = CreateObject("Excel.Application")
objXLA.Visible = False
objXLA.DisplayAlerts = False
Set objWorkbook = objXLA.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
'Excel Constants
Const xlEdgeLeft = 7
Const xlContinuous = 1
Const xlNone = -4142
Const xlMedium = -4138
Const xlThin = 2
'Set Headers
' System Information
objXLA.Cells(1,1).Value = "Service ID"
objXLA.Cells(1,2).Value = "Company Name"
objXLA.Cells(1,3).Value = "Manufacturer"
objXLA.Cells(1,4).Value = "Model"
objXLA.Cells(1,5).Value = "Operating System"
' Processors
objXLA.Cells(1,6).Value = "Processor Type"
objXLA.Cells(1,7).Value = "Processors"
' RAM
objXLA.Cells(1,8).Value = "RAM"
objXLA.Cells(1,9).Value = "Slots"
objXLA.Cells(1,10).Value = "Max Capacity"
' Network
objXLA.Cells(1,11).Value = "NIC Port"
objXLA.Cells(1,12).Value = "Speed"
objXLA.Cells(1,13).Value = "Connection Name"
objXLA.Cells(1,14).Value = "Primary IP"
objXLA.Cells(1,15).Value = "Virtual IP"
objXLA.Cells(1,16).Value = "Primary DNS"
objXLA.Cells(1,17).Value = "Secondary DNS"
' Hard Disks
objXLA.Cells(1,18).Value = "Interface"
objXLA.Cells(1,19).Value = "Physical Disks"
objXLA.Cells(1,20).Value = "Disk Size"
objXLA.Cells(1,21).Value = "Fault Tolerant"
objXLA.Cells(1,22).Value = "Hot Spare"
' Set Top Line
objXLA.Cells(1, 1).EntireRow.Font.Bold = True
objXLA.Cells(1, 1).EntireRow.Font.Underline = True
For b = 0 To UBound(strServer) - 1
strServerParts = Split(strServer(b), " ")
strComputer = strServerParts(0)
' Parse Server Information
If UBound(strServerParts) = 2 Then
strUsername = Trim(strServerParts(1))
strPassword = Trim(strServerParts(2))
End If
' Create Connection Object
Set objWMIService = Nothing
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
' Check if Server Exists
For intWMICheck = 0 To 15
If Not objWMIService Is Nothing Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Server Exists
If intWMICheck < 15 Then
' Get CPU Information
Set colProcessor = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each colProc In colProcessor
strManuf = colProc.Manufacturer
strDescription = ProcessorName(colProc.Name)
strClockSpeed = colProc.CurrentClockSpeed
strSocket = strSocket & colProc.SocketDesignation & vbcrlf
strProcID = strProcID & colProc.ProcessorID & vbcrlf
strUniqueID = strUniqueID & colProc.UniqueID & vbcrlf
ProcCount = ProcCount + 1
Next
' Determine if Hyperthreading is Enabled
strHTStatus = GetHTStatus(strSocket, ProcCount, strProcID, strUniqueID)
' DC / HT Results
If strHTStatus = "True" Then
If InStr(strManuf, "Intel") Then
strDescription = strDescription & " (Dual Core or H/T)"
Else
strDescription = strDescription & " (Dual Core)"
End If
ProcCount = ProcCount / 2
End If
' Export Information
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
' Write Basic System Information
For Each objItem in colCS
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItemOS in colOS
' Get SP Version
If objItemOS.CSDVersion <> "" Then
strSPVersion = objItemOS.CSDVersion
Else
strSPVersion = "No Service Packs Installed"
End If
If objItemOS.LastBootUpTime <> "" Then
strLastBoot = DateConvert(objItemOS.LastBootUpTime)
Else
strLastBoot = "N/A"
End If
' Set OS Version Information
PUBOSVer = objItemOS.Caption
objXLA.Cells(b + 2, 1).Value = objItemOS.csname
objXLA.Cells(b + 2, 3).Value = objItem.Manufacturer
objXLA.Cells(b + 2, 4).Value = objItem.Model
objXLA.Cells(b + 2, 5).Value = PUBOSVer & " - " & strSPVersion
objXLA.Cells(b + 2, 6).Value = strDescription
objXLA.Cells(b + 2, 7).Value = ProcCount
objXLA.Cells(b + 2, 8).Value = MemoryConvert(objItem.TotalPhysicalMemory)
Next
Next
' Get Memory Breakdown
Dim strMemBreak
strMemBreak = Split(MemoryBreakdown(), vbcrlf)
n = 0
For n = 0 To UBound(strMemBreak) - 1
strSlots = strSlots & strMemBreak(n) & Chr(10)
Next
strMaxCapacity = strMemBreak(UBound(strMemBreak))
objXLA.Cells(b + 2, 9).Value = Left(strSlots, Len(strSlots) - 1)
objXLA.Cells(b + 2, 10).Value = strMaxCapacity
' Dispose
strMemBreak = ""
strMaxCapacity = ""
strSlots = ""
'--------------Computer Information (End)------------------'
'-------------Partition Information (Start)----------------'
' Get Drive Count
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set DiskItemsParent = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
intCount = DiskItemsParent.Count
' Process Drives
intDriveMark = 0
For i = 0 To intCount - 1
Set DiskItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE Index = " & i)
For Each diskItem in DiskItems
' Convert Drive Size
If diskItem.Size <> "" Then strSize = strSize & ByteConvert(diskItem.Size) & Chr(10) Else strSize = "N/A" & Chr(10)
If diskItem.StatusInfo <> "" Then strStsInfo = diskItem.StatusInfo Else strStsInfo = "N/A"
If diskItem.SCSIBus <> "" Then strSCSIBus = diskItem.SCSIBus Else strSCSIBus = "N/A"
If diskItem.SCSILogicalUnit <> "" Then strSCSILog = diskItem.SCSILogicalUnit Else strSCSILog = "N/A"
If diskItem.SCSIPort <> "" Then strSCSIPort = diskItem.SCSIPort Else strSCSIPort = "N/A"
If diskItem.SCSITargetId <> "" Then strSCSITarget = diskItem.SCSITargetId Else strSCSITarget = "N/A"
' Get Model
strModel = Split(diskItem.Model, " ")
' Detect HP Array
If (UCase(strModel(0)) = "HP" Or UCase(strModel(0)) = "COMPAQ") And intDriveMark = 0 Then
strGetHPArray = GetHPArray(strComputer, strUsername, strPassword)
If strGetHPArray <> "" Then
strSplitHP = Split(strGetHPArray, Chr(13))
For a = 0 To UBound(strSplitHP)
strSplitResult = Split(strSplitHP(a), ":")
i = i + 1
strDriveCount = strDriveCount & Trim(strSplitResult(0)) & Chr(10)
strDriveSize = strDriveSize & Trim(strSplitResult(1)) & Chr(10)
strDriveFault = strDriveFault & Trim(strSplitResult(2)) & Chr(10)
strDriveSpare = strDriveSpare & Trim(strSplitResult(3)) & Chr(10)
strInterface = strInterface & "HP SCSI" & Chr(10)
Next
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
intDriveMark = 1 ' Mark That Data was Obtained
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
strInterface = strInterface & "HP SCSI " & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
End If
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
' Set Interface
If diskItem.InterfaceType = "IDE" Then
strInterface = strInterface & "ATA" & Chr(10)
Else
strInterface = strInterface & "SATA/SCSI" & Chr(10)
End If
End If
' Set Cell Value "Interface"
objXLA.Cells(b + 2, 18).Value = Left(strInterface, Len(strInterface) - 1)
Next
' Dispose Drive Sizes
strDriveSize = ""
Next
' Dispose Drive Values
strDriveCount = ""
strDriveFault = ""
strDriveSpare = ""
strInterface = ""
'----Partition Information (End)---------------------------'
'----Network Information (Start)---------------------------'
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
i = 1
eth = 0
Dim STOREDIP(0)
intNum = 0
For Each objItem in colItems
If objItem.NetConnectionStatus <> "" Then
' Determine Connection Status
If objItem.NetConnectionStatus = 0 Then
strNetStat = "Disabled"
ElseIf objItem.NetConnectionStatus = 2 Then
strNetStat = "Connected"
ElseIf objItem.NetConnectionStatus = 7 Then
strNetStat = "Disconnected"
Else
strNetStat = "Unknown"
End If
If objItem.NetConnectionStatus <> 0 Then
' Get Network Card Information
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strKeyPath2 = "SYSTEM\CurrentControlSet\Services\NetBT\Parameters"
strHostEntry = "Hostname"
strDomainEntry = "Domain"
strNodeEntry = "DhcpNodeType"
strRoutingEntry = "IPEnableRouter"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strDomainEntry,strDomain
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strNodeEntry,dwNodeType
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strRoutingEntry,dwIPRouting
Select Case dwNodeType
Case 4 strNodeType = "Mixed"
Case 8 strNodeType = "Hybrid"
Case Else strNodeType = dwNodeType
End Select
If dwIPRouting = 0 Then
strIPRouting = "No"
ElseIf dwIPRouting = 1 Then
strIPRouting = "Yes"
Else
strIPRouting = "?"
End If
Set colFirstNicConfig = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objFirstNicConfig In colFirstNicConfig
strDnsWins = objFirstNicConfig.DNSEnabledForWINSResolution
Next
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' Display per-adapter settings.
For Each objNicConfig In colNicConfigs
intIndex = objNicConfig.Index
Set objNic = objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & intIndex)
' Connection Name
If GetOsVer > 5 Then
' Works only in XP / 2003
strNetConn = objNic.NetConnectionID
ElseIf GetOsVer = 5 Then
strNetConn = ""
' Get Home Drive of Remote Server
Set objShell = CreateObject("WScript.Shell")
Set objEtherName = objShell.Exec("cmd /c ipconfig | find " & Chr(34) & "Ethernet" & Chr(34))
strEtherName = objEtherName.StdOut.ReadAll()
strEtherParse = Split(strEtherName, Chr(13))
strEtherConn = Split(strEtherParse(eth), " ")
For y = 2 To UBound(strEtherConn)
strNetConn = strNetConn & " " & strEtherConn(y)
Next
' Trim Connection Name
strNetConn = Left(Trim(strNetConn), Len(Trim(strNetConn)) - 1)
Else
strNetConn = ""
End If
' IP Addresses
strIPAddresses = ""
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
strIPAddresses = strIPAddresses & strIPAddress & " "
Next
End If
strIPCollection = Split(strIPAddresses, " ")
' Subnets
strIPSubnets = ""
If Not IsNull(objNicConfig.IPSubnet) Then
For Each strIPSubnet In objNicConfig.IPSubnet
strIPSubnets = strIPSubnets & strIPSubnet & " "
Next
End If
strSMCollection = Split(strIPSubnets, " ")
' Virtual IP's
strVirtual = ""
If UBound(strIPCollection) > 1 Then
For IPCount = 1 To UBound(strIPCollection) - 1
strVirtual = strVirtual & (strIPCollection(IPCount) & " / " & strSMCollection(IPCount)) & Chr(10)
Next
strVirtual = Left(strVirtual, Len(strVirtual) - 1)
End If
If Trim(strVirtual) = "" Then strVirtual = "N/A"
' Gateways
strDefaultIPGateways = ""
If Not IsNull(objNicConfig.DefaultIPGateway) Then
For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
strDefaultIPGateways = strDefaultIPGateways & strDefaultIPGateway & " "
Next
Else
strDefaultIPGateways = "N/A"
End If
' If IP is repeated, and was already reported.
intSkipLoop = 0
If Trim(strNetConn) <> "" Then
For j = 0 To intNum - 1
If STOREDIP(j) = strIPAddresses Then
intSkipLoop = 1
Exit For
End If
Next
If intSkipLoop = 0 Then
ReDim Preserve STOREDIP(intNum)
STOREDIP(intNum) = strIPAddresses
intNum = intNum + 1
End If
Else
intSkipLoop = 1
End If
' DNS
strDNSServerSearchOrder = ""
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
strDNSServerSearchOrder = strDNSServerSearchOrder & strDNSServer & " "
Next
strDNS = Split(strDNSServerSearchOrder, " ")
strDNS1 = strDNS(0)
If Trim(strDNS1) = "" Then strDNS1 = "N/A"
If UBound(strDNS) > 1 Then
strDNS2 = strDNS(1)
Else
strDNS2 = "N/A"
End If
Else
strDNS1 = "N/A"
strDNS2 = "N/A"
End If
' Run Output Process
If intSkipLoop = 0 Then
' Connection Speed
strSpeed = "Unknown"
Set objWMIService2 = objSWbemLocator.ConnectServer _
(strComputer, "root\WMI", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
Set listAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_LinkSpeed")
Set enumAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_EnumerateAdapter")
For Each objAdapter in listAdapters
For Each objEnum in enumAdapters
intEnum = Len(objEnum.DeviceName)
If objNicConfig.SettingID = Right(objEnum.DeviceName, intEnum - 8) Then
If objEnum.InstanceName = objAdapter.InstanceName Then
intLength = Len(objAdapter.NdisLinkSpeed/10000)
If intLength > 3 Then
strSpeed = Left(objAdapter.NdisLinkSpeed/10000, intLength - 3)
strSpeed = strSpeed & ".0 Gbps"
Else
strSpeed = objAdapter.NdisLinkSpeed/10000 & " Mbps"
End If
End If
End If
Next
Next
strTotalDesc = strTotalDesc & objNicConfig.Description & Chr(10)
strTotalSpeed = strTotalSpeed & strSpeed & Chr(10)
strTotalNetConn = strTotalNetConn & strNetConn & Chr(10)
strPrimaryIP = strPrimaryIP & strIPCollection(0) & " / " & strSMCollection(0) & Chr(10)
strDNSTotal1 = strDNSTotal1 & strDNS1 & Chr(10)
strDNSTotal2 = strDNSTotal2 & strDNS2 & Chr(10)
strTotalVirtual = strTotalVirtual & strVirtual & Chr(10)
i = i + 1
eth = eth + 2
' Dispose
strDescription = ""
ProcCount = 0
strClockSpeed = ""
strInterface = ""
intCount = 0
strSize = ""
strSpeed = ""
strIPCollection = ""
strVirtual = ""
strDNS = ""
strDNS1 = ""
strDNS2 = ""
End If
Next
' Output
' Trim Leading Chr(10)
If Left(strPrimaryIP, 1) = Chr(10) Then strPrimaryIP = Right(strPrimaryIP, Len(strPrimaryIP) - 1)
If Left(strTotalVirtual, 1) = Chr(10) Then strTotalVirtual = Right(strTotalVirtual, Len(strTotalVirtual) - 1)
If Left(strDNSTotal1, 1) = Chr(10) Then strDNSTotal1 = Right(strDNSTotal1, Len(strDNSTotal1) - 1)
If Left(strDNSTotal2, 1) = Chr(10) Then strDNSTotal2 = Right(strDNSTotal2, Len(strDNSTotal2) - 1)
objXLA.Cells(b + 2, 11).Value = Trim(Left(strTotalDesc, Len(strTotalDesc) - 1))
objXLA.Cells(b + 2, 12).Value = Trim(Left(strTotalSpeed, Len(strTotalSpeed) - 1))
objXLA.Cells(b + 2, 13).Value = Trim(Left(strTotalNetConn, Len(strTotalNetConn) - 1))
objXLA.Cells(b + 2, 14).Value = Trim(Left(strPrimaryIP, Len(strPrimaryIP) - 1))
objXLA.Cells(b + 2, 15).Value = Trim(Left(strTotalVirtual, Len(strTotalVirtual) - 1))
objXLA.Cells(b + 2, 16).Value = Trim(Left(strDNSTotal1, Len(strDNSTotal1) - 1))
objXLA.Cells(b + 2, 17).Value = Trim(Left(strDNSTotal2, Len(strDNSTotal2) - 1))
End If
End If
' Dispose Per Loop
strTotalDesc = ""
strTotalSpeed = ""
strTotalNetConn = ""
strPrimaryIP = ""
strDNSTotal1 = ""
strDNSTotal2 = ""
strTotalVirtual = ""
Set eth = 0
Set i = 0
Next
'------------Network Information (End)------------------'
Else
'No Data Present
objXLA.Cells(b + 2, 1).Value = strComputer
objXLA.Cells(b + 2, 3).Value = "Information Not Available"
objXLA.Cells(b + 2, 1).EntireRow.Font.Bold = True
objXLA.Cells(b + 2, 1).EntireRow.Interior.ColorIndex = 44
End If
' Dispose Per Server
ProcCount = 0
strSocket = ""
strProcID = ""
strUniqueID = ""
Set objWMIService = Nothing
Next
'-----------------Functions (Start)---------------------'
' System Memory Conversion
Function MemoryConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 4 = 0) Then
intExp = CInt((intLength / 3) - 2)
Else
intExp = CInt((intLength / 3) - 1)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
If Len(intSize) = 1 Then
strFormat = FormatNumber(CStr(intSize), 2)
Else
strFormat = intSize + 1
End If
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
MemoryConvert = strFormat & " " & strMeasure
End Function
' System Byte Conversion
Function ByteConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
ByteConvert = strFormat & " " & strMeasure
End Function
' System RAID Byte Conversion
Function ByteConvertRAID(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = (strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 0) Then
strMeasure = "MB"
ElseIf (intExp = 1) Then
strMeasure = "GB"
ElseIf (intExp = 2) Then
strMeasure = "TB"
ElseIf (intExp = 3) Then
strMeasure = "PB"
ElseIf (intExp = 4) Then
strMeasure = "EB"
End If
ByteConvertRAID = strFormat & " " & strMeasure
End Function
' Trim Processor Description
Function ProcessorName(strName)
Dim intCounter
Dim strRead
Dim chrRead, chrReadMore
For intCounter = 1 to Len(strName)
chrRead = Mid(strName, intCounter, 1)
chrReadMore = Mid(strName, intCounter + 1, 1)
If ((chrRead <> " ") Or ((chrRead = " ") And (chrReadMore <> " "))) Then
strRead = strRead & chrRead
End If
Next
ProcessorName = Trim(strRead)
End Function
' Get Hyper-Threading Status
Function GetHTStatus(strName, intProc, strID, strUnique)
strNameArray = Split(strName, vbcrlf)
strIDArray = Split(strID, vbcrlf)
strUniqueList = Split(strUnique, vbcrlf)
intTotal = 0
' Check Socket Designation
For i = 0 To UBound(strNameArray) - 1
intMark = 1
' Check for Redundancies
For j = i + 1 To UBound(strNameArray) - 1
If strNameArray(i) = strNameArray(j) Then
intMark = 0
End If
Next
' If Redundant Unique ID's Exist
For j = i + 1 To UBound(strNameArray) - 1
If strUniqueList(i) <> "" And strUniqueList(j) <> "" And _
(strUniqueList(i) <> strUniqueList(j)) Then
intMark = 1
End If
Next
' Check for NULL ProcessorID
If Trim(strIDArray(i)) = "0000000000000000" Then
intMark = 0
End If
' Calculate Total
If intMark = 1 Then
intTotal = intTotal + intMark
End If
Next
' Compare Results
If intProc = 2 * intTotal Then
GetHTStatus = "True"
Else
GetHTStatus = "False"
End If
End Function
' Get Memory Breakdown
Function MemoryBreakdown
Set colPMAItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemoryArray",,48)
For Each objPMAItem in colPMAItems
lngMax = CLng(objPMAItem.MaxCapacity)
intCount = CInt(objPMAItem.MemoryDevices)
Next
ReDim Preserve strPMArray(intCount)
Set colPMItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objPMItem in colPMItems
strValue = strValue & objPMItem.DeviceLocator & ": "
strValue = strValue & objPMItem.Capacity / 2^20 & "MB, "
strValue = strValue & objPMItem.Speed & "MHz"
strPMArray(TrimTrailingNumber(objPMItem.Tag)) = strValue
strValue = ""
Next
j = 0
strResult = ""
For j = 0 To intCount - 1
If Trim(strPMArray(j)) = "" Then strPMArray(j) = "<Empty>"
strResult = strResult & strPMArray(j) & vbcrlf
Next
strResult = strResult & (lngMax / 2^10) & "MB"
MemoryBreakdown = strResult
End Function
' Get Part Name
Function ExtractPartName(strName)
Dim chrRead
Dim strRead
Dim i
For i = 2 To Len(strName)
chrRead = Mid(strName, Len(strName) - (i - 1), 1)
If chrRead <> Chr(34) Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
ExtractPartName = strRead
End Function
' Get Trailing Number
Function TrimTrailingNumber(strNum)
Dim chrRead
Dim strRead
Dim intLen
strNum = Trim(strNum)
intLen = Len(strNum)
i = 1
For i = 1 To intLen
chrRead = Mid(strNum, intLen - (i - 1), 1)
If IsNumeric(chrRead) = "True" Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
TrimTrailingNumber = strRead
End Function
' Function: WMIDateStringToDate(dtmDate)
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
' Function: GetOsVer
Function GetOsVer
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
GetOSVer = CSng(Left(objOperatingSystem.Version, 3))
Next
End Function
' Function: GetHPArray
Function GetHPArray(strComputer2, strUsername2, strPassword2)
' Check for 64-bit Windows
If InStr(PUBOSVer, "x64") Then
strCompaq = "Program Files (x86)\Compaq\Cpqacuxe\Bin"
Else
strCompaq = "Program Files\Compaq\Cpqacuxe\Bin"
End If
' Create Connection Object
Set objWMIServiceRem = objWMIService.Get("Win32_Process")
' Confirm Location of Compaq Array Manager
Set objHPShell = CreateObject("WScript.Shell")
Set objHPFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork2 = WScript.CreateObject("WScript.Network")
WshNetwork2.MapNetworkDrive "", "\\" & strComputer2 & "\C$" ,,strUsername2, strPassword2
strProgram = "\\" & strComputer2 & "\C$\" & strCompaq & "\cpqacuxe.exe"
' Ensure Access is Possible
If objHPFSO.FileExists(strProgram) Then
' Process Array Config
strProcess = Chr(34) & "C:\" & strCompaq & "\cpqacuxe.exe" & Chr(34) & " -c c:\output.txt"
Process = objWMIServiceRem.Create(strProcess, null, null, intProcessID)
' Check for "output.txt"
For intTimerHP = 0 To 10
If objFSO.FileExists("\\" & strComputer2 & "\C$\output.txt") Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Process Output
If intTimerHP < 10 Then
' Check for Locked Output File
Set objHPOutputFile = objHPFSO.GetFile("\\" & strComputer2 & "\C$\output.txt")
If objHPOutputFile.Size <> 0 Then
' Close File
Set objHPOutputFile = Nothing
' Continue Processesing File
Set objHPInputFile = objHPFSO.OpenTextFile("\\" & strComputer2 & "\C$\output.txt", ForReading)
Do Until objHPInputFile.AtEndOfStream
strHPArray = strHPArray & objHPInputFile.ReadLine & vbcrlf
Loop
' Close Input File
objHPInputFile.Close
' Close Link to Server
objHPFSO.DeleteFile("\\" & strComputer2 & "\C$\output.txt")
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
' Create String Array
strHPParse = Split(strHPArray, vbcrlf)
' Parse For Individual RAID Arrays
Dim strArrayList()
z = 0
For i = 0 To UBound(strHPParse)
j = 0
' Array and Drives
If InStr(strHPParse(i), "Array Specifications") Then
ReDim Preserve strArrayList(z)
strArrayList(z) = strArrayList(z) & strHPParse(i) & vbcrlf
For j = i + 1 To Ubound(strHPParse)
If InStr(strHPParse(j), "Array Specifications") Then
Exit For
Else
strArrayList(z) = strArrayList(z) & strHPParse(j) & vbcrlf
End If
Next
z = z + 1
End If
Next
' Process Each RAID Array
x = 0
For x = 0 To UBound(strArrayList)
strListParse = Split(strArrayList(x), vbcrlf)
For y = 0 To UBound(strListParse)
' Drives
If Left(strListParse(y), 6) = "Drive=" Then
strDrives = ""
strDrives = Split(strListParse(y), ",")
k = 0
For j = 0 To UBound(strDrives)
k = k + 1
Next
strDriveCount = k ' For Output
End If
' Hot Spare
If InStr(strListParse(y), "OnlineSpare=") Then
If InStr(strListParse(y), "OnlineSpare= No") Then
strHotSpare = strHotSpare & "N" ' For Output
Else
strHotSpare = strHotSpare & "Y" ' For Output
End If
End If
' Logical Drives
If InStr(strListParse(y), "Logical Drive Specifications") Then
' Find First Logical Drive
strRAID = Split(strListParse(y + 2), " ")
strRAIDResult = strRAIDResult & "RAID " & strRAID(1) & " / " ' For Output
strGetDrive = Split(strListParse(y + 3), " ")
strRAIDSize = strRAIDSize & ByteConvertRAID(strGetDrive(1)) & " / " ' For Output
End If
Next
' Process Results
strRAIDSize = Left(strRAIDSize, Len(strRAIDSize) - 3)
strRAIDResult = Left(strRAIDResult, Len(strRAIDResult) - 3)
strNewList = strNewList & strDriveCount & _
":" & strRAIDSize & ":" & strRAIDResult & ":" & strHotSpare & Chr(13)
' Dispose Array Variables
strDriveCount = ""
strRAIDSize = ""
strRAIDResult = ""
strHotSpare = ""
Next
' Return Array Output
GetHPArray = Left(strNewList, Len(strNewList) - 1)
Exit Function
Else ' "output.txt" Is Locked
' Close File
Set objHPOutputFile = Nothing
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "output.txt" Does not Exist
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "Array Manager Does not Exist
' Input not Available
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
End Function
'--------------------Functions (End)--------------------'
' Set Excel Attributes
Const xlVAlignTop = -4160
Set objRange2 = objWorksheet.UsedRange
objRange2.VerticalAlignment = xlVAlignTop
' Set Font Attributes
objXLA.Cells.Font.Size = 8
objXLA.Cells.Font.Name = "Arial"
objXLA.Cells.Font.ColorIndex = 11
objXLA.Cells.EntireColumn.AutoFit
objXLA.Cells(1, 9).ColumnWidth = 30 ' RAM Slots
objXLA.Cells(1, 11).ColumnWidth = 40 ' NIC Port
objXLA.Cells(1, 13).ColumnWidth = 25 ' Connection Name
objXLA.Cells(1, 14).ColumnWidth = 25 ' Interface IP's
objXLA.Cells(1, 15).ColumnWidth = 25 ' Virtual IP's
objXLA.Cells(1, 16).ColumnWidth = 15 ' DNS1
objXLA.Cells(1, 17).ColumnWidth = 15 ' DNS2
objXLA.Cells(1, 18).ColumnWidth = 15 ' Interface Type
objXLA.Cells.HorizontalAlignment = 2 ' Drive Count
objXLA.Cells(1, 20).ColumnWidth = 20 ' Virtual IP's
objXLA.Cells(1, 21).ColumnWidth = 20 ' Virtual IP's
' Save
set objFSO2 = CreateObject("Scripting.FileSystemObject")
strFileName = objFSO2.getAbsolutePathName("") & "\Scan Results.xls"
objWorkbook.SaveAs(strFileName)
objWorkbook.Close
objXLA.Quit
' Notify User
WScript.Echo "Process Completed (" & Now & ")"
' Close Program
WScript.Quit(0)I Need my script modified to run this script and output to CSV but its so big I am not sure where to start. I don't need it in XLS at all, and I can add my own headers, cell sizes and colors, etc. so It should just output the data to a simple CSV.
On Error Resume Next
Dim PUBOSVer ' Global OS Version
' Open File For Writing
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForReading = 1
' Get Server List
strServerFilename = "servers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strServerFilename) Then
' Open Servers File
Set objServers = objFSO.OpenTextFile(strServerFilename, ForReading)
Else
' Server File is missing: Exit
intMsg = MsgBox("File: " & Chr(34) & UCASE(strServerFilename) & Chr(34) & _
" is either " & _
"Missing or Damaged!" & vbcrlf & _
vbcrlf & _
"This Script will now Exit.", vbCritical, "Server File Error")
WScript.Quit(0)
End If
Do Until objServers.AtEndOfStream
strNewServer = Trim(objServers.ReadLine)
strServerList = strServerList & strNewServer & vbcrlf
intServerCnt = intServerCnt + 1
Loop
' Enumerate Server Array
For a = 0 To intServerCnt - 1
strServer = Split(strServerList, vbcrlf)
Next
' Create Excel Spreadsheet
Set objXLA = CreateObject("Excel.Application")
objXLA.Visible = False
objXLA.DisplayAlerts = False
Set objWorkbook = objXLA.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
'Excel Constants
Const xlEdgeLeft = 7
Const xlContinuous = 1
Const xlNone = -4142
Const xlMedium = -4138
Const xlThin = 2
'Set Headers
' System Information
objXLA.Cells(1,1).Value = "Service ID"
objXLA.Cells(1,2).Value = "Company Name"
objXLA.Cells(1,3).Value = "Manufacturer"
objXLA.Cells(1,4).Value = "Model"
objXLA.Cells(1,5).Value = "Operating System"
' Processors
objXLA.Cells(1,6).Value = "Processor Type"
objXLA.Cells(1,7).Value = "Processors"
' RAM
objXLA.Cells(1,8).Value = "RAM"
objXLA.Cells(1,9).Value = "Slots"
objXLA.Cells(1,10).Value = "Max Capacity"
' Network
objXLA.Cells(1,11).Value = "NIC Port"
objXLA.Cells(1,12).Value = "Speed"
objXLA.Cells(1,13).Value = "Connection Name"
objXLA.Cells(1,14).Value = "Primary IP"
objXLA.Cells(1,15).Value = "Virtual IP"
objXLA.Cells(1,16).Value = "Primary DNS"
objXLA.Cells(1,17).Value = "Secondary DNS"
' Hard Disks
objXLA.Cells(1,18).Value = "Interface"
objXLA.Cells(1,19).Value = "Physical Disks"
objXLA.Cells(1,20).Value = "Disk Size"
objXLA.Cells(1,21).Value = "Fault Tolerant"
objXLA.Cells(1,22).Value = "Hot Spare"
' Set Top Line
objXLA.Cells(1, 1).EntireRow.Font.Bold = True
objXLA.Cells(1, 1).EntireRow.Font.Underline = True
For b = 0 To UBound(strServer) - 1
strServerParts = Split(strServer(b), " ")
strComputer = strServerParts(0)
' Parse Server Information
If UBound(strServerParts) = 2 Then
strUsername = Trim(strServerParts(1))
strPassword = Trim(strServerParts(2))
End If
' Create Connection Object
Set objWMIService = Nothing
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
' Check if Server Exists
For intWMICheck = 0 To 15
If Not objWMIService Is Nothing Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Server Exists
If intWMICheck < 15 Then
' Get CPU Information
Set colProcessor = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each colProc In colProcessor
strManuf = colProc.Manufacturer
strDescription = ProcessorName(colProc.Name)
strClockSpeed = colProc.CurrentClockSpeed
strSocket = strSocket & colProc.SocketDesignation & vbcrlf
strProcID = strProcID & colProc.ProcessorID & vbcrlf
strUniqueID = strUniqueID & colProc.UniqueID & vbcrlf
ProcCount = ProcCount + 1
Next
' Determine if Hyperthreading is Enabled
strHTStatus = GetHTStatus(strSocket, ProcCount, strProcID, strUniqueID)
' DC / HT Results
If strHTStatus = "True" Then
If InStr(strManuf, "Intel") Then
strDescription = strDescription & " (Dual Core or H/T)"
Else
strDescription = strDescription & " (Dual Core)"
End If
ProcCount = ProcCount / 2
End If
' Export Information
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
' Write Basic System Information
For Each objItem in colCS
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItemOS in colOS
' Get SP Version
If objItemOS.CSDVersion <> "" Then
strSPVersion = objItemOS.CSDVersion
Else
strSPVersion = "No Service Packs Installed"
End If
If objItemOS.LastBootUpTime <> "" Then
strLastBoot = DateConvert(objItemOS.LastBootUpTime)
Else
strLastBoot = "N/A"
End If
' Set OS Version Information
PUBOSVer = objItemOS.Caption
objXLA.Cells(b + 2, 1).Value = objItemOS.csname
objXLA.Cells(b + 2, 3).Value = objItem.Manufacturer
objXLA.Cells(b + 2, 4).Value = objItem.Model
objXLA.Cells(b + 2, 5).Value = PUBOSVer & " - " & strSPVersion
objXLA.Cells(b + 2, 6).Value = strDescription
objXLA.Cells(b + 2, 7).Value = ProcCount
objXLA.Cells(b + 2, 8).Value = MemoryConvert(objItem.TotalPhysicalMemory)
Next
Next
' Get Memory Breakdown
Dim strMemBreak
strMemBreak = Split(MemoryBreakdown(), vbcrlf)
n = 0
For n = 0 To UBound(strMemBreak) - 1
strSlots = strSlots & strMemBreak(n) & Chr(10)
Next
strMaxCapacity = strMemBreak(UBound(strMemBreak))
objXLA.Cells(b + 2, 9).Value = Left(strSlots, Len(strSlots) - 1)
objXLA.Cells(b + 2, 10).Value = strMaxCapacity
' Dispose
strMemBreak = ""
strMaxCapacity = ""
strSlots = ""
'--------------Computer Information (End)------------------'
'-------------Partition Information (Start)----------------'
' Get Drive Count
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set DiskItemsParent = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
intCount = DiskItemsParent.Count
' Process Drives
intDriveMark = 0
For i = 0 To intCount - 1
Set DiskItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE Index = " & i)
For Each diskItem in DiskItems
' Convert Drive Size
If diskItem.Size <> "" Then strSize = strSize & ByteConvert(diskItem.Size) & Chr(10) Else strSize = "N/A" & Chr(10)
If diskItem.StatusInfo <> "" Then strStsInfo = diskItem.StatusInfo Else strStsInfo = "N/A"
If diskItem.SCSIBus <> "" Then strSCSIBus = diskItem.SCSIBus Else strSCSIBus = "N/A"
If diskItem.SCSILogicalUnit <> "" Then strSCSILog = diskItem.SCSILogicalUnit Else strSCSILog = "N/A"
If diskItem.SCSIPort <> "" Then strSCSIPort = diskItem.SCSIPort Else strSCSIPort = "N/A"
If diskItem.SCSITargetId <> "" Then strSCSITarget = diskItem.SCSITargetId Else strSCSITarget = "N/A"
' Get Model
strModel = Split(diskItem.Model, " ")
' Detect HP Array
If (UCase(strModel(0)) = "HP" Or UCase(strModel(0)) = "COMPAQ") And intDriveMark = 0 Then
strGetHPArray = GetHPArray(strComputer, strUsername, strPassword)
If strGetHPArray <> "" Then
strSplitHP = Split(strGetHPArray, Chr(13))
For a = 0 To UBound(strSplitHP)
strSplitResult = Split(strSplitHP(a), ":")
i = i + 1
strDriveCount = strDriveCount & Trim(strSplitResult(0)) & Chr(10)
strDriveSize = strDriveSize & Trim(strSplitResult(1)) & Chr(10)
strDriveFault = strDriveFault & Trim(strSplitResult(2)) & Chr(10)
strDriveSpare = strDriveSpare & Trim(strSplitResult(3)) & Chr(10)
strInterface = strInterface & "HP SCSI" & Chr(10)
Next
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
intDriveMark = 1 ' Mark That Data was Obtained
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
strInterface = strInterface & "HP SCSI " & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
End If
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
' Set Interface
If diskItem.InterfaceType = "IDE" Then
strInterface = strInterface & "ATA" & Chr(10)
Else
strInterface = strInterface & "SATA/SCSI" & Chr(10)
End If
End If
' Set Cell Value "Interface"
objXLA.Cells(b + 2, 18).Value = Left(strInterface, Len(strInterface) - 1)
Next
' Dispose Drive Sizes
strDriveSize = ""
Next
' Dispose Drive Values
strDriveCount = ""
strDriveFault = ""
strDriveSpare = ""
strInterface = ""
'----Partition Information (End)---------------------------'
'----Network Information (Start)---------------------------'
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
i = 1
eth = 0
Dim STOREDIP(0)
intNum = 0
For Each objItem in colItems
If objItem.NetConnectionStatus <> "" Then
' Determine Connection Status
If objItem.NetConnectionStatus = 0 Then
strNetStat = "Disabled"
ElseIf objItem.NetConnectionStatus = 2 Then
strNetStat = "Connected"
ElseIf objItem.NetConnectionStatus = 7 Then
strNetStat = "Disconnected"
Else
strNetStat = "Unknown"
End If
If objItem.NetConnectionStatus <> 0 Then
' Get Network Card Information
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strKeyPath2 = "SYSTEM\CurrentControlSet\Services\NetBT\Parameters"
strHostEntry = "Hostname"
strDomainEntry = "Domain"
strNodeEntry = "DhcpNodeType"
strRoutingEntry = "IPEnableRouter"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strDomainEntry,strDomain
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strNodeEntry,dwNodeType
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strRoutingEntry,dwIPRouting
Select Case dwNodeType
Case 4 strNodeType = "Mixed"
Case 8 strNodeType = "Hybrid"
Case Else strNodeType = dwNodeType
End Select
If dwIPRouting = 0 Then
strIPRouting = "No"
ElseIf dwIPRouting = 1 Then
strIPRouting = "Yes"
Else
strIPRouting = "?"
End If
Set colFirstNicConfig = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objFirstNicConfig In colFirstNicConfig
strDnsWins = objFirstNicConfig.DNSEnabledForWINSResolution
Next
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' Display per-adapter settings.
For Each objNicConfig In colNicConfigs
intIndex = objNicConfig.Index
Set objNic = objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & intIndex)
' Connection Name
If GetOsVer > 5 Then
' Works only in XP / 2003
strNetConn = objNic.NetConnectionID
ElseIf GetOsVer = 5 Then
strNetConn = ""
' Get Home Drive of Remote Server
Set objShell = CreateObject("WScript.Shell")
Set objEtherName = objShell.Exec("cmd /c ipconfig | find " & Chr(34) & "Ethernet" & Chr(34))
strEtherName = objEtherName.StdOut.ReadAll()
strEtherParse = Split(strEtherName, Chr(13))
strEtherConn = Split(strEtherParse(eth), " ")
For y = 2 To UBound(strEtherConn)
strNetConn = strNetConn & " " & strEtherConn(y)
Next
' Trim Connection Name
strNetConn = Left(Trim(strNetConn), Len(Trim(strNetConn)) - 1)
Else
strNetConn = ""
End If
' IP Addresses
strIPAddresses = ""
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
strIPAddresses = strIPAddresses & strIPAddress & " "
Next
End If
strIPCollection = Split(strIPAddresses, " ")
' Subnets
strIPSubnets = ""
If Not IsNull(objNicConfig.IPSubnet) Then
For Each strIPSubnet In objNicConfig.IPSubnet
strIPSubnets = strIPSubnets & strIPSubnet & " "
Next
End If
strSMCollection = Split(strIPSubnets, " ")
' Virtual IP's
strVirtual = ""
If UBound(strIPCollection) > 1 Then
For IPCount = 1 To UBound(strIPCollection) - 1
strVirtual = strVirtual & (strIPCollection(IPCount) & " / " & strSMCollection(IPCount)) & Chr(10)
Next
strVirtual = Left(strVirtual, Len(strVirtual) - 1)
End If
If Trim(strVirtual) = "" Then strVirtual = "N/A"
' Gateways
strDefaultIPGateways = ""
If Not IsNull(objNicConfig.DefaultIPGateway) Then
For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
strDefaultIPGateways = strDefaultIPGateways & strDefaultIPGateway & " "
Next
Else
strDefaultIPGateways = "N/A"
End If
' If IP is repeated, and was already reported.
intSkipLoop = 0
If Trim(strNetConn) <> "" Then
For j = 0 To intNum - 1
If STOREDIP(j) = strIPAddresses Then
intSkipLoop = 1
Exit For
End If
Next
If intSkipLoop = 0 Then
ReDim Preserve STOREDIP(intNum)
STOREDIP(intNum) = strIPAddresses
intNum = intNum + 1
End If
Else
intSkipLoop = 1
End If
' DNS
strDNSServerSearchOrder = ""
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
strDNSServerSearchOrder = strDNSServerSearchOrder & strDNSServer & " "
Next
strDNS = Split(strDNSServerSearchOrder, " ")
strDNS1 = strDNS(0)
If Trim(strDNS1) = "" Then strDNS1 = "N/A"
If UBound(strDNS) > 1 Then
strDNS2 = strDNS(1)
Else
strDNS2 = "N/A"
End If
Else
strDNS1 = "N/A"
strDNS2 = "N/A"
End If
' Run Output Process
If intSkipLoop = 0 Then
' Connection Speed
strSpeed = "Unknown"
Set objWMIService2 = objSWbemLocator.ConnectServer _
(strComputer, "root\WMI", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
Set listAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_LinkSpeed")
Set enumAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_EnumerateAdapter")
For Each objAdapter in listAdapters
For Each objEnum in enumAdapters
intEnum = Len(objEnum.DeviceName)
If objNicConfig.SettingID = Right(objEnum.DeviceName, intEnum - 8) Then
If objEnum.InstanceName = objAdapter.InstanceName Then
intLength = Len(objAdapter.NdisLinkSpeed/10000)
If intLength > 3 Then
strSpeed = Left(objAdapter.NdisLinkSpeed/10000, intLength - 3)
strSpeed = strSpeed & ".0 Gbps"
Else
strSpeed = objAdapter.NdisLinkSpeed/10000 & " Mbps"
End If
End If
End If
Next
Next
strTotalDesc = strTotalDesc & objNicConfig.Description & Chr(10)
strTotalSpeed = strTotalSpeed & strSpeed & Chr(10)
strTotalNetConn = strTotalNetConn & strNetConn & Chr(10)
strPrimaryIP = strPrimaryIP & strIPCollection(0) & " / " & strSMCollection(0) & Chr(10)
strDNSTotal1 = strDNSTotal1 & strDNS1 & Chr(10)
strDNSTotal2 = strDNSTotal2 & strDNS2 & Chr(10)
strTotalVirtual = strTotalVirtual & strVirtual & Chr(10)
i = i + 1
eth = eth + 2
' Dispose
strDescription = ""
ProcCount = 0
strClockSpeed = ""
strInterface = ""
intCount = 0
strSize = ""
strSpeed = ""
strIPCollection = ""
strVirtual = ""
strDNS = ""
strDNS1 = ""
strDNS2 = ""
End If
Next
' Output
' Trim Leading Chr(10)
If Left(strPrimaryIP, 1) = Chr(10) Then strPrimaryIP = Right(strPrimaryIP, Len(strPrimaryIP) - 1)
If Left(strTotalVirtual, 1) = Chr(10) Then strTotalVirtual = Right(strTotalVirtual, Len(strTotalVirtual) - 1)
If Left(strDNSTotal1, 1) = Chr(10) Then strDNSTotal1 = Right(strDNSTotal1, Len(strDNSTotal1) - 1)
If Left(strDNSTotal2, 1) = Chr(10) Then strDNSTotal2 = Right(strDNSTotal2, Len(strDNSTotal2) - 1)
objXLA.Cells(b + 2, 11).Value = Trim(Left(strTotalDesc, Len(strTotalDesc) - 1))
objXLA.Cells(b + 2, 12).Value = Trim(Left(strTotalSpeed, Len(strTotalSpeed) - 1))
objXLA.Cells(b + 2, 13).Value = Trim(Left(strTotalNetConn, Len(strTotalNetConn) - 1))
objXLA.Cells(b + 2, 14).Value = Trim(Left(strPrimaryIP, Len(strPrimaryIP) - 1))
objXLA.Cells(b + 2, 15).Value = Trim(Left(strTotalVirtual, Len(strTotalVirtual) - 1))
objXLA.Cells(b + 2, 16).Value = Trim(Left(strDNSTotal1, Len(strDNSTotal1) - 1))
objXLA.Cells(b + 2, 17).Value = Trim(Left(strDNSTotal2, Len(strDNSTotal2) - 1))
End If
End If
' Dispose Per Loop
strTotalDesc = ""
strTotalSpeed = ""
strTotalNetConn = ""
strPrimaryIP = ""
strDNSTotal1 = ""
strDNSTotal2 = ""
strTotalVirtual = ""
Set eth = 0
Set i = 0
Next
'------------Network Information (End)------------------'
Else
'No Data Present
objXLA.Cells(b + 2, 1).Value = strComputer
objXLA.Cells(b + 2, 3).Value = "Information Not Available"
objXLA.Cells(b + 2, 1).EntireRow.Font.Bold = True
objXLA.Cells(b + 2, 1).EntireRow.Interior.ColorIndex = 44
End If
' Dispose Per Server
ProcCount = 0
strSocket = ""
strProcID = ""
strUniqueID = ""
Set objWMIService = Nothing
Next
'-----------------Functions (Start)---------------------'
' System Memory Conversion
Function MemoryConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 4 = 0) Then
intExp = CInt((intLength / 3) - 2)
Else
intExp = CInt((intLength / 3) - 1)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
If Len(intSize) = 1 Then
strFormat = FormatNumber(CStr(intSize), 2)
Else
strFormat = intSize + 1
End If
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
MemoryConvert = strFormat & " " & strMeasure
End Function
' System Byte Conversion
Function ByteConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
ByteConvert = strFormat & " " & strMeasure
End Function
' System RAID Byte Conversion
Function ByteConvertRAID(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = (strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 0) Then
strMeasure = "MB"
ElseIf (intExp = 1) Then
strMeasure = "GB"
ElseIf (intExp = 2) Then
strMeasure = "TB"
ElseIf (intExp = 3) Then
strMeasure = "PB"
ElseIf (intExp = 4) Then
strMeasure = "EB"
End If
ByteConvertRAID = strFormat & " " & strMeasure
End Function
' Trim Processor Description
Function ProcessorName(strName)
Dim intCounter
Dim strRead
Dim chrRead, chrReadMore
For intCounter = 1 to Len(strName)
chrRead = Mid(strName, intCounter, 1)
chrReadMore = Mid(strName, intCounter + 1, 1)
If ((chrRead <> " ") Or ((chrRead = " ") And (chrReadMore <> " "))) Then
strRead = strRead & chrRead
End If
Next
ProcessorName = Trim(strRead)
End Function
' Get Hyper-Threading Status
Function GetHTStatus(strName, intProc, strID, strUnique)
strNameArray = Split(strName, vbcrlf)
strIDArray = Split(strID, vbcrlf)
strUniqueList = Split(strUnique, vbcrlf)
intTotal = 0
' Check Socket Designation
For i = 0 To UBound(strNameArray) - 1
intMark = 1
' Check for Redundancies
For j = i + 1 To UBound(strNameArray) - 1
If strNameArray(i) = strNameArray(j) Then
intMark = 0
End If
Next
' If Redundant Unique ID's Exist
For j = i + 1 To UBound(strNameArray) - 1
If strUniqueList(i) <> "" And strUniqueList(j) <> "" And _
(strUniqueList(i) <> strUniqueList(j)) Then
intMark = 1
End If
Next
' Check for NULL ProcessorID
If Trim(strIDArray(i)) = "0000000000000000" Then
intMark = 0
End If
' Calculate Total
If intMark = 1 Then
intTotal = intTotal + intMark
End If
Next
' Compare Results
If intProc = 2 * intTotal Then
GetHTStatus = "True"
Else
GetHTStatus = "False"
End If
End Function
' Get Memory Breakdown
Function MemoryBreakdown
Set colPMAItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemoryArray",,48)
For Each objPMAItem in colPMAItems
lngMax = CLng(objPMAItem.MaxCapacity)
intCount = CInt(objPMAItem.MemoryDevices)
Next
ReDim Preserve strPMArray(intCount)
Set colPMItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objPMItem in colPMItems
strValue = strValue & objPMItem.DeviceLocator & ": "
strValue = strValue & objPMItem.Capacity / 2^20 & "MB, "
strValue = strValue & objPMItem.Speed & "MHz"
strPMArray(TrimTrailingNumber(objPMItem.Tag)) = strValue
strValue = ""
Next
j = 0
strResult = ""
For j = 0 To intCount - 1
If Trim(strPMArray(j)) = "" Then strPMArray(j) = "<Empty>"
strResult = strResult & strPMArray(j) & vbcrlf
Next
strResult = strResult & (lngMax / 2^10) & "MB"
MemoryBreakdown = strResult
End Function
' Get Part Name
Function ExtractPartName(strName)
Dim chrRead
Dim strRead
Dim i
For i = 2 To Len(strName)
chrRead = Mid(strName, Len(strName) - (i - 1), 1)
If chrRead <> Chr(34) Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
ExtractPartName = strRead
End Function
' Get Trailing Number
Function TrimTrailingNumber(strNum)
Dim chrRead
Dim strRead
Dim intLen
strNum = Trim(strNum)
intLen = Len(strNum)
i = 1
For i = 1 To intLen
chrRead = Mid(strNum, intLen - (i - 1), 1)
If IsNumeric(chrRead) = "True" Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
TrimTrailingNumber = strRead
End Function
' Function: WMIDateStringToDate(dtmDate)
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
' Function: GetOsVer
Function GetOsVer
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
GetOSVer = CSng(Left(objOperatingSystem.Version, 3))
Next
End Function
' Function: GetHPArray
Function GetHPArray(strComputer2, strUsername2, strPassword2)
' Check for 64-bit Windows
If InStr(PUBOSVer, "x64") Then
strCompaq = "Program Files (x86)\Compaq\Cpqacuxe\Bin"
Else
strCompaq = "Program Files\Compaq\Cpqacuxe\Bin"
End If
' Create Connection Object
Set objWMIServiceRem = objWMIService.Get("Win32_Process")
' Confirm Location of Compaq Array Manager
Set objHPShell = CreateObject("WScript.Shell")
Set objHPFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork2 = WScript.CreateObject("WScript.Network")
WshNetwork2.MapNetworkDrive "", "\\" & strComputer2 & "\C$" ,,strUsername2, strPassword2
strProgram = "\\" & strComputer2 & "\C$\" & strCompaq & "\cpqacuxe.exe"
' Ensure Access is Possible
If objHPFSO.FileExists(strProgram) Then
' Process Array Config
strProcess = Chr(34) & "C:\" & strCompaq & "\cpqacuxe.exe" & Chr(34) & " -c c:\output.txt"
Process = objWMIServiceRem.Create(strProcess, null, null, intProcessID)
' Check for "output.txt"
For intTimerHP = 0 To 10
If objFSO.FileExists("\\" & strComputer2 & "\C$\output.txt") Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Process Output
If intTimerHP < 10 Then
' Check for Locked Output File
Set objHPOutputFile = objHPFSO.GetFile("\\" & strComputer2 & "\C$\output.txt")
If objHPOutputFile.Size <> 0 Then
' Close File
Set objHPOutputFile = Nothing
' Continue Processesing File
Set objHPInputFile = objHPFSO.OpenTextFile("\\" & strComputer2 & "\C$\output.txt", ForReading)
Do Until objHPInputFile.AtEndOfStream
strHPArray = strHPArray & objHPInputFile.ReadLine & vbcrlf
Loop
' Close Input File
objHPInputFile.Close
' Close Link to Server
objHPFSO.DeleteFile("\\" & strComputer2 & "\C$\output.txt")
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
' Create String Array
strHPParse = Split(strHPArray, vbcrlf)
' Parse For Individual RAID Arrays
Dim strArrayList()
z = 0
For i = 0 To UBound(strHPParse)
j = 0
' Array and Drives
If InStr(strHPParse(i), "Array Specifications") Then
ReDim Preserve strArrayList(z)
strArrayList(z) = strArrayList(z) & strHPParse(i) & vbcrlf
For j = i + 1 To Ubound(strHPParse)
If InStr(strHPParse(j), "Array Specifications") Then
Exit For
Else
strArrayList(z) = strArrayList(z) & strHPParse(j) & vbcrlf
End If
Next
z = z + 1
End If
Next
' Process Each RAID Array
x = 0
For x = 0 To UBound(strArrayList)
strListParse = Split(strArrayList(x), vbcrlf)
For y = 0 To UBound(strListParse)
' Drives
If Left(strListParse(y), 6) = "Drive=" Then
strDrives = ""
strDrives = Split(strListParse(y), ",")
k = 0
For j = 0 To UBound(strDrives)
k = k + 1
Next
strDriveCount = k ' For Output
End If
' Hot Spare
If InStr(strListParse(y), "OnlineSpare=") Then
If InStr(strListParse(y), "OnlineSpare= No") Then
strHotSpare = strHotSpare & "N" ' For Output
Else
strHotSpare = strHotSpare & "Y" ' For Output
End If
End If
' Logical Drives
If InStr(strListParse(y), "Logical Drive Specifications") Then
' Find First Logical Drive
strRAID = Split(strListParse(y + 2), " ")
strRAIDResult = strRAIDResult & "RAID " & strRAID(1) & " / " ' For Output
strGetDrive = Split(strListParse(y + 3), " ")
strRAIDSize = strRAIDSize & ByteConvertRAID(strGetDrive(1)) & " / " ' For Output
End If
Next
' Process Results
strRAIDSize = Left(strRAIDSize, Len(strRAIDSize) - 3)
strRAIDResult = Left(strRAIDResult, Len(strRAIDResult) - 3)
strNewList = strNewList & strDriveCount & _
":" & strRAIDSize & ":" & strRAIDResult & ":" & strHotSpare & Chr(13)
' Dispose Array Variables
strDriveCount = ""
strRAIDSize = ""
strRAIDResult = ""
strHotSpare = ""
Next
' Return Array Output
GetHPArray = Left(strNewList, Len(strNewList) - 1)
Exit Function
Else ' "output.txt" Is Locked
' Close File
Set objHPOutputFile = Nothing
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "output.txt" Does not Exist
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "Array Manager Does not Exist
' Input not Available
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
End Function
'--------------------Functions (End)--------------------'
' Set Excel Attributes
Const xlVAlignTop = -4160
Set objRange2 = objWorksheet.UsedRange
objRange2.VerticalAlignment = xlVAlignTop
' Set Font Attributes
objXLA.Cells.Font.Size = 8
objXLA.Cells.Font.Name = "Arial"
objXLA.Cells.Font.ColorIndex = 11
objXLA.Cells.EntireColumn.AutoFit
objXLA.Cells(1, 9).ColumnWidth = 30 ' RAM Slots
objXLA.Cells(1, 11).ColumnWidth = 40 ' NIC Port
objXLA.Cells(1, 13).ColumnWidth = 25 ' Connection Name
objXLA.Cells(1, 14).ColumnWidth = 25 ' Interface IP's
objXLA.Cells(1, 15).ColumnWidth = 25 ' Virtual IP's
objXLA.Cells(1, 16).ColumnWidth = 15 ' DNS1
objXLA.Cells(1, 17).ColumnWidth = 15 ' DNS2
objXLA.Cells(1, 18).ColumnWidth = 15 ' Interface Type
objXLA.Cells.HorizontalAlignment = 2 ' Drive Count
objXLA.Cells(1, 20).ColumnWidth = 20 ' Virtual IP's
objXLA.Cells(1, 21).ColumnWidth = 20 ' Virtual IP's
' Save
set objFSO2 = CreateObject("Scripting.FileSystemObject")
strFileName = objFSO2.getAbsolutePathName("") & "\Scan Results.xls"
objWorkbook.SaveAs(strFileName)
objWorkbook.Close
objXLA.Quit
' Notify User
WScript.Echo "Process Completed (" & Now & ")"
' Close Program
WScript.Quit(0) -
F110 run the payment run directly without running the proposal run first
Hello to you all,
Does any one know I do I block the option to run the payment run directly without running the proposal run first?
Thanks in advance,
YoavHi
First delete the payment run output by the following :
Goto Edit on menu bar --> Payment --> Delete Output
then run the proposal run again and after that process payment run. -
IBot options - previous date run and export to external file
Hello,
I'm trying to understand how the iBot works, and have some questions.
1) Can (or how do) we use a previous date in a request so that we don’t need to change a daily running Ibot (Yesterday’s sales run daily)? Would we need to set a function saying CurrentDate - 1 or other function?
2) Can we set up an Ibot to run output to a file location (c:\) in excel format? I am guessing you need a script of some kind.
If anyone can assist, I would appreciate it.
Thanks in advance.
Neal1) Create a RPD variable for your Yesterday's Business Date and use this in your Answers Query that the iBot runs so you don't hard-code your business date.
2) Yes, you can but you need some Java Script or Java Class to do this. See this post for a sample: http://oraclebizint.wordpress.com/2007/12/17/oracle-bi-ee-101332-calling-java-scripts-and-java-classes-from-ibots/ -
Error generating the output preview
Hi friends!
Could you help me u2013 when I run Output Preview in bit invitation process Iu2019ve got a system error u201CError generating the output previewu201D.
What could be a reason?Note 1172470 - BBP_BID: Error generating the output preview
Note Language: English Version: 3 Validity: Valid from 26.05.2008
Summary
Symptom
From transaction "Process bid"(BBP_QUOT) when you click on print preview,
you get the error "Error generating the output preview". Due to this error
the preview is not displayed.
More Terms
BBP_BID 210, output preview, print preview, preview, bid, quotation, quot,
BBP_QUOT, BBP_OUTPUT, SAPLBBP_OUTPUT, pdf, BBP_OUTPUT_QUOT_PREVIEW_SMART,
SYSTEM_INSTALLED_LANGUAGES.
Cause and Prerequisites
This is caused by a program error.
Solution
Implement the attached corrections or import the corresponding support
package
Header Data
Release Status: Released for Customer
Released on: 26.05.2008 11:14:52
Priority: Correction with medium priority
Category: Program error
Main Component SRM-EBP-CA-PRT Document Output / Forms
Additional Components:
SRM-EBP-QUO Quotation, Bid
Valid Releases
Software Component Release From
Release
To Release and Following
SRM_SERVER 550 550 550
Support Packages
Support Packages Release Package Name
SRM_SERVER 550 SAPKIBKT13
SRM_SERVER 600 SAPKIBKU05
Please raise customer message -
I would like to be able to pipe output to the screen as well as to 'append' it to an array
I would like to be able to pipe output to the screen as well as to 'append' it to a variable.
For example, for something like this:
$result =@()
$result += Invoke-Command -cn $servers -scriptblock { foo }
I would like to be able to see on the screen the running output of
Invoke-Command -cn $servers -scriptblock { foo }
as well as capture each result to the $result variable.Just wrap the expression in parens:
($result += Invoke-Command -cn $servers -scriptblock { foo })
[string](0..33|%{[char][int](46+("686552495351636652556262185355647068516270555358646562655775 0645570").substring(($_*2),2))})-replace " "
Maybe you are looking for
-
Time enry collisions and wage type issues
Hi Experts, We do not have holiday's embedded in our schedules due to the flexibility in when employees are allowed to take the paid time off and also due to our "flex" work schedules being more than 8 hour work days but the holiday benefit is an 8 h
-
Custom Report generation in the Simple UserInterface
Hello, I've created a workspace, a project and some sequences in TestStand 4.0. I've also created a custom report generation. This all works fine in TestStand. The custom report file is a txt file. The custom report generation is chosen above the def
-
Hi I have an Hp envy m4 with windows 8 preinstalled. When I try to use the multiouch gestures, the touchpad freezes and I can't move the mouse during a few seconds. I've tried everything, reinstalling drivers, updating them, etc,etc. Nothing seems to
-
Hello I`ve had to clean up my Thinkpad t61p keyboard after an unfortunate incident involving a glass of soda, and now the trackpoint has gone crazy.I had to disable it because it was moving my cursor randomly to corners of the screen.I`ve also seem t
-
Problem about "Expect: 100-continue"
Hi, I recently konw that Sun Java System Webserver doesn't respond "Expect: 100-continue" of request header. I tried something like below. ================ [Web Logic Plug-in] ================ ----- [Web Server 6.0 sp8] ----- telnet localhost 92 Tryi