mnshome.info
marzenia się spełniają



  Изврат для BGinfo с помощью VBS-скрипта
09.01.2013 19:40

vbs2perl.vbs:

DIM STDOUT
'STDOUT = ExecCommand("perl -MCTK -e " & chr(34) & "print CTK->VERSION" & chr(34))
STDOUT = ExecCommand("perl c:\vbs2perl.pl")
'WScript.Echo("Data: " & vbCrLf & vbCrLf & STDOUT)
Echo STDOUT

FUNCTION ExecCommand(CMDSTR)
  DIM WSH, Str
  SET WSH = CreateObject("WScript.Shell")
  SET WshExec = WSH.Exec(CMDSTR)
  SET OutStream = WshExec.StdOut
  Str = ""
  WHILE NOT OutStream.AtEndOfStream
    Str = Str & Trim(OutStream.ReadLine()) & vbCrLf
  WEND
  ExecCommand = Str
END FUNCTION

vbs2perl.pl:

#!/usr/bin/perl -w
use CTK;
print CTK->VERSION;

bginfo:

ToolName: BGInfo
Boot Time: <Boot Time>
CPU: <CPU>
Default Gateway: <Default Gateway>
DNS Server: <DNS Server>
Free Space: <Free Space>
Host Name: <Host Name>
IP Address: <IP Address>
Subnet Mask: <Subnet Mask>
Logon Domain: <Logon Domain>
Logon Server: <Logon Server>
MAC Address: <MAC Address>
Machine Domain: <Machine Domain>
Memory: <Memory>
Network Card: <Network Card>
Network Speed: <Network Speed>
Network Type: <Network Type>
Snapshot Time: <Snapshot Time>
User Name: <User Name>
Volumes: <Volumes>
Path: <Path>
CTK: <vbs2perl>

 

THUD XYZZY PLUGH FRED WALDO GARPLY
GRAULT CORGE QUUZ QUX BAZ BAR FOO

День памяти перевода часов на летнее время

0
0
0
days
:
0
0
hrs
:
0
0
min
:
0
0
sec

поиск по дате...
поиск по содержимому...
GGCzat 1.00
Tagi
Artefakty
06.05.2016 10:42:36
Создать RESTfull обработчик как модуль
24.06.2017 17:34:47
MNSHOME: Переходить на Centos!
19.08.2015 11:35:42
Переезд разработчиков на тестовый MySQL сервере
28.12.2015 10:44:39
MDScore: Marionette.js
02.06.2015 13:52:56
С Даши за ECB/VTB24
30.10.2017 10:40:53
Создать функционал 2 в 1: mod_perl библиотеку для получения отчета по бэкапам за последние сутки
29.11.2017 10:38:08
Создать простые функции криптования AES256+Blowfish+base64
01.12.2017 10:37:43
SubProject: static-site
Thu, 28 Feb 2019 10:44:39 +0400

Linki zewnętrzne

#OPERA
Czytam
GRY
MnshomeInfo
Monitoring
Photo
Przyjaciele
Serwisy
fla-master

IP

Valid XHTML 1.0 Transitional

Valid CSS!


Copyright © 1998-2017 Serż Minus. All rights reserved


do góry