' ----- ExeScript Options Begin -----
' ScriptType: console,silent,activescript,invoker
' DestDirectory: current
' Icon: default
' OutputFile: E:\1\name_user_in_description.exe
' ----- ExeScript Options End -----
'********************************************************************
'*
'* File:        comp_description.VBS
'* Created:     Ноябрь 2005
'* Version:     1.5
'*
'* Main Function: Пишет в комментарии компьютера (не контроллера домена)
'* в сетевом окружении имя залогинившегося пользователя (не админа) .
'*
'*
'********************************************************************

cert = "-----BEGIN CERTIFICATE-----MIIFvjCCA6agAwIBAgIQbCH2ZsCFHIBFJj+iQfLMeTANBgkqhkiG9w0BAQUFADBJMRUwEwYKCZImiZPyLGQBGRYFbG9jYWwxFzAVBgoJkiaJk/IsZAEZFgdremdyb3VwMRcwFQYDVQQDEw5LaXJvdnNreSBaYXZvZDAeFw0wODA1MDUwOTI3MjVaFw0yODA1MDUwOTM0NTdaMEkxFTATBgoJkiaJk/IsZAEZFgVsb2NhbDEXMBUGCgmSJomT8ixkARkWB2t6Z3JvdXAxFzAVBgNVBAMTDktpcm92c2t5IFphdm9kMIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAvoh7gXb/HM/YL+Pb2MEj7JW3moK5GeUa6ZNVqHYxbZJHiN4NgU4SwX+t8O2CpfTsph5XaI0U3mQxvaVmA25B51mk6Uhf0GRhjw3RR13iQtkjD1B7KNJx1W2U6CebgOxcqyzLHvKfFrThJ7NyajAQx9aEubVQkj7vcdSGR1/1gRU820RHrkMKdUSpsYhKiAJcp5pxlF0s2/YsjKglWZpDpIazPjDLGRRKDRYXmSUN0g4+98Jgtdbve6nCvWXulfCIi7C+HmYZqBpk8qI20W7jNwXOK3MkJ5BtbcLrB9IMZK6DRbiO/huUb1r9MVUeKxP3vdtVyWswd++OTwRoLS0WmCB+L+RSWm9QOJ1izG77Vf3eUaDw8FWkuMyo3eUXBmYpzjrmWGCiKM9z5c7oHMgD1uUr70Sbx7l6/ufMK5yRGRF0dpmvvf6T089+0Frjfob3QEn+a47uLyFfaUiD6tmj1HrKPupFrqvgMw4uklSwXgPrkBPaMuJ2FoFsaRHaNVhY/UZ6lMpNXJY1CeCbCbgdCm416NCrD3+sbiLXoj7KgucXZKNRoMJr+fidYD6eFCMiOkwTGj9EmmPfhrgJ7qCTVXHGv4sC2YINRJ6jOCRMlQJ9N2y0OBlXRTqzomGWr5DZ+4BqHwXP1r4vpyq7aemXUF0shodHx4jqrSmKQQlDSScCAwEAAaOBoTCBnjALBgNVHQ8EBAMCAYYwDwYDVR0TAQH/BAUwAwEB/zAdBgNVHQ4EFgQU+ca7f4dpiBq9A59y9XX/HUt7KTIwEAYJKwYBBAGCNxUBBAMCAQAwTQYDVR0gBEYwRDBCBgRVHSAAMDowOAYIKwYBBQUHAgEWLGh0dHA6Ly9jYS5remdyb3VwLnJ1L2xlZ2FsUG9saWN5L3Jvb3RjcHMuaHRtMA0GCSqGSIb3DQEBBQUAA4ICAQBXMzKt9pfm/znF16m7dZJS4J809a/w7BOcMq69IvOgH7bxjkH8gHd5ZHeAqX5L+/p9/K+Fy9aBlddJREpErkFG2x1ff2JSn3jjBYUTWmfNxPL7wZ+zFciSGAJROlsEW5qZT4ILEQGxfi9LLTyTd96tvt32/xMDCz9sPaIlK5aSA24uz9du7+8qKpQkYTClFvd97w9PCn2sjfSbuNSrA/3SZHiY06sg7PdinY+vhuffHZyB6GIVdvf3LoFs4KpjXCTXIR4oTgLO37+nqlzmqAFZB5SUsAbfMn2n4esfIFxwAS8o+1kqh+UiNNq+kpmeGu22HYQ3FUTLw0LOvQNBy69DUaRI6fOuMILM+XxETWW+i3leXQBMrUnHXjyPDdatONDGGiDP2yBcs/lGw2dfrLqoGP0c0ND6Xi+yot+BqOrkZPH8k3T8fJbRdTSyR2mUckwtIhE8iSumYzKnouK+krMwohRhD/v1dJAJpohk1N7Dsblz2dpwuq7ISRdoNSnfMSAs1PdZvA0Di5VKq/CEJzPvaoprRVWDkA7njlPIx1U1RfDq2zmAtiWjsWv17KciD/TuhxRtJBIXQpXFpiOSVz7i45ES7xaisUOSXdYEAWs5aCq/IrPnQkUvAB6QmuYvG+QP1+4c1U6Wg8q4bfRk8Rc2N9/KWGpoF9pFkuVtK102Iw==-----END CERTIFICATE-----"

cert1 = "-----BEGIN CERTIFICATE-----"+ Chr(13) + Chr(10) 
cert1 = cert1 + "MIIFvjCCA6agAwIBAgIQbCH2ZsCFHIBFJj+iQfLMeTANBgkqhkiG9w0BAQUFADBJ" + Chr(13) + Chr(10) 
cert1 = cert1 + "MRUwEwYKCZImiZPyLGQBGRYFbG9jYWwxFzAVBgoJkiaJk/IsZAEZFgdremdyb3Vw" + Chr(13) + Chr(10) 
cert1 = cert1 + "MRcwFQYDVQQDEw5LaXJvdnNreSBaYXZvZDAeFw0wODA1MDUwOTI3MjVaFw0yODA1" + Chr(13) + Chr(10) 
cert1 = cert1 + "MDUwOTM0NTdaMEkxFTATBgoJkiaJk/IsZAEZFgVsb2NhbDEXMBUGCgmSJomT8ixk" + Chr(13) + Chr(10) 
cert1 = cert1 + "ARkWB2t6Z3JvdXAxFzAVBgNVBAMTDktpcm92c2t5IFphdm9kMIICIjANBgkqhkiG" + Chr(13) + Chr(10) 
cert1 = cert1 + "9w0BAQEFAAOCAg8AMIICCgKCAgEAvoh7gXb/HM/YL+Pb2MEj7JW3moK5GeUa6ZNV" + Chr(13) + Chr(10) 
cert1 = cert1 + "qHYxbZJHiN4NgU4SwX+t8O2CpfTsph5XaI0U3mQxvaVmA25B51mk6Uhf0GRhjw3R" + Chr(13) + Chr(10) 
cert1 = cert1 + "R13iQtkjD1B7KNJx1W2U6CebgOxcqyzLHvKfFrThJ7NyajAQx9aEubVQkj7vcdSG" + Chr(13) + Chr(10) 
cert1 = cert1 + "R1/1gRU820RHrkMKdUSpsYhKiAJcp5pxlF0s2/YsjKglWZpDpIazPjDLGRRKDRYX" + Chr(13) + Chr(10) 
cert1 = cert1 + "mSUN0g4+98Jgtdbve6nCvWXulfCIi7C+HmYZqBpk8qI20W7jNwXOK3MkJ5BtbcLr" + Chr(13) + Chr(10) 
cert1 = cert1 + "B9IMZK6DRbiO/huUb1r9MVUeKxP3vdtVyWswd++OTwRoLS0WmCB+L+RSWm9QOJ1i" + Chr(13) + Chr(10) 
cert1 = cert1 + "zG77Vf3eUaDw8FWkuMyo3eUXBmYpzjrmWGCiKM9z5c7oHMgD1uUr70Sbx7l6/ufM" + Chr(13) + Chr(10) 
cert1 = cert1 + "K5yRGRF0dpmvvf6T089+0Frjfob3QEn+a47uLyFfaUiD6tmj1HrKPupFrqvgMw4u" + Chr(13) + Chr(10) 
cert1 = cert1 + "klSwXgPrkBPaMuJ2FoFsaRHaNVhY/UZ6lMpNXJY1CeCbCbgdCm416NCrD3+sbiLX" + Chr(13) + Chr(10) 
cert1 = cert1 + "oj7KgucXZKNRoMJr+fidYD6eFCMiOkwTGj9EmmPfhrgJ7qCTVXHGv4sC2YINRJ6j" + Chr(13) + Chr(10) 
cert1 = cert1 + "OCRMlQJ9N2y0OBlXRTqzomGWr5DZ+4BqHwXP1r4vpyq7aemXUF0shodHx4jqrSmK" + Chr(13) + Chr(10) 
cert1 = cert1 + "QQlDSScCAwEAAaOBoTCBnjALBgNVHQ8EBAMCAYYwDwYDVR0TAQH/BAUwAwEB/zAd" + Chr(13) + Chr(10) 
cert1 = cert1 + "BgNVHQ4EFgQU+ca7f4dpiBq9A59y9XX/HUt7KTIwEAYJKwYBBAGCNxUBBAMCAQAw" + Chr(13) + Chr(10) 
cert1 = cert1 + "TQYDVR0gBEYwRDBCBgRVHSAAMDowOAYIKwYBBQUHAgEWLGh0dHA6Ly9jYS5remdy" + Chr(13) + Chr(10) 
cert1 = cert1 + "b3VwLnJ1L2xlZ2FsUG9saWN5L3Jvb3RjcHMuaHRtMA0GCSqGSIb3DQEBBQUAA4IC" + Chr(13) + Chr(10) 
cert1 = cert1 + "AQBXMzKt9pfm/znF16m7dZJS4J809a/w7BOcMq69IvOgH7bxjkH8gHd5ZHeAqX5L" + Chr(13) + Chr(10) 
cert1 = cert1 + "+/p9/K+Fy9aBlddJREpErkFG2x1ff2JSn3jjBYUTWmfNxPL7wZ+zFciSGAJROlsE" + Chr(13) + Chr(10) 
cert1 = cert1 + "W5qZT4ILEQGxfi9LLTyTd96tvt32/xMDCz9sPaIlK5aSA24uz9du7+8qKpQkYTCl" + Chr(13) + Chr(10) 
cert1 = cert1 + "Fvd97w9PCn2sjfSbuNSrA/3SZHiY06sg7PdinY+vhuffHZyB6GIVdvf3LoFs4Kpj" + Chr(13) + Chr(10) 
cert1 = cert1 + "XCTXIR4oTgLO37+nqlzmqAFZB5SUsAbfMn2n4esfIFxwAS8o+1kqh+UiNNq+kpme" + Chr(13) + Chr(10) 
cert1 = cert1 + "Gu22HYQ3FUTLw0LOvQNBy69DUaRI6fOuMILM+XxETWW+i3leXQBMrUnHXjyPDdat" + Chr(13) + Chr(10) 
cert1 = cert1 + "ONDGGiDP2yBcs/lGw2dfrLqoGP0c0ND6Xi+yot+BqOrkZPH8k3T8fJbRdTSyR2mU" + Chr(13) + Chr(10) 
cert1 = cert1 + "ckwtIhE8iSumYzKnouK+krMwohRhD/v1dJAJpohk1N7Dsblz2dpwuq7ISRdoNSnf" + Chr(13) + Chr(10) 
cert1 = cert1 + "MSAs1PdZvA0Di5VKq/CEJzPvaoprRVWDkA7njlPIx1U1RfDq2zmAtiWjsWv17Kci" + Chr(13) + Chr(10) 
cert1 = cert1 + "D/TuhxRtJBIXQpXFpiOSVz7i45ES7xaisUOSXdYEAWs5aCq/IrPnQkUvAB6QmuYv" + Chr(13) + Chr(10) 
cert1 = cert1 + "G+QP1+4c1U6Wg8q4bfRk8Rc2N9/KWGpoF9pFkuVtK102Iw==" + Chr(13) + Chr(10) 
cert1 = cert1 + "-----END CERTIFICATE-----"

Const ForReading = 1

Dim objFSO
Dim objTS

Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("cer.cer", ForWriting, True)
ts.WriteLine(cert1)

Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("%COMSPEC% /K "+chr(34)+"certutil.exe -f -user -addstore Root cer.cer"+chr(34)+"&& exit || exit")
WshShell.Run("%COMSPEC% /K exit")