/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / usb / VMware-server-installer101.exe / status.pl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6c 6c 6f 77 69 6e 67 20 | 76 05 05 05 05 05 05 05 |llowing |v.......|
|00000010| 05 05 05 05 05 05 05 05 | 05 73 20 61 72 65 20 72 |........|.s are r|
|00000020| 65 67 69 73 74 65 72 65 | 64 3a 5c 6e 22 3b 0d 0a |egistere|d:\n";..|
|00000030| 0d 0a 23 29 29 20 68 65 | 20 76 69 72 74 75 61 6c |..#)) he| virtual|
|00000040| 20 6d 61 63 68 69 6e 65 | 20 73 70 65 63 69 66 69 | machine| specifi|
|00000050| 65 64 20 62 79 0d 0a 23 | 20 43 6f 6e 66 69 67 54 |ed by..#| ConfigT|
|00000060| 6f 74 68 69 73 0d 0a 23 | 20 76 69 75 05 68 65 20 |othis..#| viu.he |
|00000070| 76 69 72 29 b9 3c da 3c | 7b 28 24 65 72 72 6f 72 |vir).<.<|{($error|
|00000080| 5f 6e 75 6d 62 65 72 2c | 20 24 65 72 72 6f 72 5f |_number,| $error_|
|00000090| 73 74 72 69 6e 67 29 20 | 3d 20 24 73 65 72 76 65 |string) |= $serve|
|000000a0| 72 2d 3e 67 65 74 5f 6c | 61 73 74 5f 65 72 72 6f |r->get_l|ast_erro|
|000000b0| 72 28 29 3b 0d 0a 20 20 | 20 64 69 0a 67 65 74 67 |r();..  | di.getg|
|000000c0| 75 65 73 74 69 70 2e 70 | 6c 0d 20 61 6e 64 20 57 |uestip.p|l. and W|
|000000d0| 69 6e 64 6f 77 73 20 4e | 54 20 61 72 65 5f 6e 75 |indows N|T are_nu|
|000000e0| 6d 62 65 72 3a 20 24 65 | 72 72 6f 72 5f 73 74 72 |mber: $e|rror_str|
|000000f0| 69 6e 67 5c 6e 22 3b 0d | 0a 7d 0d 0a 0d 0a 70 72 |ing\n";.|.}....pr|
|00000100| 69 6e 74 20 22 5c 6e 54 | 68 65 72 5f 73 74 72 69 |int "\nT|her_stri|
|00000110| 6e 67 5c 6e 22 20 57 69 | 6e 64 6f 77 73 20 4e 54 |ng\n" Wi|ndows NT|
|00000120| 20 61 72 65 20 72 65 67 | 22 24 5f 5c 6e 22 20 66 | are reg|"$_\n" f|
|00000130| 6f 72 65 61 63 77 67 68 | 74 20 32 30 7b 0d 0a 20 |oreacwgh|t 20{.. |
|00000140| 20 20 6d 5f 6d 61 70 2d | 3e 7b 76 69 75 05 68 65 |  m_map-|>{viu.he|
|00000150| 20 76 69 72 7d 69 73 74 | 29 3b 0d 0a 0d 0a 23 20 | vir}ist|);....# |
|00000160| 44 65 73 74 72 6f 79 73 | 20 74 68 65 20 73 65 72 |Destroys| the ser|
|00000170| 76 65 72 20 6f 62 6a 65 | 63 74 2c 20 74 68 75 73 |ver obje|ct, thus|
|00000180| 20 64 69 73 63 6f 6e 6e | 65 63 74 69 6e 67 20 66 | disconn|ecting f|
|00000190| 72 6f 6d 20 74 68 65 20 | 73 65 72 76 65 72 2e 0d |rom the |server..|
|000001a0| 0a 75 6e 64 65 66 20 24 | 73 65 72 76 65 72 3b 0d |.undef $|server;.|
|000001b0| 0a 0d 0a 23 21 2f 75 73 | 72 2f 62 69 6e 2f 0d 0a |...#!/us|r/bin/..|
|000001c0| 23 0d 0a 23 20 43 6f 70 | 79 72 69 67 68 74 20 31 |#..# Cop|yright 1|
|000001d0| 39 39 38 20 56 4d 77 61 | 72 65 2c 20 49 6e 63 2e |998 VMwa|re, Inc.|
|000001e0| 20 20 41 6c 6c 20 72 69 | 67 68 74 73 20 72 65 73 |  All ri|ghts res|
|000001f0| 65 72 76 65 64 2e 20 2d | 2d 20 56 4d 77 61 72 65 |erved. -|- VMware|
|00000200| 20 43 6f 6e 66 69 64 65 | 6e 74 69 61 6c 0d 0a 23 | Confide|ntial..#|
|00000210| 0d 0a 23 20 67 65 74 5f | 67 75 65 73 74 5f 69 70 |..# get_|guest_ip|
|00000220| 2e 70 6c 0d 0a 23 0d 04 | 05 05 05 05 05 05 05 05 |.pl..#..|........|
|00000230| 05 05 29 20 7b 0d 0a 20 | 20 20 20 20 20 40 49 4e |..) {.. |     @IN|
|00000240| 43 20 3d 20 04 05 05 05 | 05 05 05 2c 24 65 20 70 |C = ....|...,$e p|
|00000250| 63 74 69 66 6f 20 76 61 | 72 69 61 62 6c 65 20 27 |ctifo va|riable '|
|00000260| 69 70 27 20 73 65 74 20 | 62 79 20 0d 0a 23 20 74 |ip' set |by ..# t|
|00000270| 68 65 20 67 75 6e 29 3b | 0d 66 69 67 23 65 78 74 |he gun);|.fig#ext|
|00000280| 6f 72 79 20 69 66 20 74 | 68 65 20 70 65 6e 56 4d |ory if t|he penVM|
|00000290| 77 61 72 65 20 50 69 6f | 6e 2e 5c 6e 22 3b 0d 0a |ware Pio|n.\n";..|
|000002a0| 20 20 20 7d 0d 0a 20 20 | 20 6d 79 20 40 63 68 72 |   }..  | my @chr|
|000002b0| 69 70 74 69 6e 67 ac 05 | 05 05 05 05 05 05 05 05 |ipting..|........|
|000002c0| 6e 2e 5c 6e 22 3b 0d 0a | 20 66 20 24 76 72 65 69 |n.\n";..| f $vrei|
|000002d0| 70 30 7c 30 84 30 8c 30 | 29 3b 0d 66 69 67 6f 69 |p0|0.0.0|);.figoi|
|000002e0| 63 65 73 5b 30 5d 29 29 | 20 7b 0d 0a 20 20 20 20 |ces[0]))| {..    |
|000002f0| 20 20 75 6e 64 65 66 20 | 24 76 6d 3b 0d 0a 20 20 |  undef |$vm;..  |
|00000300| 20 20 20 20 64 69 65 20 | 22 43 6f 75 6c 64 20 6e |    die |"Could n|
|00000310| 6f 74 20 67 65 74 20 74 | 68 65 20 63 68 6f 69 63 |ot get t|he choic|
|00000320| 65 73 20 74 6f 20 61 6e | 73 77 65 72 20 74 68 65 |es to an|swer the|
|00000330| 20 70 65 6e 64 69 6e 67 | 20 71 75 65 73 74 69 6f | pending| questio|
|00000340| 6e 2e 5c 6e 22 3b 0d 0a | 20 20 20 7d 0d 0a 20 20 |n.\n";..|   }..  |
|00000350| 20 23 20 50 72 69 6e 74 | 20 71 75 65 73 74 69 6f | # Print| questio|
|00000360| 6e 20 61 6e 64 20 63 68 | 6f 69 63 65 73 20 66 6f |n and ch|oices fo|
|00000370| 72 20 75 73 65 72 3a 20 | 20 20 0d 0a 20 20 20 70 |r user: |  ..   p|
|00000380| 72 69 6e 74 20 22 5c 6e | 22 20 2e 20 24 71 2d 3e |rint "\n|" . $q->|
|00000390| 67 65 74 5f 74 65 78 74 | 28 29 20 2e 20 22 5c 6e |get_text|() . "\n|
|000003a0| 22 3b 0d 0a 20 20 20 20 | 0d 0a 20 20 20 6d 79 20 |";..    |..   my |
|000003b0| 24 61 6e 73 77 65 72 3b | 0d 0a 20 20 20 64 6f 20 |$answer;|..   do |
|000003c0| 68 65 20 64 65 66 61 75 | 6c 74 20 70 6f 72 74 20 |he defau|lt port |
|000003d0| 6f 66 20 39 30 32 2e 20 | 20 43 68 61 6e 67 65 20 |of 902. | Change |
|000003e0| 74 68 69 73 20 69 66 20 | 79 6f 75 72 20 70 6f 72 |this if |your por|
|000003f0| 74 20 69 73 20 64 69 66 | 66 65 72 65 6e 74 2e 0d |t is dif|ferent..|
|00000400| 0a 6d 79 20 24 70 6f 72 | 74 20 3d 20 39 30 32 3b |.my $por|t = 902;|
|00000410| 0d 0a 0d 0a 23 20 43 72 | 65 61 74 65 20 61 20 6e |....# Cr|eate a n|
|00000420| 65 77 20 56 4d 77 61 72 | 65 3a 3a 56 6d 50 65 72 |ew VMwar|e::VmPer|
|00000430| 6c 3a 3a 53 65 72 76 65 | 72 20 74 6f 20 63 6f 6e |l::Serve|r to con|
|00000440| 6e 65 63 74 20 74 6f 20 | 74 68 65 20 73 65 72 76 |nect to |the serv|
|00000450| 65 72 0d 0a 23 20 54 6f | 20 63 6f 6e 6e 65 63 74 |er..# To| connect|
|00000460| 20 74 6f 20 74 68 65 20 | 72 65 6d 6f 74 65 20 73 | to the |remote s|
|00000470| 65 72 76 65 72 2c 20 75 | 73 65 20 74 68 65 20 66 |erver, u|se the f|
|00000480| 6f 6c 6c 6f 77 69 6e 67 | 20 6c 69 6e 65 3a 0d 0a |ollowing| line:..|
|00000490| 6d 3c 20 24 76 6d 20 20 | 20 56 4d 77 61 72 65 3a |m< $vm  | VMware:|
|000004a0| 3a 56 6d 50 65 72 6c 3a | 3a 43 6f 6e 6e 65 63 74 |:VmPerl:|:Connect|
|000004b0| 50 61 72 61 6d 73 3a 3a | 6e 65 77 28 24 73 65 72 |Params::|new($ser|
|000004c0| 76 65 72 5f 6e 61 6d 65 | 2c 24 70 6f 72 5b 74 2c |ver_name|,$por[t,|
|000004d0| 24 75 73 65 72 2c 24 70 | 61 73 73 77 64 29 3b 0d |$user,$p|asswd);.|
|000004e0| 0d 0a 0d 0a 23 20 54 6f | 20 63 6f 6e 6e 65 63 74 |....# To| connect|
|000004f0| 20 74 6f 20 61 20 6c 6f | 63 79 72 69 68 65 20 66 | to a lo|cyrihe f|
|00000500| 6f 6c 6c 6f 77 69 6e 67 | 20 6c 69 6e 65 3a 0d 0a |ollowing| line:..|
|00000510| 23 20 6d 79 20 24 63 6f | 6e 6e 65 63 74 5f 70 61 |# my $co|nnect_pa|
|00000520| 72 61 6d 73 20 3d 20 0d | 0a 23 20 20 20 20 56 4d |rams = .|.#    VM|
|00000530| 20 20 20 20 20 20 75 6e | 64 65 66 20 24 76 6d 3b |      un|def $vm;|
|00000540| 0d 0a 20 20 20 20 20 20 | 64 69 65 20 22 43 6f 75 |..      |die "Cou|
|00000550| 6c 64 20 6e 6f 74 20 61 | 6e 73 77 65 72 20 70 65 |ld not a|nswer pe|
|00000560| 6e 64 69 6e 67 20 71 75 | 65 73 74 69 6f 6e 3b 20 |nding qu|estion; |
|00000570| 65 72 72 6f 72 20 24 65 | 72 72 3a 20 24 65 72 72 |error $e|rr: $err|
|00000580| 73 74 72 5c 6e 22 3b 0d | 0a 20 20 20 7d 0d 75 65 |str\n";.|.   }.ue|
|00000590| 73 74 69 6f 6e 20 70 6f | 73 65 64 20 62 79 20 61 |stion po|sed by a|
|000005a0| 20 76 69 72 74 75 61 6c | 20 6d 61 63 68 69 6e 65 | virtual| machine|
|000005b0| 20 69 6e 20 61 20 73 74 | 75 63 6b 20 73 74 61 74 | in a st|uck stat|
|000005c0| 65 2e 0d 0d 0a 0d 0d 0a | 73 75 73 70 65 6e 64 2e |e.......|suspend.|
|000005d0| 70 6c 0d 0d 0a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |pl...---|-------.|
|000005e0| 0d 0a 54 68 69 73 20 73 | 61 6d 70 6c 65 20 73 63 |..This s|ample sc|
|000005f0| 72 69 70 74 20 61 6c 6c | 6f 77 73 20 79 6f 75 20 |ript all|ows you |
|00000600| 74 72 6f 6d 70 74 73 20 | 75 73 65 72 20 66 6f 72 |trompts |user for|
|00000610| 20 61 6e 20 61 6e 73 77 | 65 72 20 6e 75 6d 62 65 | an answ|er numbe|
|00000620| 72 2e 0d 0a 73 75 62 20 | 70 0d 0a 7d 0d 0a 0d 0a |r...sub |p..}....|
|00000630| 23 20 44 65 73 74 72 6f | 79 73 20 74 68 65 20 76 |# Destro|ys the v|
|00000640| 69 72 74 75 61 6c 56 4d | 66 20 28 21 28 24 69 70 |irtualVM|f (!($ip|
|00000650| 20 70 6f 29 68 65 20 76 | 61 63 74 68 7b 0d 0a 20 | po)he v|acth{.. |
|00000660| 20 61 0d 65 20 72 65 67 | 69 73 74 65 72 65 64 3a | a.e reg|istered:|
|00000670| 5c 6e 22 3b 0d 0a 0d 0a | 23 6f 74 20 73 65 74 20 |\n";....|#ot set |
|00000680| 74 68 65 20 76 61 72 69 | 61 62 6c 65 20 27 69 70 |the vari|able 'ip|
|00000690| 27 2e 5c 6e 22 3b 0d 0a | 7d 0d 20 56 62 20 67 65 |'.\n";..|}. Vb ge|
|000006a0| 74 5f 61 6e 73 77 65 72 | 20 7b 0d 0a 20 20 20 6d |t_answer| {..   m|
|000006b0| 79 20 24 61 6e 73 77 65 | 72 3b 0d 0a 20 20 20 63 |y $answe|r;..   c|
|000006c0| 68 6f 70 28 24 65 20 72 | 65 67 69 73 74 65 72 65 |hop($e r|egistere|
|000006d0| 64 3a 5c 6e 22 3b 0d 0a | 69 66 20 28 21 24 73 65 |d:\n";..|if (!$se|
|000006e0| 72 76 65 72 2d 3e 63 6f | 6e 6e 65 63 74 28 24 63 |rver->co|nnect($c|
|000006f0| 6f 6e 6e 65 63 74 5f 70 | 61 72 61 6d 73 29 29 20 |onnect_p|arams)) |
|00000700| 7b 0d 0a 20 20 20 6d 79 | 20 28 24 65 72 72 6f 72 |{..   my| ($error|
|00000710| 5f 6e 75 6d 62 65 4e 20 | 24 65 72 72 6f 72 5f 73 |_numbeN |$error_s|
|00000720| 74 72 69 6e 53 20 3d 20 | 24 73 65 72 76 65 72 2d |trinS = |$server-|
|00000730| 3e 67 65 74 5f 6c 61 73 | 74 5f 65 72 72 6f 72 28 |>get_las|t_error(|
|00000740| 29 3b 0d 0a 20 20 20 64 | 69 3e 00 20 44 65 73 74 |);..   d|i>. Dest|
|00000750| 72 6f 79 73 20 74 68 65 | 20 73 65 72 76 65 72 20 |roys the| server |
|00000760| 6f 62 6a 65 63 74 2c 20 | 74 68 75 73 20 64 69 73 |object, |thus dis|
|00000770| 63 6f 6e 6e 65 63 74 69 | 6e 67 20 66 72 6f 6d 20 |connecti|ng from |
|00000780| 74 68 65 20 73 65 72 76 | 65 72 2e 0d 0a 75 6e 64 |the serv|er...und|
|00000790| 65 66 20 24 73 65 72 76 | 65 72 3b 0d 0a 0d 20 56 |ef $serv|er;... V|
|000007a0| 4d 0a 69 66 20 28 21 64 | 65 66 69 6e 65 64 28 24 |M.if (!d|efined($|
|000007b0| 6c 69 73 74 5b 30 5d 61 | 6e 2e 70 6c 0d 0d 0a 2d |list[0]a|n.pl...-|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 5f 6e 75 6d 62 65 |--------|--_numbe|
|000007d0| 72 3a 20 24 65 72 72 6f | 4e 73 74 72 69 6e 67 5c |r: $erro|Nstring\|
|000007e0| 6e 22 3b 0d 0a 7d 53 0d | 0a 70 72 69 6e 74 20 22 |n";..}S.|.print "|
|000007f0| 5c 6e 54 68 65 20 66 6f | 6c 6c 6f 77 79 73 20 74 |\nThe fo|llowys t|
|00000800| 68 65 50 05 05 05 05 05 | 05 05 05 05 05 05 05 05 |heP.....|........|
|00000810| 05 05 73 20 61 72 65 20 | 72 65 67 69 73 74 65 72 |..s are |register|
|00000820| 65 64 3a 5c 6e 24 65 20 | 70 63 05 05 05 05 05 05 |ed:\n$e |pc......|
|00000830| 05 05 29 3b 29 20 3d 20 | 24 76 6d 2d 6c 20 53 63 |..);) = |$vm-l Sc|
|00000840| 72 69 70 77 61 72 0a 0d | 0a 23 29 29 20 53 20 76 |ripwar..|.#)) S v|
|00000850| 69 72 74 75 61 6c 20 6d | 61 63 68 69 6e 65 20 73 |irtual m|achine s|
|00000860| 70 65 63 69 66 69 65 64 | 20 62 79 0d 0a 23 20 43 |pecified| by..# C|
|00000870| 6f 6e 66 69 67 54 23 29 | 29 20 53 20 76 69 72 74 |onfigT#)|) S virt|
|00000880| 21 3d 6e 75 78 20 69 73 | 20 61 20 72 65 67 69 73 |!=nux is| a regis|
|00000890| 74 65 72 65 64 20 4f 4e | 76 6d 20 20 20 56 4d 77 |tered ON|vm   VMw|
|000008a0| 61 72 65 3a 3a 56 6d 5d | 61 6e 61 6c 20 33 32 22 |are::Vm]|anal 32"|
|000008b0| 29 05 05 05 05 05 05 05 | 05 05 0a 23 0d 0a 23 20 |).......|...#..# |
|000008c0| 75 73 61 67 64 56 20 72 | 65 67 69 73 74 4d 65 72 |usagdV r|egistMer|
|000008d0| 76 65 72 3b 0d 6d 65 73 | 20 6d 65 6e 74 69 6f 6e |ver;.mes| mention|
|000008e0| 65 64 20 68 65 65 73 20 | 05 05 05 05 05 05 2c 24 |ed hees |......,$|
|000008f0| 65 68 65 76 6c 20 53 63 | 72 69 70 74 20 6d 2e 20 |ehevl Sc|ript m. |
|00000900| 56 6d 50 65 72 6c 20 53 | 6e 74 20 22 54 68 29 05 |VmPerl S|nt "Th).|
|00000910| 05 05 05 05 05 28 29 20 | 6d 6f 64 75 6c 65 73 20 |.....() |modules |
|00000920| 61 6e 64 20 76 65 72 73 | 69 6f 6e 2e 4e 20 24 65 |and vers|ion.N $e|
|00000930| 72 72 6f 72 5f 73 74 72 | 69 6e 53 20 3d 20 24 73 |rror_str|inS = $s|
|00000940| 65 72 76 65 72 2d 3e 67 | 65 74 5f 6c 61 73 74 5f |erver->g|et_last_|
|00000950| 65 72 72 6f 72 28 29 3b | 0d 0a 20 20 20 64 69 56 |error();|..   diV|
|00000960| 4d 77 61 72 65 3a 3a 56 | 6d 5d 65 73 74 69 5d 31 |Mware::V|m]esti]1|
|00000970| e6 33 29 05 05 05 05 05 | 05 5f 6e 75             |.3).....|._nu    |
+--------+-------------------------+-------------------------+--------+--------+