VBS-Script

[HardDiskKiller]

hi,
ich habe in meinem Ordner WinNT/system32 ein VBS-Script liegen (letztes Änderungsdatum von 12.1999 ... da hatte ich Win2000 noch gar nicht) ... das einzige auf meiner ganzen Platte. Löschen kann man das auch nicht, da die Datei angeblich gerade benutzt würde.
Sowohl Norton als auch AntiVir sagen, dass die Datei keinen Virus enthält, ABER: liegt dieses eine Script tatsächlich nomalerweise an diesem Ort??

HDK

[Elminster]

Öffne doch mal mit Notepad und poste den Inhalt hier (am besten vorher den Button "PHP" benutzen )

[HardDiskKiller]

OK!
Sieht aus wie ein Script für Drucker, aber das muss ja nix heißen!
Zudem: Ich wollte ja nur sicher gehen, dass.....

HDK


----------------------------------------------------------------------
' 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 = "Syntax: [cscript] pubprn.vbs Server ""LDAP://OU=..,DC=..."""
L_PubprnUsage2_text = " Server ist ein Windows-Servername (z. B.: Server) oder ein UNC-Druckername (\\Server\Drucker)."
L_PubprnUsage3_text = " ""LDAP://CN=...,DC=..."" ist der Verzeichnisserverpfad des Zielcontainers."
L_PubprnUsage4_text = ""
L_PubprnUsage5_text = "Beispiel 1: pubprn.vbs MeinServer ""LDAP://CN=MeinContainer,DC=MeineDomäne,DC=Firma,DC=Com"""
L_PubprnUsage6_text = "Beispiel 2: pubprn.vbs \\MeinServer\Drucker ""LDAP://CN=MeinContainer,DC=MeineDomäne,DC=Firma,DC=Com"""

L_GetObjectError1_text = "Fehler: Pfad "
L_GetObjectError2_text = " wurde nicht gefunden."
L_GetObjectError3_text = "Fehler: Kein Zugriff "

L_PublishError1_text = "Fehler: Fehlschlag beim Veröffentlichen von Druckern von "
L_PublishError2_text = " weil Windows 2000 oder höher ausgeführt wird."
L_PublishError3_text = "Fehlschlag beim Veröffentlichen des Druckers "
L_PublishError4_text = "Fehler: "
L_PublishSuccess1_text = "Veröffentlichter Drucker: "

'--- 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 sub

[Elminster]

Also ich würde behaupten, daß das tatsächlich ein Script ist um nen Drucker von einem nicht-Windows 2k Rechner im Active Directory zu veröffentlichen. Jedenfalls sieht das für meien ungeübten Augen nicht besonder "malicious" aus, aber ich bin wirklich ungeübt *HarveyAnDieFront"

[HardDiskKiller]

Hast du die Datei auch drauf??

[Akire]

Hi HardDiskKiller,

Also ..... ich bin für Dich auf die Suche gegangen und habe festgestellt, dass ich die gleiche Datei auch drauf habe und zwar auf meinem Desktop und beiden völllig davon unabhängigen Notebooks mit Windows XP Home.

Also ich denke, da brauchst Du Dir keine Gedanken zu machen, sie ist auch allen drei Rechnern vertreten !



Akire

[HardDiskKiller]

Glück gehabt!

Thanx!!