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 Vbscript - prüfen ob windows 32bit oder 64bit

Mitglied: micneu

micneu (Level 2) - Jetzt verbinden

23.01.2011 um 10:41 Uhr, 16089 Aufrufe, 3 Kommentare

Hallo Leute hoffe ihr könnt mir helfen.

Ich beschäftige mich mal wieder mit vbscript.
Und nun meine frage wie kann ich in vbscript prüfen ob windows in 32bit oder 64bit läuft.

gruß michael
Mitglied: EvilMoe
23.01.2011 um 11:13 Uhr
01.

02.
On Error Resume Next
03.

04.
Dim WshShell
05.
Dim OsType
06.

07.
Set WshShell = CreateObject("WScript.Shell")
08.

09.
OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")
10.

11.
If OsType = "x86" then
12.
wscript.echo "Windows 32bit system detected"
13.
elseif OsType = "AMD64" then
14.
wscript.echo "Windows 64bit system detected"
15.
end if
16.
Erster Link in google.
Bitte warten ..
Mitglied: micneu
23.01.2011 um 11:40 Uhr
danke das ging ja schnell

gruß michael
Bitte warten ..
Mitglied: Friemler
23.01.2011 um 15:19 Uhr
Hallo EvilMoe,

meiner Erfahrung nach funktioniert diese Methode nicht zuverlässig. Ich musste mich bei der Erstellung von Batchfiles für unser Programmiererteam mit dem Thema herumschlagen. Einige verwenden auf ihren Entwicklermaschinen 32Bit-Systeme, die anderen 64Bit-Systeme (Vista oder Win7). Aus einem Batch-Skript sollte der Compiler mit einer Projektdatei als Parameter gestartet werden. Auf 32Bit-Systemen liegt er in C:\Program Files, auf 64-Bit Systemen in C:\Program Files (x86). Dafür brauchte ich eine Unterscheidung. Auf manchen 64Bit-Systemen hatte die Variable PROCESSOR_ARCHITECTURE trotzdem den Wert x86...

Zuverlässig hat folgende Abfrage funktioniert:
01.
if "%ProgramFiles(x86)%" neq "" (
02.
  set "Programs=C:\Program Files (x86)"
03.
) else (
04.
  set "Programs=C:\Program Files"
05.
)
@micneu:
Prüfe die Umgebungsvariablen auf die Existenz einer Variablen ProgramFiles(x86), wenn sie existiert bist Du auf einem 64Bit-System, wenn nicht auf einem 32Bit-System.

Könnte so gehen:
01.
Set WshShell = WScript.CreateObject("WScript.Shell")
02.
Set WshSysEnv = WshShell.Environment("PROCESS")
03.

04.
If WshSysEnv("ProgramFiles(x86)") = "" Then
05.
  OSType = "32Bit"
06.
Else
07.
  OSType = "64Bit"
08.
End If
09.

10.
WScript.Echo OSType
Oder per WMI-Abfrage:
01.
strComputer = "."
02.
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
03.
Set colOSs = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
04.

05.
For Each OS in colOSs 
06.
  OSType = OS.OSArchitecture
07.
Next
08.

09.
WScript.Echo OSType
Ergebnis: 32-Bit oder 64-Bit

Gruß
Friemler
Bitte warten ..
Ähnliche Inhalte
Windows Server

Server 2008 32bit auf 2016 64bit Migration

Frage von chrisproudWindows Server6 Kommentare

Hallo, ich hänge im Moment noch an der Migration eines Windows Server 2008 Standard (32bit) auf einen Windows Server ...

Windows Server

Windows Server 2012, Drucker per GPO für 32bit und 64bit Clients greifen nicht

gelöst Frage von schnuepelWindows Server7 Kommentare

Hallo Kollegen :) Ich habe folgendes Problem: Auf einem Win2012 Server ist ein Printserver installiert. Dort sind erst einmal ...

Microsoft Office

Via SCCM Office 2013 32bit ersetzen durch Office 2016 64bit

Frage von KarstenFMicrosoft Office9 Kommentare

Hallo liebe Admins, Wir setzen zur Zeit Windows 10 mit Office 2013 32bit ein und möchten diese durch Office ...

VB for Applications

Ein Objekt konnte nicht geladen werden von Office 32bit auf 64bit

Frage von Gregor81VB for Applications1 Kommentar

Hallo zusammen, mein Vorgänger hat ein Word Formular mit einer VBA Programierung versehen, anbei ein kleiner Ausschnitt: Unter Office ...

Neue Wissensbeiträge
E-Mail

Newsletter: Unread News - IT News in Byte Länge

Tipp von franktaylor vor 6 StundenE-Mail6 Kommentare

Hallo, würde gerne auf einen Newsletter hinweisen, den ich heute per Zufall gefunden und mit euch gerne teilen möchte: ...

Outlook & Mail

Outlook 2016 stürzt ab, wenn man ein (at)- Zeichen im Text einer neuen E-Mail schreibt

Tipp von Enriqe vor 19 StundenOutlook & Mail4 Kommentare

Bei uns in der Firma häuften sich die Fälle, bei denen sich Outlook kommentarlos verabschiedet, wenn man ein - ...

Google Android

Google sperrt Android-Updates und den Play Store für Huawei

Information von Deepsys vor 1 TagGoogle Android8 Kommentare

Das finde ich schon ein starkes Stück, Trump der Welt Diktator. So kann man mit einem Dekret mal eben ...

Windows 7

Südkoreas Regierung setzt auf Linux, um Windows 7 Clients abzulösen

Information von kgborn vor 2 TagenWindows 74 Kommentare

Kleiner Infosplitter zum Wochenanfang: Während München (LiMux) und die niedersächsische Finanzverwaltung von Linux auf einen Windows 10-Client (und Office) ...

Heiß diskutierte Inhalte
DNS
DNS fragt falsche ip zuerst ab
gelöst Frage von recoldDNS23 Kommentare

Hallo zusammen, wollte mal fragen, was mit meiner DNS falsch ist? der A eintrag 88.48.118.88 sollte auf den ts3 ...

Windows Server
Passwortänderung an RODC möglich?
Frage von DexthaWindows Server23 Kommentare

Hallo, ich habe einen RODC, auf welchen ich über ldaps (Web-Seite mit php7) Passwortänderungen durchführen möchte. Ist das grundsätzlich ...

Windows 10
Windows am MAC
gelöst Frage von LeeX01Windows 1019 Kommentare

Guten Abend zusammen, ich habe gerade ein Macbook Pro vor mir welches ich mit einem Windows 10 to go ...

Windows Server
RDP als Citrix Alternative
gelöst Frage von samreinWindows Server17 Kommentare

Hallo zusammen, ich bin neu hier und das ist mein erster Beitrag. Ich bin Einzeladmin und wir setzen bei ...