FreemanRU
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Пример скрипта
UsersInfo.wsf
Код:
<job id="UsersInfo">
<script language="JScript">
function GetCDKey()
{
var WshShell = WScript.CreateObject("WScript.Shell");
var bTempKey = VBArray(WshShell.RegRead("HKLM\\SOFTWARE\\MICROSOFT\\Windows NT\\CurrentVersion\\DigitalProductId"));
var bKey = new Array
bKey = bTempKey.toArray();
var KeyBase = new Array('B', 'C', 'D', 'F', 'G', 'H', 'J','K', 'M', 'P', 'Q', 'R', 'T', 'V', 'W', 'X', 'Y', '2', '3', '4', '6', '7', '8', '9');
var dLen = 29;
var sLen = 15;
var Dst = new Array(dLen);
var StartOffset = 0x34;
var EndOffset = 0x34 + 15
var Src = new Array(15);
for (var i = StartOffset; i<=EndOffset; i++)
{
Src[i-StartOffset] = bKey[i]
}
for (var i = dLen - 1; i>=0; i--)
{
if (((i + 1) % 6) == 0)
{
Dst[i] = '-';
}
else
{
var HN = 0;
for (var n = sLen - 1; n>=0; n--)
{
var Value = (HN << 8) | Src[n];
Src[n] = Value / 24;
HN = Value % 24;
}
Dst[i] = KeyBase[HN];
}
}
var str = "";
for (i = 0; i<=dLen-1; i++)
{
str += Dst[i];
}
return str;
}
</script>
<script language="VBScript">
on error resume Next
Set WshShell = Wscript.CreateObject("Wscript.Shell")
strIp=""
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter in colAdapters
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
strIp = strIp & " " & objAdapter.IPAddress(i)
Next
End If
Next
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Set Connect = WScript.CreateObject("ADODB.Connection")
strConnect = "Provider='sqloledb';Data Source=""servername"";Integrated Security='SSPI';Initial Catalog='basename';"
Connect.Open strConnect
Set rsCustomers = WScript.CreateObject("ADODB.Recordset")
strSQLCustomers = "Tablename"
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adUseClient = 3
rsCustomers.ActiveConnection = Connect
rsCustomers.CursorLocation = adUseClient
rsCustomers.CursorType = adOpenKeyset
rsCustomers.LockType = adLockOptimistic
rsCustomers.Source = strSQLCustomers
rsCustomers.Open
rsCustomers.AddNew
rsCustomers("UserName") = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%") & "\" & WshShell.ExpandEnvironmentStrings("%username%")
For Each objOperatingSystem in colOperatingSystems
rsCustomers("OSType") = objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next
rsCustomers("Comp") = WshShell.ExpandEnvironmentStrings("%computername%")
rsCustomers("Profile") = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
rsCustomers("IP") = strIp
rsCustomers("logtime") = Now()
rsCustomers("OSKey") = GetCDKey()
rsCustomers.Update
rsCustomers.Close
Connect.Close
</script>
</job>
|
|
Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 13:59 23-08-2005 | Исправлено: FreemanRU, 14:02 23-08-2005 |
|
