Diskuze: Neznámý program spouštěný při startu
Člen
rikenbekr:10.11.2016 15:39
Editováno 10.11.2016 15:42
Tak přece, nejspíš je to toto. Ve složkách SysWOW64 System32 a je to soubor pubprn.vbs.
'----------------------------------------------------------------------
' pubprn.vbs - publish printers from a non Windows 2000 server into Windows 2000 DS
'
'
' Arguments are:-
' server - format server
' DS container - format "LDAP:\\CN=...,DC=...."
'
'
' Copyright (c) Microsoft Corporation 1997
' All Rights Reserved
'----------------------------------------------------------------------
'--- Begin Error Strings ---
Dim L_PubprnUsage1_text
Dim L_PubprnUsage2_text
Dim L_PubprnUsage3_text
Dim L_PubprnUsage4_text
Dim L_PubprnUsage5_text
Dim L_PubprnUsage6_text
Dim L_GetObjectError1_text
Dim L_GetObjectError2_text
Dim L_PublishError1_text
Dim L_PublishError2_text
Dim L_PublishError3_text
Dim L_PublishSuccess1_text
L_PubprnUsage1_text = "Použití: [cscript] pubprn.vbs server ""LDAP://OU=..,DC=..."""
L_PubprnUsage2_text = " server je název serveru se systémem Windows (např.: Server) nebo název UNC tiskárny (\\Server\Tiskárna)"
L_PubprnUsage3_text = " ""LDAP://CN=...,DC=..."" je cesta DS cílového kontejneru"
L_PubprnUsage4_text = ""
L_PubprnUsage5_text = "Příklad 1: pubprn.vbs ServerA ""LDAP://CN=KontejnerA,DC=Domena,DC=Spolecnost,DC=CZ"""
L_PubprnUsage6_text = "Příklad 2: pubprn.vbs \\ServerA\Tiskárna ""LDAP://CN=KontejnerA,DC=Domena,DC=Spolecnost,DC=CZ"""
L_GetObjectError1_text = "Chyba: Cesta "
L_GetObjectError2_text = " nebyla nalezena."
L_GetObjectError3_text = "Chyba: Přístup se nezdařil."
L_PublishError1_text = "Chyba: Program Pubprn nemůže publikovat z počítače "
L_PublishError2_text = " protože v počítači je spuštěn systém Windows 2000 nebo vyšší."
L_PublishError3_text = "Publikace tiskárny se nezdařila "
L_PublishError4_text = "Chyba: "
L_PublishSuccess1_text = "Publikovaná tiskárna: "
'--- End Error Strings ---
set Args = Wscript.Arguments
if args.count < 2 then
wscript.echo L_PubprnUsage1_text
wscript.echo L_PubprnUsage2_text
wscript.echo L_PubprnUsage3_text
wscript.echo L_PubprnUsage4_text
wscript.echo L_PubprnUsage5_text
wscript.echo L_PubprnUsage6_text
wscript.quit(1)
end if
ServerName= args(0)
Container = args(1)
on error resume next
Set PQContainer = GetObject(Container)
if err then
wscript.echo L_GetObjectError1_text & Container & L_GetObjectError2_text
wscript.quit(1)
end if
on error goto 0
if left(ServerName,1) = "\" then
PublishPrinter ServerName, ServerName, Container
else
on error resume next
Set PrintServer = GetObject("WinNT://" & ServerName & ",computer")
if err then
wscript.echo L_GetObjectError3_text & ServerName & ": " & err.Description
wscript.quit(1)
end if
on error goto 0
For Each Printer In PrintServer
if Printer.class = "PrintQueue" then PublishPrinter Printer.PrinterPath, ServerName, Container
Next
end if
sub PublishPrinter(UNC, ServerName, Container)
Set PQ = WScript.CreateObject("OlePrn.DSPrintQueue.1")
PQ.UNCName = UNC
PQ.Container = Container
on error resume next
PQ.Publish(2)
if err then
if err.number = -2147024772 then
wscript.echo L_PublishError1_text & Chr(34) & ServerName & Chr(34) & L_PublishError2_text
wscript.quit(1)
else
wscript.echo L_PublishError3_text & Chr(34) & UNC & Chr(34) & "."
wscript.echo L_PublishError4_text & err.Description
end if
else
wscript.echo L_PublishSuccess1_text & PQ.Path
end if
Set PQ = nothing
end subJe tam asi 4x.
Kdybych sem měl dát seznam všech programů co mám v pc tak bych u toho
ztrávil tejden 
.
Za "Odpovědět" se omlouvám, ale nějakej pátek sem tu nebyl. 
Adam Ježek:12.11.2016 17:24
Asi to je jenom vytvořenej účet pro mining, kde nejde změnit heslo,
takhle blbej by snad nebyl
Zobrazeno 22 zpráv z 22.