Ой, что-то не подумал что в теме уже куча скриптов.
Под "первым" я имел ввиду вот этот:
Код:
' Получение IP-адреса компьютера
Dim objWMIService, IPConfigSet, strComputer, ip
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
ip = IPConfig.IPAddress(0)
End If
Next
' Получение залогиненого имени пользователя в формате: Фамилия Имя
Dim objADSystemInfo, objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
strUserName = objUser.sn + " " + objUser.GivenName
' Создание файла с IP-адресом в имени и именем пользователя в теле файла.
Dim objFSO, file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set file = objFSO.CreateTextFile("\\server\vbs\" & ip & "", True)
file.Write strUserName
'WScript.Echo "Script complite"
Строка 32:
Код:
file.Write strUserName
В общем проблема была решена следующим образом:
В Control Panel -> All Control Panel -> Region and Language.
Вкладка Formats, поле Format указал Russia
Вкладка Location, поле Current location указал Russia
Вкладка Administrative -> Change system locale... указал Russian (Russia) (После изменения этого поля система попросит перезагрузиться)
Ребутнулся и вроде ошибка пропала.
