Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: koluschkiB

koluschkiB (Level 1) - Jetzt verbinden

16.04.2010, aktualisiert 18.10.2012, 11800 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Tools
AppwizRemote - Appwiz.cpl auf einem Remote PC

Link von evgkop zum Thema Windows Tools ...

IDE & Editoren
USB STICK Datei AUTOMATISCH beim anschliessen auf fremden PC öffnen (9)

Frage von Jwanner83 zum Thema IDE & Editoren ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...