klen_Подключи Объект WSH Network.
Windows Script Host Model
wshcom.ocx
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Command1_Click()
Dim WS
Set WS = New WshNetwork
MsgBox "UserDomain" & Chr( 9 ) & "= " & WS.UserDomain & vbCrLf & _
"UserName" & Chr( 9 ) & "= " & WS.UserName & vbCrLf & _
"ComputerName" & Chr( 9 ) & "= " & WS.ComputerName, _
vbInformation + vbOKOnly, _
"Свойства WSHNetwork"
End Sub
На VB6 это выглядит так, а в 1С я точно не знаю, может быть так:
1.
Перем WS;
WS = СоздатьОбъект("WshNetwork");
а куда вставлять этот код?
