Err.Number странный номер (Vbscript)

[abbot]

При обработке ошибки не происходит исполнение if .... then. Решил проверить почему. Msgbox дает err.number = -2147024843 хотя должен выдавать 80070035, потому что я точно знаю что комп выключен. Вот кусок кода:

Код: Выделить всё

For Each objItem In objOU
strComputer = objItem.CN

On Error Resume next

Set objUser = GetObject("WinNT://" & strComputer & "/" & UsrNm)
msgbox err.number 'именно здесь и выдает ошибку с минусом
If Err >0 Then
oTS.WriteLine Err.Number & ": " & Err.Description
oTS.WriteLine "Cannot process for " & strComputer & "! Please check state of computer."
Else
'objUser.setPassword (Psw)
'oTS.WriteLine "Password for " & strComputer & " is changed to " & Psw & " for user " &  UsrNm
'Set objUser2 = GetObject("WinNT://" & strComputer & "/" & UsrNm2)
'objUser2.accountdisabled = True
'objUser2.Setinfo
End if
on error goto 0
Next


Где загвоздка никак не пойму. Вроде все правильно.

[Sebas]

Гм, точно не помню, но из Err.number Нужно вычесть Err. толи ласт длл код, толи ещё чтото

[tyomitch]

2abbot:
oTS.WriteLine Hex(Err.Number)