Войти

Показать полную графическую версию : Нужен скрипт для определения имени пользователя


nasha
25-02-2020, 13:48
Друзья нужен скрипт vbs, чтобы она в txt определяла следующие характеристик пк:
Компьютер: полное имя:
операционную систему:
Тип системы:

megaloman
25-02-2020, 17:35
FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2:Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = ""

Set objNet = CreateObject("WScript.Network")
outtxt = "ComputerName" + vbTab + objNet.ComputerName + vbCrLf

For Each objOS In colWMI
txt = txt + "Caption" + vbTab + vbTab + objOS.Caption + vbCrLf
txt = txt + "Version" + vbTab + vbTab + objOS.Version + vbCrLf
txt = txt + "OSArchitecture" + vbTab + objOS.OSArchitecture + vbCrLf
outtxt = outtxt + txt
txt = txt + vbCrLf

txt = txt + "BootDevice" + vbTab + objOS.BootDevice + vbCrLf
txt = txt + "BuildNumber" + vbTab + objOS.BuildNumber + vbCrLf
txt = txt + "BuildType" + vbTab + vbTab + objOS.BuildType + vbCrLf
txt = txt + "CodeSet" + vbTab + vbTab + objOS.CodeSet + vbCrLf
txt = txt + "CountryCode" + vbTab + objOS.CountryCode + vbCrLf
txt = txt + "InstallDate" + vbTab + vbTab + Left(objOS.InstallDate, 8) + vbCrLf
txt = txt + "NumberOfLicensedUsers" + vbTab + CStr(objOS.NumberOfLicensedUsers) + vbCrLf
txt = txt + "Organization" + vbTab + objOS.Organization + vbCrLf
txt = txt + "OSLanguage" + vbTab + CStr(objOS.OSLanguage) + vbCrLf
txt = txt + "OSProductSuite" + vbTab + CStr(objOS.OSProductSuite) + vbCrLf
txt = txt + "OSType" + vbTab + vbTab + CStr(objOS.OSType) + vbCrLf
txt = txt + "Primary" + vbTab + vbTab + CStr(objOS.Primary) + vbCrLf
txt = txt + "RegisteredUser" + vbTab + objOS.RegisteredUser + vbCrLf
txt = txt + "SerialNumber" + vbTab + objOS.SerialNumber + vbCrLf
Next

MsgBox txt
MsgBox outtxt

With CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
.Write outtxt
.Close
End With

nasha
25-02-2020, 18:29
megaloman, попробовал, все работает единственное мне не нужно чтобы она в виде окошка открывалась, нужно только, чтобы в txt сохранялся, и желательно в красивом виде и на русском так:
Компьютер: Админ-Пк
Операционная система: Windows 7 Максимальная 6.91.
Тип системы: 65 bit разрядная

Как можно так сделать?!

nasha
25-02-2020, 19:05
megaloman , я так понимаю это невозможно сделать?!

megaloman
25-02-2020, 19:15
megaloman , я так понимаю это невозможно сделать?! »
FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2:Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").ComputerName + vbCrLf

For Each objOS In colWMI
txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next

' MsgBox txt

With CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
.Write txt
.Close
End With

nasha
25-02-2020, 19:19
megaloman , я так понимаю это невозможно сделать?!

megaloman , щас попробую и отпишусь

megaloman, все работает супер, но я столкнулся с одной проблемой, мне приходится отключать UAC, и только потом vbs работает.
Можно как-то иначе сделать, чтобы не пришлось мне отключать UAC?!! иначе он пишет доступ запрещен?!

nasha
25-02-2020, 19:35
Это думаю реально сложная задача и если ты сделаешь это то на весь форму буду кричать и комментировать что на сколько ты крутой программист!!!

Iska
25-02-2020, 20:12
«Мёд, да ещё и ложкой»™ ;).




© OSzone.net 2001-2012