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 CMD Fenster bei Aufruf von vbScript Funktion verstecken

Mitglied: homecomingservice

homecomingservice (Level 1) - Jetzt verbinden

01.04.2011, aktualisiert 14:08 Uhr, 6626 Aufrufe, 6 Kommentare

Hallo Leute!

ich habe eine Function geschrieben die so aussieht


01.
Public Function SNMPAbfrage (version, ipadresse, OID ) 
02.
	Dim WshShell, oExec, name 
03.
	Set WshShell = CreateObject ("WScript.Shell") 
04.
	Set oExec = WshShell.Exec ("snmpget -" & version & " -c public " & ipadresse & " " & OID) 
05.
	Do While oExec.Status = 0 
06.
		WScript.Sleep 100 
07.
	Loop 
08.
	Do While oExec.StdOut.AtEndOfStream <> True 
09.
		name = oExec.StdOut.ReadLine 
10.
	Loop 
11.
	If inStr(name, Chr (34)) Then	 
12.
		searchleft = Chr (34) 
13.
		searchright = Chr (34) 
14.
		result = mid (name, instr(name, searchleft)+1, instrrev(name, searchright)-instr(name, searchleft)-1) 
15.
	Else 
16.
		result=right (name, len(name)-instrrev (name," ")) 
17.
	End If 
18.
	SNMPAbfrage = result 
19.
end function
nun möchte ich das CMD Fenster das beim Aufrufen dieser Function erscheint verstecken
wisst ihr wie ich das umsetzen könnte?

Vielen Dank
homecomingservice
Mitglied: colinardo
01.04.2011 um 15:26 Uhr
  • Sowas kannst du mit Exescript machen -> http://www.hide-folder.com/overview/hf_7.html
  • Das WSH Shell Objekt bietet noch eine "Run" Methode, der du einen Wert für die Sichtbarkeit mitgeben kannst - leider ist der Rückgabewert der Funktion kein WshScriptExec-Object.
  • Oder das ganze in ein AutoIt-Script packen, das bietet Optionen dafür.

Wenn du willst mach ich dir aus dem Script eine "EXE"-Datei mit verstecktem Fenster....

Uwe
Bitte warten ..
Mitglied: homecomingservice
01.04.2011 um 15:39 Uhr
Danke Uwe für deine antwort
das Problem is bloß das Programm ist etwas länger ich habe 13 SNMP abfragen und lass mir den Rückgabewert Speziell zurückgeben.
Es wird mir für jede einzelne SNMP Abfrage ein Fenster geöffnet und dann weider geschlossen kann man das Komplett mit der Run Methonde verstecken?
Das mit der Run Methode hab ich auch schon gelesen nur leider kenn ich mich nich allzugut in vbs aus (das Script erstelln war schon Arbeit genug :D)

Bei Bedarf Poste ich dir auch das ganze Script
lg homecomingservice
Bitte warten ..
Mitglied: colinardo
01.04.2011 um 15:46 Uhr
Was passiert ausserhalb des Funktionsaufrufes ? kommen irgendwelche grafischen Ausgaben zum Einsatz oder schreibt das Script die Ergebnisse in eine Datei ? Post mal das ganze Script...
Bitte warten ..
Mitglied: homecomingservice
01.04.2011 um 15:53 Uhr
01.
'Script zum Abfragen eines Druckers per SNMP 
02.
' Abfrage bestimmter Werte wie Tonerstand und Status 
03.
 
04.
 
05.
'Deklaration und Wertzuweisung von Constanten und Variablen 
06.
Dim IP, OID, Version , modell, status, maxgedruckt, fagedruckt, swgedruckt, swmax, swatm, mamax, maatm, gemax 
07.
Dim cymax, cyatm, sw, ma, ge, cy, WshShell, oExec, name, result 
08.
Const intOK = 0 
09.
Const intWarning = 1 
10.
Const intCritical = 2 
11.
Const intUnknown = 3 
12.
IP = "192.168.50.207" 
13.
OID = "1.3.6.1" 
14.
Version = "v1" 
15.
 
16.
'SNMP-Abfrage vorgegebener Werte 
17.
modell = SNMPAbfrage (Version, "192.168.50.207",".1.3.6.1.4.1.1347.40.10.1.1.5.1") 
18.
If modell = "ErrSNMPprog" Then 
19.
	'SNMP-Programm nicht vorhanden 
20.
ElseIf modell <> "" Then 
21.
	sernum = SNMPAbfrage (Version, IP, OID & ".2.1.43.5.1.1.17.1") 
22.
	status = SNMPAbfrage (Version, IP, OID & ".2.1.25.3.5.1.1.1") 
23.
	maxgedruckt =  SNMPAbfrage (Version, IP, OID & ".2.1.43.10.2.1.4.1.1") 
24.
	fagedruckt =  SNMPAbfrage (Version, IP, OID & ".4.1.1347.42.2.2.1.1.3.1.2") 
25.
	swgedruckt =  SNMPAbfrage (Version,IP, OID & ".4.1.1347.42.2.2.1.1.3.1.1") 
26.
	swmax = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.8.1.4") 
27.
	swatm = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.9.1.4") 
28.
	mamax = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.8.1.2") 
29.
	maatm = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.9.1.2") 
30.
	gemax = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.8.1.3") 
31.
	geatm = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.9.1.3") 
32.
	cymax = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.8.1.1") 
33.
	cyatm = SNMPAbfrage (Version, IP, OID & ".2.1.43.11.1.1.9.1.1") 
34.
	sw = (swatm * 100) / swmax 
35.
	ma = (maatm * 100) / mamax 
36.
	ge = (geatm * 100) / gemax 
37.
	cy = (cyatm * 100) / cymax 
38.
End If 
39.
 
40.
 
41.
'Ausgabe der Daten 
42.
If modell = "" Then 'Gerät nicht erreichbar 
43.
	Wscript.Echo "IP:" & " " & IP & "-" & "Statusabfrage nicht möglich" 
44.
	Wscript.Quit(intUnknown) 
45.
ElseIf modell = "ErrSNMPprog" Then 'SNMP-Programm nicht vorhanden 
46.
	Wscript.Echo "SNMPT-Programm nicht vorhanden" 
47.
	Wscript.Quit(intCritical) 
48.
ElseIf sw <=5 or cy <=5 or ma <=5 or ge <=5 Then 'Tonerstand unter 5% 
49.
	Wscript.Echo modell & " " & "(" & "SerNR" &" " & sernum & "/" & "IP" & " " & IP & ")" & "-" & "Tonerstand unter 5%" & "-" & "Zählerstand:" & " " & maxgedruckt & "(Farbe:" & " " & fagedruckt & "/SW:" & " " & swgedruckt & "-" & "Tonerstand: K" & " " & sw & "%" & "/C" & " " & cy & "%" & "/M" & " " & ma & "%" & "/Y" & " " & ge & "%" 
50.
	Wscript.Quit(intCritical) 
51.
ElseIf sw <= 20 or cy <=20 or ma <=20 or ge <=20 Then 'Tonerstand unter 20% 
52.
	Wscript.Echo modell & " " & "(" & "SerNR" &" " & sernum & "/" & "IP" & " " & IP & ")" & "-" & "Tonerstand unter 20%" & "-" & "Zählerstand:" & " " & maxgedruckt & "(Farbe:" & " " & fagedruckt & "/SW:" & " " & swgedruckt & "-" & "Tonerstand: K" & " " & sw & "%" & "/C" & " " & cy & "%" & "/M" & " " & ma & "%" & "/Y" & " " & ge & "%" 
53.
	Wscript.Quit(intWarning) 
54.
Else 'Alles OK 
55.
	Wscript.Echo  modell & " " & "(" & "SerNR" &" " & sernum & "/" & "IP" & " " & IP & ")" & "-" & status & "-" & "Zählerstand:" & " " & maxgedruckt & "(Farbe:" & " " & fagedruckt & "/SW:" & " " & swgedruckt & "-" & "Tonerstand: K" & " " & sw & "%" & "/C" & " " & cy & "%" & "/M" & " " & ma & "%" & "/Y" & " " & ge & "%" 
56.
	Wscript.Quit(intOK) 
57.
End If	 
58.
 
59.
'SNMP-Abfrage 
60.
Public Function SNMPAbfrage (version, ipadresse, OID ) 
61.
	Dim WshShell, oExec, name 
62.
	Set WshShell = CreateObject ("WScript.Shell") 
63.
	Set oExec = WshShell.Exec ("snmpget -" & version & " -c public " & ipadresse & " " & OID) 
64.
	Do While oExec.Status = 0 
65.
		WScript.Sleep 100 
66.
	Loop 
67.
	Do While oExec.StdOut.AtEndOfStream <> True 
68.
		name = oExec.StdOut.ReadLine 
69.
	Loop 
70.
	If inStr(name, Chr (34)) Then	 
71.
		searchleft = Chr (34) 
72.
		searchright = Chr (34) 
73.
		result = mid (name, instr(name, searchleft)+1, instrrev(name, searchright)-instr(name, searchleft)-1) 
74.
	Else 
75.
		result=right (name, len(name)-instrrev (name," ")) 
76.
	End If 
77.
	SNMPAbfrage = result 
78.
end function
das ist das Komplette Script Liest per SNMP Werte aus dem drucker und gibt mir nur 1 Ausgabe je nach Rückgabe Daten aus
ich möchte das Script später einmal für Icinga benutzen
Bitte warten ..
Mitglied: colinardo
01.04.2011 um 16:04 Uhr
du kannst das script auf der Kommandozeile so aufrufen, dann erscheinen keine Fenster:
01.
cscript //B NAME_DER_VBS.VBS
Danach kannst du dann den Rückgabewert auswerten...
Bitte warten ..
Mitglied: homecomingservice
01.04.2011 um 17:23 Uhr
Super! Danke! so sollte es sein :D
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Exe ohne Fenster aus vb aufrufen
gelöst Frage von Mit.ohne.AhnungBatch & Shell12 Kommentare

Hallo Zusammen, ich erstelle gerade ein Programm mit Visual Studio und möchte eine exe aufrufen ohne das ein Fenster ...

Batch & Shell

Powershell: Parameter einer Funktion soll eine Funktion aufrufen

gelöst Frage von SaschaRDBatch & Shell3 Kommentare

Hallo zusammen, mein Ziel ist es die Zeitdauer einer Prozesses zu ermitteln. Dafür ist die folgende Funktion zuständig:Leider wird ...

Batch & Shell

Taskkill für bestimmtes cmd Fenster

gelöst Frage von n0cturneBatch & Shell6 Kommentare

Hallo Zusammen, ich rufe mit einer cmd (title=Testanwendung-Watchdog-%Variable%) die psexec folgendermaßen auf: Nun mögchte ich genau dieses CMD Fenster ...

JavaScript

Wie funktioniert der Aufruf für folgende Funktion?

gelöst Frage von PeacerJavaScript4 Kommentare

Hallo Zusammen, habe hier eine HTML Seite und möchte wissen wie folgender Funktionsaufruf funktioniert: Folgende JS Dateien wurden im ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...