Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Per remote ein vbscript auf entferneten pc ausführen

Mitglied: koluschkiB

koluschkiB (Level 1) - Jetzt verbinden

16.04.2010, aktualisiert 18.10.2012, 13241 Aufrufe, 13 Kommentare

Mahlzeit Admin freunde,
häng mal wieder fest und komm nicht wirklich weiter

versuche per vbscript einen remote verbidnung zu einem pc herzustellen und eine *.exe auf ihm aus zu führen. zb calc.exe. hab zwar im netzt ein script gefunden, womit man die drucker die auf dem remote pc installiert sind auslesen kann. was ja soweit ganz nett ist, aber ich kriege es nicht hin dieses script so umzubatslen, dass es einfach nur ne exe startet.
das script sieht vollgendermaßen aus:

01.

02.
strComputer = InputBox("Bitte IP-Adresse des PC's eingeben:","Installierte Drucker abrufen")
03.
strUsername = InputBox("Bitte Username eines Administrators des Remotesystems eingeben:","Installierte Drucker abrufen")
04.
strPassword = InputBox("Bitte Password des Administrators eingeben:","Installierte Drucker abrufen")
05.
Const WbemAuthenticationLevelPktPrivacy = 6
06.
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
07.
Set objWMIService = objwbemLocator.ConnectServer(strComputer, "root\cimv2", strUsername, strPassword)
08.
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
09.
Set objPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
10.

11.
For Each objPrinter In objPrinters
12.
	WScript.Echo objPrinter.Name
13.
Next
14.
ansich alles selbst erklärend, ip des pc eingeben, adminname, pw und los gehts. aber ich finde einfach keinen passende syntax mit der man einefach auf dem entfernten pc nem prozess zu starten. hab schon google durch geforstet und auch diese service56.chm in anspruch genommen. zwar gibt es dort einige beispiele, aber nicht denn denn ich brauche. was mir ja nicht unbedingt weiterhilft...

hoffe einer von euch, kann mri bei dem problem helfen

grüße

koluschkiB
Mitglied: lefgruen
16.04.2010 um 11:55 Uhr
Hallo,

schau mal nach psexec!

Viel Erfolg
Bitte warten ..
Mitglied: koluschkiB
16.04.2010 um 12:17 Uhr
Hey und danke für denn Tipp,

ich hab ihn schon selbst gefunden, aber will etwas ohne das ich ein PSTool da rein intigieren. es muss doch irgendeinen befehlt geben, der es einfach so straten kann

hab was gefunden, womit man powerpoint starten kann, und wenn das geht muss es auch möglich sein ne calc.exe zu starten

01.

02.
Dim objFSO, objFileCopy, objGuyFile
03.
Dim strFilePath, strDestination 
04.
strComputer = "sexpw193"
05.
strUser = "remotepc\username"
06.
strPassword = "password"
07.
strProcessKill = "'POWERPNT.EXE'"
08.
strFilePath = "d:\H\PowerPoint\presentation.pps"
09.
strDestination ="\\remotepc\PPT$\"
10.
 
11.
  'Kill powerpoint show
12.
    Set wbemLocator = CreateObject("WbemScripting.SWbemLocator")
13.
    Set wbemServices = wbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)
14.
    Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_Process where Name = " & strProcessKill)
15.
 
16.
    For Each wbemObject In wbemObjectSet
17.
        wbemObject.Terminate
18.
    Next
19.
 
20.
		
21.
	'code to copy ppt to dest
22.
	Set objFSO = CreateObject("Scripting.FileSystemObject")
23.
	Set objFileCopy = objFSO.GetFile(strFilePath)
24.
	objFileCopy.Copy (strDestination)
25.
	
26.
	
27.
 
28.
  
29.
  'Restart show
30.
	'Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
31.
	'strCommand = "wscript " & Chr(34) & "D:\PPT\pp.vbs" & Chr(34)
32.
	'objProcess.Create strCommand,null,null,intProcessID
33.
	
34.
	
35.
	
36.
	
37.
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") 
38.
Error = objWMIService.Create("d:\PPT\pp.vbs", null, null,intProcessID) 
39.
 
40.
If Error = 0 Then 
41.
MsgBox (strProcess & " was started with a process ID of " & intProcessID & ".") 
42.
 
43.
Else 
44.
MsgBox (strProcess & " could not be started due to error " & _ 
45.
errReturn & ".") 
46.
 
47.
End If
48.
	
49.
REM Dim objWMIService, objProcess
50.
REM Dim strShell, objProgram, strVBS
51.
 
52.
REM strVBS = "wscript.exe d:\PPT\pp.vbs"
53.
REM ' Connect to WMI
54.
REM set objWMIService = getobject("winmgmts://"_
55.
REM & strComputer & "/root/cimv2") 
56.
 
57.
REM ' Obtain the Win32_Process class of object.
58.
REM Set objProcess = objWMIService.Get("Win32_Process")
59.
REM Set objProgram = objProcess.Methods_( _
60.
REM "Create").InParameters.SpawnInstance_
61.
REM objProgram.CommandLine = strVBS
62.
 
63.
REM 'Execute the program now at the command line.
64.
REM Set strShell = objWMIService.ExecMethod( _
65.
REM "Win32_Process", "Create", objProgram) 
66.
 
67.
REM WScript.echo "Created: " & strVBS & " on " & strComputer
68.
 
69.
 
70.
	Wscript.Quit
71.
wenn das irgendwie möglich ist, gehte s doch sicherlich mit so ner billigen calc.exe

gruß
Bitte warten ..
Mitglied: Edi.Pfisterer
16.04.2010 um 12:51 Uhr
Hallo!
Mann, mann, mann...
Bist Du dir sicher, dass Du die richtige Ausbildung machst? - Nix für ungut, aber:

Bei diesem Beispiel gilt auch nicht mehr die Ausrede, das Skript wäre nicht praxisrelevant...
und: das reine kopieren von Code ist sicher nicht Zweck der Aufgabe...

probier mal folgendes:
http://www.gidf.de/

und dann käme hier die Lösung!
Ich empfehle:
Kopier den Code einfach und überlege Dir keinesfalls, warum und vor allem wie er funktioniert. Nur so ist maximale Bildungsresistenz gewährleistet...
Sorry, aber die harten Worte mussten mal sein!


lg
Edi
Bitte warten ..
Mitglied: koluschkiB
16.04.2010 um 13:10 Uhr
was willst du eigentlich mit deinem sch*** www.gidf.de
glaubst ich bin zu blöd zum googlen?
ich bin durch aus in der lage die suchmaschine auch zu nutzen.
aber es scheint, dass es deine standard antwort auf alle userproblem die hier sind ist, es ist nicht das erstemal, dass du es mir antwortest. wozu gibt es denn das forum hier überhaupt, wenn deine ultimative antwort auf alles www.gidf.de ist?!

ich mach schon dir richtige ausbildung, systemintegration im support. ich hab so viel mit scripten zu tun wie ne kuh mit eier legen. es ist absolut nicht mein ding das programmieren, aber mir bleibt nichts anderes übrig als es bis ende juni übermich ergehen zu lassen. ich versuche auch dahinter zu kommen, wie was funktioniert. und durch welche befehle, etwas in gang gesetzt wird...
wenn ein user bei mir anruft, wegen XY, dann schreib ich keins script um mich auf seinen pc drauf zu schalten, sondern starte einfach SMS-Adminkonsole und siehe da. alles klappt, falls du nicht weist was SMS-Adminkonsole ist ---> www.gidf.de


hab das mit der psexec.exe ausprobiert. zwar nicht über vb sondern cmd

01.
start d:\pstools\psexec.exe \\pcname -u domain/username -w c:\windows\system32\calc.exe
klappt leider nicht so ganz wie ich es mir gedacht habe, zwar öffnet sich bei mir die cmd mit der aufforderung der pw eingabe. aber das programm startet nicht.
das pw gehört dem nutzer des anderen pc, eben so ist als username sein benutzername eingetragen, so wie sein pcname

gruß
Bitte warten ..
Mitglied: koluschkiB
16.04.2010 um 13:20 Uhr
ja, vonwegen kopieren und ja nicht hinterfragen wieso etwas nicht funktioniert.
dein script funktioniert nicht, nach eingabe des pc namens,
kommt n error in

zeile 15 Zeichen 1
Fehler Erlaubnis verweigert.: 'getobject'

so viel dazu...
Bitte warten ..
Mitglied: 45877
16.04.2010 um 14:16 Uhr
Zitat von koluschkiB:
hab das mit der psexec.exe ausprobiert. zwar nicht über vb sondern cmd

01.
> start d:\pstools\psexec.exe \\pcname -u domain/username -w c:\windows\system32\calc.exe
02.
> 
klappt leider nicht so ganz wie ich es mir gedacht habe, zwar öffnet sich bei mir die cmd mit der aufforderung der pw
eingabe. aber das programm startet nicht.
das pw gehört dem nutzer des anderen pc, eben so ist als username sein benutzername eingetragen, so wie sein pcname


Das Programm startet schon, nur halt in der konsole.

Probier mal den -i switch

Ansonsten schau mal hier

http://motevich.blogspot.com/2007/11/execute-program-on-remote-computer ...
Bitte warten ..
Mitglied: koluschkiB
16.04.2010 um 14:27 Uhr

Probier mal den -i switch

was meinst du denn mit -i switch? wo soll ich es denn reinsetzen?


hab denn artikel auch gefunden und getestet, dass problem ist glaueb ich, dass wenn ich es so lasse ich keinen zugriff auf denn remote pc kriege, weil kein benutzer und password abgefragt wird, mir wird der zugriff verweigert.

egal, was ich schon ausprobiert habe, der fehler ist immer der gleiche 'GetObject' kotzt mich schon langsam das ganze

hab folgenedes gemacht, aber selbst dort gibt es immer ne fehlermeldung

01.

02.
strComputer = InputBox("Bitte IP-Adresse des PC's eingeben:")
03.
strUsername = InputBox("Bitte Username eines Administrators des Remotesystems eingeben:")
04.
strPassword = InputBox("Bitte Password des Administrators eingeben:"
05.

06.
strCommand = "notepad.exe"
07.

08.

09.
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer, strUsername, strPassword & "\root\cimv2")
10.
Set objProcess = objWMIService.Get("Win32_Process")
11.

12.

13.
errReturn = objProcess.Create(strCommand, null, null, intProcessID)
14.

15.

16.
If errReturn = 0 Then
17.
Wscript.Echo "notepad.exe was started with a process ID: " & intProcessID
18.
Else
19.
Wscript.Echo "notepad.exe could not be started due to error: " & errReturn
20.
End If
21.
gruß
Bitte warten ..
Mitglied: 45877
16.04.2010 um 14:31 Uhr
Warum machst du es nicht aus ner Adminkosonle?
Bitte warten ..
Mitglied: koluschkiB
16.04.2010 um 14:50 Uhr
meinst aus der mmc? das könnte ich, aber soll es nicht. ich muss nen *.vbs datei schreiben, mit der man auf einem remote pc etwas starten kann.
ich erlerne gerade VBS PS programmieren.
die aufgabe die ide ich habe lautet:

wie kann man VBS-Skripte auf einem Remote PC laufen lassen?

hab nochmal nach gehackt, was mit der frage gemeint ist. wäre einfach sich auf denn anderen pc zu klemmen, das skript dort anlegen und starten aber nein, so soll es nicht sein
es muss was sein, was ich auf meinem pc (lokal) ausführe und auf einem entferneten pc das resultat gesehen wird. mehr oder weniger...
das mit denn drucker auslesen auf anderen pc, war schon ok. aber der aufgabengeber meinte, wäre ein gutes bsp. wenn man zb ne calc.exe auf einem anderen pc starten würde.
es ist schon der 5. Aufgabenpool denn ich gekriegt habe, bis jetzt verlief es ganz gut, aber da wurde eben nur an der oberfläche bisschen gekratzt, jetzt geht es langsam ans eingemacht, was mir gleichzeitig ein paar graue haare mehr bringt

gruß
Bitte warten ..
Mitglied: 45877
16.04.2010 um 15:00 Uhr
nö, ich meine lass es aus ner cmd box entweder per runas oder eben per "ausführen als"
als admin laufen.
Bitte warten ..
Mitglied: Edi.Pfisterer
19.04.2010, aktualisiert 18.10.2012
Hallo koluschki!

Schön, dass ich mich über genau NICHTS ärgere, denn sonst müsste ich es nun!

ICH habe dir zum Biespiel hier eine fixfertige Lösung gemacht!
ICH habe dir noch nie zu GIDF geraten
ICH finde es im übrigen nicht sch* und rate im übrigen dringend davon ab, hier mit Fäkalausdrücken zu hantieren - die Moderatoren sind da empfindlich (im übrigen: ich auch!)

so viel dazu!

Falls DU damit zufrieden bist, lebenslänglich im Supportcenter zu arbeiten, gebe ich Dir recht, dass Scripts zu schreiben für dich keinen Sinn ergibt!

UND: Danke für den Hinweis auf gidf wegen der SMS-Konsole. Ich musste zum Glück nicht googeln, weil mein erster Kontakt zu SMS im Jahre 1999 war, und meine Gedächtnis ist glücklicherweise (und offensichtlich im Gegensatz zu Deinem, da Du ansonsten ja mich nicht des GIDF-Verteilens bezichtigen würdest) völlig intakt. Noch glücklicher bin ich allerdings über den Umstand, dass es mir gelungen ist, diesen Supportjob vor geraumer Zeit an den Nagel zu hängen, um mich der tatsächlichen Planung und Administration grosser Netze zu befassen. Dieser Supportjob ist mir nämlich - wegen der immerwiederkehrenden ähnlichen Probleme - relativ schnell fad geworden. Schätze dich glücklich, wenn Dir nicht so schnell fad wird!!!

Letzten 2 Anmerkungen:

1.) WIR können nichts dafür, dass du VBS für einen Sch* hälst
2.) ICH werde auf keinen Deiner Beiträge mehr Antworten!

trotz allem:
Alles Gute weiterhin

Edi

edit:
zeile 15 Zeichen 1
Fehler Erlaubnis verweigert.: 'getobject'
Falls das Script ohne Bearbeitung funktionieren würde, hättet ihr ein gröberes Poblem, da kein Passwort übergeben wird...
dh, du musst es halt mit Teilen des Codes aus deinem 1. Posting in diesem Beitrag verbinden und es wird funktionieren!
Bitte warten ..
Mitglied: koluschkiB
26.04.2010 um 09:03 Uhr
nie zu gidf gerraten?
da frag ich mcih doch glatt was das für ein link ist?!
wohl nicht von dir hier gepostet worden...

probier mal folgendes:
http://www.gidf.de/
Bitte warten ..
Mitglied: koluschkiB
26.04.2010 um 09:06 Uhr
Letzten 2 Anmerkungen:

2.) ICH werde auf keinen Deiner Beiträge mehr Antworten!


bin dir sehr dankbar dafür, denn du bringst mich kein bisschen weiter
Bitte warten ..
Ähnliche Inhalte
Microsoft

ATLAS-Ausfuhr - Internetausfuhranmeldung Plus (IAA-Plus)

Frage von FischerICTMicrosoft6 Kommentare

Guten Abend -all, ich suche für einen Kungen ein kleines Anwendungsprogramm "Softwarelösung" die die Schnittstelle zu ATLAS aufweist Derzeit ...

Microsoft Office

Outlook VBScript

gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

VB for Applications

VBScript und OR

gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Basic

VBScript hilfe benötigt

Frage von Nico223311Basic1 Kommentar

Guten Tag allerseits. Ich versuche derzeitig ein kleines Programm zu basteln komme aber nicht zu dem Egebniss, welches ich ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 4 TagenWindows 72 Kommentare

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 6 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 7 TagenMicrosoft Office9 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 9 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Notebooks in Firmenwlan authentifizieren
gelöst Frage von EarthShakerLAN, WAN, Wireless17 Kommentare

Guten Tag, unsere Firma möchte gerne flächendeckend WLAN einführen und hat zu diesem Zweck einen Dienstleister beauftragt. Wir benötigen ...

Peripheriegeräte
PS2 Y-Kabel für Maus+Tastatur an PS2 Combo-Anschluss ASUS Prime X370-A
gelöst Frage von Windows10GegnerPeripheriegeräte13 Kommentare

Hallo, ich bin am Überlegen das o.g. Motherboard anzuschaffen. Da ich aber noch PS/2 für Maus+Tastatur benötige (bei optischen ...

Windows 10
Netzlaufwerk verschwindet (aber nur bestimmter Laufwerksbuchstabe)
gelöst Frage von survial555Windows 1010 Kommentare

Hallo, ich habe ein ganz seltsames Problem. Systemumgebung: Server 2012 R2 als DC und Windows 10 Pro als Clients ...

Netzwerkmanagement
Netzwerk vorübergehend weg
Frage von ahstaxNetzwerkmanagement10 Kommentare

Hallo, folgendes Szenario stellt sich dar: Im Netzwerk mit Win7-PCs wurden Switche ausgetauscht. Grundsätzlich funktioniert alles mindestens so gut ...