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 VB Computername in den Zwischenspeicher

Mitglied: Auggiman

Auggiman (Level 1) - Jetzt verbinden

02.03.2010 um 09:34 Uhr, 8136 Aufrufe, 13 Kommentare

Leider bin ich nicht wirklich in VB drin, brauche dennoch Hilfe

Hallo zusammen,

ich muss zwecks Dateispeichern in einem Makro den Computernamen per VB auslesen und in den Zwischenspeicher legen. Leider brachte die Suche bei Google nicht den gewünschten Erfolg. Auch habe ich mich noch nicht wirklich mit VB auseinandergesetzt.

Vielleicht kann mir jemand helfen oder sogar das Script dafür hier benennen.

Vielen Dank schonmal.

Grüße
Stefan
Mitglied: HStumpf
02.03.2010 um 11:25 Uhr
Hallo,

was soll zum Einsatz kommen
VBScript:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next
--> Beippiel zeigt den Namen in der Console an

oder

soll Visual Basic zum Einsatz kommen?

Horst
Bitte warten ..
Mitglied: Auggiman
02.03.2010 um 11:29 Uhr
Hallo Horst,

vielen Dank erstmal für die Antwort.

Es soll Visual Basic zum Einsatz kommen.

Grüße
Stefan
Bitte warten ..
Mitglied: HStumpf
02.03.2010 um 12:00 Uhr
Hallo,

Dim strCNAME As String=System.Windows.Forms.SystemInformation.ComputerName()
oder
Dim strCNAME As String=System.Environment.MachineName()
Bitte warten ..
Mitglied: Auggiman
02.03.2010 um 12:58 Uhr
Hallo nochmal,

er macht immer wieder Probleme in VBA. Bei Dim strCNAME sagt er unerwarteter Fehler. Nehme ich den ersten Code kommt die Meldung: Keine Objektreferenz.

Was mache ich falsch?

Grüße
Stefan
Bitte warten ..
Mitglied: HStumpf
02.03.2010 um 14:40 Uhr
Hallo,

bei VBA siehts anders aus:

Dim strcname As String
strcname = Environ("COMPUTERNAME")

Horst
Bitte warten ..
Mitglied: Auggiman
02.03.2010 um 21:42 Uhr
Hallo Horst,

vielen Dank. Das funktioniert soweit. Allerdings wird der Computername bis jetzt nicht im Zwischenspeicher abgelegt. Mir fehlt noch was, richtig?

Grüße
Stefan
Bitte warten ..
Mitglied: Biber
02.03.2010 um 22:15 Uhr
Moin Auggiman,

Mir fehlt noch was, richtig?
Vielleicht ein vernünftiger Prozess?

Warum um Gates willen willst du denn
  • über ein VBA-Geraffel, das normalerweise nur im Kontext einer Excel/Outlook/Word/Sonstwas-Office-Appz leben kann
  • eine Umgebungsvariable auslesen
  • und die in den Zwischenspeicher legen???

Bitte schreib jezz' nich, diese Brünette aus der Buchhaltung möchte gern ein Excel-Makro "Computernamen zum Copy&Paste bereitlegen" haben, damit sie das dann mit Strg-C in ihre Outlook-Signatur einfügen kann...

Wie sieht denn der ganze Plan aus, der zu diesem "Upps, wofür dieses Werkzeug wohl gut sein mag?"-Durchprobieren geführt hat?

Grüße
Biber
Bitte warten ..
Mitglied: Auggiman
02.03.2010 um 22:23 Uhr
Hallo,

nix Buchhaltung, eher Kundenseitig

Ich nutze ein Makrotool, welches Userabläufe interaktiv ablaufen lässt. Dazu gehört u.a. das Öffnen einer Word Datei und dann wieder das Speichern unter einem anderen Namen. Da ich hier eine Trennung für mehrere Rechner benötige, bin ich leider auf das Auslesen aus dem Zwischenspeicher als Variable beschränkt. Sprich, ich kann den Dateinamen zwar eingeben lassen, möchte aber den Rechnernamen mit einfügen. Allerdings kann das Makrotool auch VBA und somit könnte ich den Computernamen in den Zwischenspeicher einlesen und ihn später wieder herausholen.

Dafür die ganze Aktion.

Und Durchprobieren ist nicht. Soweit läuft alles, nur das Auslesen klemmt eben. ich nutze auch aktiv google und Co., aber irgendwo hakt noch was.

Grüße
Stefan
Bitte warten ..
Mitglied: HStumpf
02.03.2010 um 22:41 Uhr
Hallo,

Zwischenspeicher = Zwischenablage?

http://www.online-excel.de/excel/singsel_vba.php?f=28

Horst
Bitte warten ..
Mitglied: Biber
03.03.2010 um 10:53 Uhr
Moin Auggiman,

Ich nutze ein Makrotool, welches Userabläufe interaktiv ablaufen lässt. Dazu gehört u.a. das Öffnen einer Word Datei und dann wieder das Speichern unter einem anderen Namen. Da ich hier eine Trennung für mehrere Rechner benötige, bin ich leider auf das Auslesen aus dem Zwischenspeicher als Variable beschränkt. Sprich, ich kann den Dateinamen zwar eingeben lassen, möchte aber den Rechnernamen mit einfügen. Allerdings kann das Makrotool auch VBA und somit könnte ich den Computernamen in den Zwischenspeicher einlesen und ihn später wieder heraushole
Das hört sich für mich alles nicht so an, als würde sich irgendjemand die Patentrechte darauf sichern lassen wollen oder auch nur, dass jemand dieses Gestrunkele als Arbeitsprobe der eigenen Skriptfähigkeiten bei einem Bewerbungsgespräch vorlegen möchte.

Gibt es den keinen anderen Weg? Welcher Namenskonvention folgen denn diese bearbeiteten/geclonten Worddateien sonst so?
Ich meine, wenn sich der "neue" Name wenigstens vollständig generieren ließe, z.B. als Kombination von Alt-Dateiname+Username oder Rechnername+Datum oder ähnlich, dann könntest du wenigtens dieses (wie du es scherzhaft genannt hast) "interaktive" Strg-C-Drücken wegschmelzen.

Und zum andern... wenn du die "Dateinamen durch Unterbringen von %computername% im Namen" kenntlich machen willst, dann liegt der Verdacht nahe, dass diese Dateien noch ein weiteres Mal halbautomatisiert weiterverarbeitet werden müssen.

Das hört sich alles irgendwie eher gewachsen als gesund an.

Magst du mal den ganzen Prozess skizzieren?

P.S. Ist wirklich nicht so, dass ich keinen Spass am Skripten hätte.
Aber ich finde, es sollte nicht alles umgesetzt werden, was technisch im Bereich der Runtertippselbaren liegt.

Grüße
Biber
Bitte warten ..
Mitglied: Auggiman
03.03.2010 um 11:22 Uhr
Hallo Biber, Hallo Horst,

nachdem ich bis spät nachts noch gebastelt habe und Eure Hilfe sehr schätze, aber auch Eure Bedenken, habe ich mit nochmals genauer mit dem Tool auseinandergesetzt und nutze nun die Funkton, das er mir den Hostnamen aus einer Datei ausliest, die ich vorher festlege und als Variable festlegt.

Ich wollte es eigentlich schon vollautomatisieren, aber wenn es nicht funktioniert, dann lasse ich es doch. So habe ich doch noch ein wenig zu tun.

Evtl. aber gibt es die Möglichkeit, unter Win XP mit Office 2003 Prof. ein kleines VBS zu erstellen, welches mir den Hostnamen ausliest und in eine Textdatei namens hostname.txt schreibt.

Wäre dies möglich?

Nochmals vielen, vielen Dank für Eure Mühe(n).

Grüße
Stefan
Bitte warten ..
Mitglied: Biber
03.03.2010 um 13:00 Uhr
Moin Auggiman,

nochmals zum Verständnis:
  • eine Umgebungsvariable %COMPUTERNAME% gibt es ohnehin auf jedem Windowsrechner.
  • der Inhalt dieser Variablen %COMPUTERNAME% lässt sich auch (unter einigen Windowsversionen) mit einer Winz-Exe namens hostname.exe abfragen als "Hostname".
  • Und natürlich könnte auch dieser Hostnam/computername in eine einzeilige Textdatei geschrieben werden. Macht ihn aber weder aktueller noch verkässlicher noch konsistenter.

--> Wenn und weil es eine immer vorhandene, immer aktuelle Umgebungsvariable %COMPUTERNAME% gibt, deshalb sollte diese auch als Umgebungsvariable aktuell abgefragt werden... OHNE Zwischenclonerei als Textdatei, ini-Dateiwert oder selbst benamste Variable "myComputername".
--> bedeutet: wenn du diesen ver###te Variableninhaltet Environ("COMPUTERNAME") in einem VBA-Makro brauchst, dann genau wie in dieser Zeile angegeben.
---> Wenn Du den Rechnernamen erst dann brauchst, wenn du die Word-Dateien weiterverarbeitest, dann ergänze die Info erst dann (beim Abholen/Kopieren/Lesen der "Rechner"spezifischen Datei-Version.

Grüße
Biber
Bitte warten ..
Mitglied: Auggiman
22.04.2010 um 09:48 Uhr
Hallo zusammen,

ich habe nun eine andere Möglichkeit genutzt:

echo %computername% >C:\hostname.txt

Das hat mir geholfen.

Dennoch vielen Dank nochmals für Eure Unterstützung.

Grüße
Stefan
Bitte warten ..
Ähnliche Inhalte
Visual Studio

VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld)

gelöst Frage von nepixlVisual Studio7 Kommentare

Hallo Admins, sitze aktuell an einem kleinen Problem. Per VB wird das Tool NCFTP(.exe) gestartet, NCFTP arbeitet allerdings im ...

Visual Studio

Email Versenden Mit VB

gelöst Frage von UltraZzVisual Studio2 Kommentare

Hey,ich würde gerne wissen wie man mit VB eine Email versenden kann. Ich habe schon folgendes versucht,aber es hat ...

Visual Studio

VB PictureBox halbtransparent machen

gelöst Frage von Leogal0010Visual Studio3 Kommentare

Hey Administratoren! Ich habe in letzter zeit Visual Basic für mich entdeckt, bin jedoch noch nicht sonderlich geübt, also ...

VB for Applications

Hilfe bei VB Skript

Frage von Voner1502VB for Applications1 Kommentar

Hallo zusammen. Ich habe ein Skript für die Übernahme von Druckern vom alten Servern zum neuen Server bekommen. Diese ...

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

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 4 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 5 TagenMicrosoft Office7 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 7 TagenSicherheit2 Kommentare

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

Heiß diskutierte Inhalte
Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation12 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities11 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Peripheriegeräte
Empfehlung für Home-USV (ca. 450VA 270W) Irgendwelche Osterpreisaktionen bekannt?
Frage von Server-NutzerPeripheriegeräte9 Kommentare

Hallo und schöne Ostern. Meine private Heim-USV Yunto Q450 (ca. 450VA 270W) hat sich nach vielen Jahren ohne Probleme ...