Option Explicit
On Error Resume Next
Dim WSHShell, PsArgs, PsWMI, PsDrv, PsWait
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set PsArgs = WScript.Arguments
Set PsWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
PsDrv = UCase(Trim(PsArgs(0)))
If Len(PsDrv) > 0 Then PsDrv = Trim(Left(PsDrv,1))

If Len(PsDrv) = 1 Then
If Asc(PsDrv) > 64 And Asc(PsDrv) < 91 Then
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFSpy\FDFSpy.exe " & """" & PsDrv

Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'fdfspy.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
WSHShell.Run """" & "C:\Program Files\VRCP Soft\AutoKFD\AutoKFD.exe " & """" & PsDrv

End If
End If

Set PsArgs = Nothing
Set PsWMI = Nothing
Set WSHShell = Nothing
WScript.Quit 0

Option Explicit
On Error Resume Next
Dim WSHShell, PsArgs, PsWMI, PsDrv, PsWait
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set PsArgs = WScript.Arguments
Set PsWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
PsDrv = UCase(Trim(PsArgs(0)))
If Len(PsDrv) > 0 Then PsDrv = Trim(Left(PsDrv,1))

If Len(PsDrv) = 1 Then
If Asc(PsDrv) > 64 And Asc(PsDrv) < 91 Then
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFSpy\FDFSpy.exe " & """" & PsDrv

Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'fdfspy.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
WSHShell.Run """" & "C:\Program Files\VRCP Soft\AutoKFD\AutoKFD.exe " & """" & PsDrv

Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'autokfd.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFRun\rmdrv64.exe " & """" & PsDrv

WScript.Sleep 100
MsgBox "  Съёмный носитель информации <" & PsDrv & "> успешно обработан и извлечён!  "

End If
End If

Set PsArgs = Nothing
Set PsWMI = Nothing
Set WSHShell = Nothing
WScript.Quit 0

Option Explicit
On Error Resume Next
Dim WSHShell, PsArgs, PsWMI, PsDrv, PsWait
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set PsArgs = WScript.Arguments
Set PsWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
PsDrv = UCase(Trim(PsArgs(0)))
If Len(PsDrv) > 0 Then PsDrv = Trim(Left(PsDrv,1))

If Len(PsDrv) = 1 Then
If Asc(PsDrv) > 64 And Asc(PsDrv) < 91 Then
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFSpy\FDFSpy.exe " & """" & PsDrv

Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'fdfspy.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
WSHShell.Run """" & "C:\Program Files\VRCP Soft\AutoKFD\AutoKFD.exe " & """" & PsDrv

Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'autokfd.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFRun\rmdrv64.exe " & """" & PsDrv

WScript.Sleep 100
MsgBox "  Съёмный носитель информации <" & PsDrv & "> успешно обработан и извлечён!  "

End If
End If

Set PsArgs = Nothing
Set PsWMI = Nothing
Set WSHShell = Nothing
WScript.Quit 0

Option Explicit
On Error Resume Next
Dim WSHShell, objArgs, objWEB, objFile, txtFile
Dim isWD(8), isMY(13)
Dim iCnt, nCnt, nSec, nErr
Dim strIP, strTXT, strWait, strFile
Dim zRd, zRh, zRm, zRs
Dim sRd, sRh, sRm, sRs
iCnt = 0
nCnt = 0
nSec = 0
nErr = 0
zRd = 0
zRh = 0
zRm = 0
zRs = 0
sRd = "00000"
sRh = "00"
sRm = "00"
sRs = "00"
strIP = ""
strTXT = ""
strFile = ""
strWait = "00000-00:00:00"
isWD(0) = "Воскресенье"
isWD(1) = "Понедельник"
isWD(2) = "Вторник"
isWD(3) = "Среда"
isWD(4) = "Четверг"
isWD(5) = "Пятница"
isWD(6) = "Суббота"
isWD(7) = "Воскресенье"
isMY(0) = "Декабрь"
isMY(1) = "Январь"
isMY(2) = "Февраль"
isMY(3) = "Март"
isMY(4) = "Апрель"
isMY(5) = "Май"
isMY(6) = "Июнь"
isMY(7) = "Июль"
isMY(8) = "Август"
isMY(9) = "Сентябрь"
isMY(10) = "Октябрь"
isMY(11) = "Ноябрь"
isMY(12) = "Декабрь"
Set objFile = CreateObject("Scripting.FileSystemObject")
If objFile.FileExists("cfgs.res") Then
Set txtFile = objFile.OpenTextFile("cfgs.res", 1)
Do While txtFile.AtEndOfStream <> True
strFile = txtFile.ReadLine
If Len(Trim(CStr(strFile))) > 0 Then nCnt = nCnt + 1
If nCnt = 5 Then nSec = Abs(Int(Trim(CStr(strFile))))
If nCnt = 6 Then nErr = Abs(Int(Trim(CStr(strFile))))
Loop
txtFile.Close
Set txtFile = Nothing
End If
Set objFile = Nothing
If nErr < 2 Then nErr = 1
If nSec < 2 Then nSec = 1
If nErr > 86399 Then nErr = 86400
If nSec > 3599 Then nSec = 3600
nCnt = nSec * nErr
zRd = Abs(Int(nCnt / 86400))
zRh = Abs(Int((nCnt - zRd * 86400) / 3600))
zRm = Abs(Int((nCnt - zRd * 86400 - zRh * 3600) / 60))
zRs = Abs(Int((nCnt - zRd * 86400 - zRh * 3600 - zRm * 60)))
sRd = Trim(CStr(zRd))
sRh = Trim(CStr(zRh))
If Len(sRh) < 2 Then sRh = "0" + sRh
sRm = Trim(CStr(zRm))
If Len(sRm) < 2 Then sRm = "0" + sRm
sRs = Trim(CStr(zRs))
If Len(sRs) < 2 Then sRs = "0" + sRs
strWait = StrReverse(Left(StrReverse(sRd & "-" & sRh & ":" & sRm & ":" & sRs) + "00000", 14))
Err.Clear
Set objArgs = WScript.Arguments
If Err.Number = 0 Then
For iCnt = 0 to objArgs.Count - 1
If Len(Trim(objArgs(iCnt))) > 0 Then
strIP = Trim(objArgs(iCnt))
Exit For
End If
Next
strTXT = "[ " + Left(strIP + "               ", 15) + _
" ]  [ ОШИБКА ]  [ " + strWait + " ]  [ " + _
Trim(CStr(Date())) + " / " + Trim(CStr(Time())) + " / " + _
Trim(CStr(isWD(Weekday(Now, vbMonday))))+ " / " + _
Trim(CStr(isMY(Month(Now)))) + " ]"
Err.Clear
If Len(strIP) > 0 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
Set objWEB = CreateObject("MSXML2.XMLHTTP.3.0")
If Err.Number = 0 Then
Randomize()
objWEB.Open "GET", _
"https://server.xx/write.php?log=00000000&txt=" & _
strTXT & "&rnd=" & Rnd(), False
objWEB.Send
End If
Set objWEB = Nothing
End If
End If
Set WSHShell = Nothing
End If
Set objArgs = Nothing
Err.Clear
WScript.Quit 0

<?php
header('expires: Sat, 01 Jan 2000 00:00:00 GMT');
header('cache-control: no-cache, no-store, max-age=0, post-check=0, pre-check=0, must-revalidate', FALSE);
header('pragma: no-cache');
header("last-modified: ".gmdate("D, d M Y H:i:s ")."GMT");
?>
<?php
$log='';
$txt='';
if(isset($_GET['log']))
{
$log=$_GET['log'];
if($log=='00000000')
{
if(isset($_GET['txt']))
{
$txt=$_GET['txt'];
$txt=trim(strip_tags(trim($txt)));
if(strlen(strval($txt))>0)
{
if(file_exists("./".$log.".txt"))
{
$file=fopen("./".$log.".txt","a");
flock($file,2);
if($file)
{
fwrite($file," ".$txt." ".chr(13).chr(10));
}
}
}
flock($file,3);
fclose($file);
}
}
}
print(" ");
?>

<?php
header('expires: Sat, 01 Jan 2000 00:00:00 GMT');
header('cache-control: no-cache, no-store, max-age=0, post-check=0, pre-check=0, must-revalidate', FALSE);
header('pragma: no-cache');
header("last-modified: ".gmdate("D, d M Y H:i:s ")."GMT");
$rnd="0.".substr(strval(rand()).strval(rand())."0000000000000000", 0, 16);
?>
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' http://www.w3.org/TR/xhtml1/DTD/xhtml1- ... l.dtd&#39;>
<html xmlns='http://www.w3.org/1999/xhtml'>
<head>
<title>IPAMon</title>
<meta name='viewport' content='width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no' />
<meta name='language' content='russian, english' />
<meta http-equiv='content-language' content='ru-ru' />
<meta http-equiv='content-script-type' content='text/javascript' />
<meta http-equiv='content-style-type' content='text/css' />
<meta http-equiv='content-type' content='text/html; charset=windows-1251' />
<meta http-equiv='expires' content='Sat, 01 Jan 2000 00:00:00 GMT' />
<meta http-equiv='cache-control' content='no-cache, no-store, max-age=0, post-check=0, pre-check=0, must-revalidate' />
<meta http-equiv='pragma' content='no-cache' />
<meta http-equiv='imagetoolbar' content='no' />
<meta http-equiv='refresh' content='60' />
<meta http-equiv='window-target' content='_top' />
<meta http-equiv='X-UA-Compatible' content='IE=edge' />
<style type='text/css'>
<!--
* {
top: 0px;
left: 0px;
margin: 0px;
padding: 0px;
border: 0px solid #ffffff;
color: #000000;
visibility: visible;
direction: ltr;
font-family: monospace;
font-size: 12px;
font-style: normal;
font-weight: normal;
font-variant: normal;
text-decoration: none;
text-transform: none;
text-align: left;
line-height: 20px;
letter-spacing: normal;
word-spacing: normal;
white-space: normal;
text-indent: 0px;
text-decoration: none;
text-transform: none;
list-style: none;
outline: hidden;
outline-style: hidden;
outline-width: 0px;
table-layout: auto;
empty-cells: show;
caption-side: top;
float: none;
clear: none;
}
html {
width: 100%;
height: 101%;
overflow: auto;
overflow-x: hidden;
overflow-y: auto;
z-index: 0;
}
body {
overflow: hidden;
z-index: 1;
}
pre {
display: block;
white-space: pre;
z-index: 2;
}
-->
</style>
<script language='JavaScript' type='text/javascript'>
<!--
function isRedirect() {
<?php
print("top.location.href='https://server.xx/read.php?log=00000000&rnd=".$rnd."';\n");
?>
};
window.setInterval('isRedirect();', 60000);
//-->
</script>
</head>
<body>
<?php
$log='';
if(isset($_GET['log']))
{
$log=$_GET['log'];
if($log=='00000000')
{
if(file_exists("./".$log.".txt"))
{
print("<pre>\n");
include($log.".txt");
print("\n</pre>\n");
}
}
}
?>
</body>
</html>

Option Explicit
On Error Resume Next
Dim WSHShell, objArgs, iCnt, strIP
iCnt = 0
strIP = ""
Err.Clear
Set objArgs = WScript.Arguments 
If Err.Number = 0 Then
For iCnt = 0 to objArgs.Count - 1 
If Len(Trim(objArgs(iCnt))) > 0 Then
strIP = Trim(objArgs(iCnt))
Exit For
End If 
Next
Err.Clear
If Len(strIP) > 0 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then

' ПОЧТОВЫЙ СЕРВЕР (25 порт - SMTP):
WSHShell.Run "telnet.exe smtp.server.xx 25"

' ЗАДЕРЖКА ПОДКЛЮЧЕНИЯ к почтовому серверу (в миллисекундах):
WScript.Sleep 5000

If Err.Number = 0 Then
WSHShell.SendKeys "helo alarm" & chr(13)
WScript.Sleep 1000

WSHShell.SendKeys "auth login" & chr(13)
WScript.Sleep 1000

' ЛОГИН:
WSHShell.SendKeys Base64Encode("login") & chr(13)
WScript.Sleep 1000

' ПАРОЛЬ:
WSHShell.SendKeys Base64Encode("password") & chr(13)
WScript.Sleep 1000

' E-Mail ОТПРАВИТЕЛЯ
WSHShell.SendKeys "mail from:<agentsmith@server.xx>" & chr(13)
WScript.Sleep 1000

' E-Mail ПОЛУЧАТЕЛЯ:
WSHShell.SendKeys "rcpt to:<jonsmith@server.xx>" & chr(13)
WScript.Sleep 1000

WSHShell.SendKeys "data" & chr(13)
WScript.Sleep 1000

' ТЕМА СООБЩЕНИЯ:
WSHShell.SendKeys "subject:TOP SECRET" & chr(13)
WScript.Sleep 1000

' ИМЯ ОТПРАВИТЕЛЯ:
WSHShell.SendKeys "from:Agent Smith" & chr(13)
WScript.Sleep 1000

' ИМЯ ПОЛУЧАТЕЛЯ:
WSHShell.SendKeys "to:Jon Smith" & chr(13)
WScript.Sleep 1000

' ТЕКСТ СООБЩЕНИЯ:
WSHShell.SendKeys "Hello Jon!" & chr(13)
WSHShell.SendKeys "IP-address: " & strIP & " it isn't available!" & chr(13)
WScript.Sleep 1000

WSHShell.SendKeys "." & chr(13)
WScript.Sleep 1000
WSHShell.SendKeys "quit" & chr(13)
WScript.Sleep 1000
End If
End If
Set WSHShell = Nothing
End If
End If
Set objArgs = Nothing
Err.Clear
WScript.Quit 0

Function Base64Encode(inData)
On Error Resume Next
Base64Encode = ""
Const Base64 = _
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim cOut, sOut, nCnt
For nCnt = 1 To Len(inData) Step 3
Dim nGroup, pOut, sGroup
nGroup = _
&H10000 * Asc(Mid(inData, nCnt, 1)) + _
&H100 * MyASC(Mid(inData, nCnt + 1, 1)) + _
MyASC(Mid(inData, nCnt + 2, 1))
nGroup = Oct(nGroup)
nGroup = String(8 - Len(nGroup), "0") & nGroup
pOut = _
Mid(Base64, CLng("&o" & Mid(nGroup, 1, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 3, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 5, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 7, 2)) + 1, 1)
sOut = sOut + pOut
Next
Select Case Len(inData) Mod 3
Case 1:
sOut = Left(sOut, Len(sOut) - 2) + "=="
Case 2:
sOut = Left(sOut, Len(sOut) - 1) + "="
End Select
Base64Encode = sOut
End Function

Function MyASC(OneChar)
On Error Resume Next
MyASC = 0
If OneChar <> "" Then MyASC = Asc(OneChar)
End Function

Option Explicit
On Error Resume Next
Dim WSHShell, objArgs, iCnt, strIP
iCnt = 0
strIP = ""
Err.Clear
Set objArgs = WScript.Arguments 
If Err.Number = 0 Then
For iCnt = 0 to objArgs.Count - 1 
If Len(Trim(objArgs(iCnt))) > 0 Then
strIP = Trim(objArgs(iCnt))
Exit For
End If 
Next
Err.Clear
If Len(strIP) > 0 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then

' ПОЧТОВЫЙ СЕРВЕР (25 порт - SMTP):
WSHShell.Run "telnet.exe smtp.server.xx 25"

' ЗАДЕРЖКА ПОДКЛЮЧЕНИЯ к почтовому серверу (в миллисекундах):
WScript.Sleep 5000

If Err.Number = 0 Then
WSHShell.SendKeys "helo alarm" & chr(13)
WScript.Sleep 1000

' E-Mail ОТПРАВИТЕЛЯ
WSHShell.SendKeys "mail from:<agentsmith@server.xx>" & chr(13)
WScript.Sleep 1000

' E-Mail ПОЛУЧАТЕЛЯ:
WSHShell.SendKeys "rcpt to:<jonsmith@server.xx>" & chr(13)
WScript.Sleep 1000

WSHShell.SendKeys "data" & chr(13)
WScript.Sleep 1000

' ТЕМА СООБЩЕНИЯ:
WSHShell.SendKeys "subject:TOP SECRET" & chr(13)
WScript.Sleep 1000

' ИМЯ ОТПРАВИТЕЛЯ:
WSHShell.SendKeys "from:Agent Smith" & chr(13)
WScript.Sleep 1000

' ИМЯ ПОЛУЧАТЕЛЯ:
WSHShell.SendKeys "to:Jon Smith" & chr(13)
WScript.Sleep 1000

' ТЕКСТ СООБЩЕНИЯ:
WSHShell.SendKeys "Hello Jon!" & chr(13)
WSHShell.SendKeys "IP-address: " & strIP & " it isn't available!" & chr(13)
WScript.Sleep 1000

WSHShell.SendKeys "." & chr(13)
WScript.Sleep 1000
WSHShell.SendKeys "quit" & chr(13)
WScript.Sleep 1000
End If
End If
Set WSHShell = Nothing
End If
End If
Set objArgs = Nothing
Err.Clear
WScript.Quit 0

DROP TABLE IF EXISTS USERT;
DROP TABLE IF EXISTS CLIENTT;
CREATE TABLE USERT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_name TEXT NOT NULL,
  is_value TEXT NOT NULL
);
CREATE TABLE CLIENTT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_name TEXT NOT NULL,
  user_level INTEGER NOT NULL
);
DELETE FROM USERT;
DELETE FROM CLIENTT;
INSERT INTO SETTINGT VALUES (8, 'is_confirm', '0');

DROP TABLE IF EXISTS USERT;
DROP TABLE IF EXISTS CLIENTT;
CREATE TABLE USERT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_name TEXT NOT NULL,
  is_value TEXT NOT NULL
);
CREATE TABLE CLIENTT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_name TEXT NOT NULL,
  user_level INTEGER NOT NULL
);
DELETE FROM USERT;
DELETE FROM CLIENTT;
INSERT INTO SETTINGT VALUES (8, 'is_confirm', '0');

DROP TABLE IF EXISTS `USERT`;
DROP TABLE IF EXISTS `CLIENTT`;
CREATE TABLE IF NOT EXISTS `USERT` (
  `id` int(11) NOT NULL,
  `is_name` text NOT NULL,
  `is_value` text NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
CREATE TABLE IF NOT EXISTS `CLIENTT` (
  `id` int(11) NOT NULL,
  `is_name` text NOT NULL,
  `user_level` int(11) NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
INSERT INTO `SETTINGT` (`id`, `is_name`, `is_value`) VALUES
(8, 'is_confirm', '0');

@echo off
bcdedit.exe /set {current} pae ForceDisable

@echo off
bcdedit.exe /set {current} pae ForceEnable

DROP TABLE IF EXISTS VIPT;
CREATE TABLE VIPT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_text TEXT NOT NULL
);
DELETE FROM VIPT;

DROP TABLE IF EXISTS VIPT;
CREATE TABLE VIPT (
  id INTEGER NOT NULL PRIMARY KEY,
  is_text TEXT NOT NULL
);
DELETE FROM VIPT;

DROP TABLE IF EXISTS `VIPT`;
CREATE TABLE IF NOT EXISTS `VIPT` (
  `id` int(11) NOT NULL,
  `is_text` text NOT NULL,
PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;