[Iska]

pogo, какой из скриптов в этой теме вы именуете «первым», и какая строка в нём под номером 32?

[pogo]

Ой, что-то не подумал что в теме уже куча скриптов.
Под "первым" я имел ввиду вот этот:

Код:

' Получение 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) (После изменения этого поля система попросит перезагрузиться)
Ребутнулся и вроде ошибка пропала.

[Iska]

pogo, достаточно странно. В указанной строке вроде бы нет никаких зависимостей от региональных настроек.