С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
bd_13
114 / 95 / 43
Регистрация: 05.11.2015
Сообщений: 435
1

Перевести скрипт инвентаризации компьютеров из VBScript в VB.NET

10.05.2017, 17:46. Просмотров 239. Ответов 1
Метки нет (Все метки)

Есть скрипт инвентаризации компьютеров в сети:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
If WScript.Arguments.Count = 1 Then 
strComputer = WScript.Arguments.Item(0) 
Else 
strComputer = InputBox("Enter Computer Name") 
End If 
' 
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\CIMV2") 
 
'**********************Get Operating System *******************************************************************
 
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_OperatingSystem",,48) 
For Each objItem in colItems 
os = "-----------------------------------" & vbCrLf & "PrimaryOS: " & objItem.Caption & vbCrLf & "-----------------------------------" 
Next
 
'**********************Get Cpu Info*******************************************************************
 
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_Processor",,48) 
For Each objItem in colItems 
if instr(os,"2000") < 1 then cores = objitem.NumberOfCores 
cpu = "-----------------------------------" & vbCrLf & "CPU Name: " & objItem.Name & vbCrLf & "Cores = " & Cores & _ 
" Clock Speed = " & objitem.CurrentClockSpeed & vbCrLf & "-----------------------------------" 
Next
 
'**********************Get Number and size of memory chips *******************************************************************
 
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_PhysicalMemory",,48) 
For Each objItem in colItems 
dimmnum = dimmnum +1 
dimmsize= cdbl(objitem.capacity) 
 
if dimmsize > 1000000000 then 
mem= mem & "-----------------------------------" & vbCrLf & "Dimm"& dimmnum &" Size: " & int(dimmsize / 1000000000) & " GB" & vbCrLf & "-----------------------------------" 
Else 
mem= mem & "-----------------------------------" & vbCrLf & "Dimm"& dimmnum &" Size: " & int(dimmsize / 1000000) & " MB" & vbCrLf & "-----------------------------------" 
End if 
Next
 
'**********************Get Model, Hostname, Logged in User, Total Memory *******************************************************************
 
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_ComputerSystem",,48) 
For Each objItem in colItems 
model = "-----------------------------------" & vbCrLf & "Model: " & objItem.Model & vbCrLf & "-----------------------------------" 
name = "-----------------------------------" & vbCrLf & "Hostname: " & objItem.name & vbCrLf & "-----------------------------------" 
 
if ("-" & objitem.UserName & "-") = "--" then 
username=" Nobody" 
Else 
username = objitem.UserName 
end if 
user = "-----------------------------------" & vbCrLf & "Logged In user:" & UserName & ":" & vbCrLf & "-----------------------------------" 
 
dimmsize= cdbl(objitem.TotalPhysicalMemory) 
if dimmsize > 1000000000 then 
mem= mem & "-----------------------------------" & vbCrLf & "Total Memory: "& int(dimmsize / 1000000000) & " GB " & "(" & (dimmsize / 1000000000) & " GB)" & vbCrLf & "-----------------------------------" 
Else 
mem= mem & "-----------------------------------" & vbCrLf & "Total Memory:" & int(dimmsize / 1000000) & " MB " & "(" & (dimmsize / 1000000000) & " GB)" & vbCrLf & "-----------------------------------" 
End if 
 
Next
 
'**********************Get Hard Drive Information *******************************************************************
 
Set colDisks = objWMIService.ExecQuery _ 
("Select * from Win32_LogicalDisk Where MediaType = '12'") 
For Each objDisk in colDisks 
drivespace = drivespace & "-----------------------------------" & vbCrLf & objdisk.deviceid & " " & int(objdisk.size/ 1000000000) & " GB total " & _ 
int(objDisk.FreeSpace/ 1000000000) & " GB free" & vbCrLf & "-----------------------------------" 
Next
 
wscript.echo user & name & os & Model & totmem & mem & cpu & drivespace
Как его переделать под vb.net? и возможно ли такое вообще? заранее спасибо за помощь!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2017, 17:46
Ответы с готовыми решениями:

Запись звука в .NET - как перевести на vb.net c языка C++
Можно ли этот код: Запись звука в .NET перевести на vb.net ? Может кто-то уже переводил или писал...

Заплатку перевести в VB.NET
Добрый день! Столкнулся с багом Фреймворка 2.0 в SmtpClient: &quot;Недопустимый знак в заголовке...

Перевести код с C# в Vb.net
Еще раз всем привет. Роясь по интернету, наткнулся на такую вот программку. (которая скачивает...

Перевести программу с VB 6.0 на VB.net
Доброго время суток!!! Точнее у меня при переводе программы c VB.6 на VB.net, куча ошибок которые...

Перевести код с С# на VB.net
Народ всех С Новым Годом! и помогите перекодить с С# на VB.net сразу говару на...

1
ViterAlex
6838 / 3800 / 1553
Регистрация: 11.02.2013
Сообщений: 8,347
Завершенные тесты: 3
10.05.2017, 19:55 2
Конвертировать нельзя. Только переписать наново. Используя WMI Code Creator
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2017, 19:55

Перевести код с C# в Vb.net
Перевести код с c# в vb.net. пробовал пользоваться переводчиками кода в инете..не вышло ничего....

Перевести код с VB6 на VB .NET
Dim dig_cyr() Dim dig_cyr_4, dig_10 Private Sub Form_Load() ReDim dig_cyr(1 To 3, 0 To 9) ...

Перевести из VBA в что нибудь из .NET
Доброго дня! Первый пост на этом форуме:) Вообщем, написала макрос на VBA, который решает систему...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru