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

Kleines Script in VBS erzeugen das bei freiem Speicher ein Programm ausführt

Frage Entwicklung Basic

Mitglied: Cyberkey

Cyberkey (Level 1) - Jetzt verbinden

19.03.2010 um 17:01 Uhr, 5626 Aufrufe, 3 Kommentare

Habe leider nicht so viele Kenntnisse auf dem Gebiet.

Hallo,

wollte ein kleines Script schreiben das den freien Festplattenspeicher z.B. von C ausliest.
Dann soll der Wert als Variable übernommen werden. Mit einer IF Variable >500MB Then goto 1 Else goto 2
1:
Start Programm1
End sub
2:
'Nichts tun
End sub

Dieses Script kommt dann in den Autostart und soll z.b. Updates verhindern wenn kein freier Speicher mehr Frei ist.

Kennt sich da vll. jemand besser aus?
Mitglied: bstefan82
19.03.2010 um 17:24 Uhr
hier mal nen copy&paste von eines meiner login scripte:

01.
on error resume next 
02.
dim minFreeSpace 
03.
minFreeSpace = 1765 
04.
dim fsoObject, sysdrv 
05.
 
06.
    haveEnoughFreeSpace = false 
07.
    strComputer = "."  
08.
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
09.
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48)  
10.
    set fsoObject = WScript.CreateObject("Scripting.FileSystemObject") 
11.
    set sysDrv = fsoObject.GetDrive(fsoObject.GetDriveName("c:")) 
12.
        For Each objItem in colItems 
13.
    if (objItem.Name = sysDrv) then 
14.
        'if (objItem.DriveType = 3) then 
15.
            'WScript.echo "Drive " & objItem.Caption & " free space: " & FormatNumber(objItem.FreeSpace/(1024^2), 0,0,0,0) & "MB" 
16.
            if (objItem.FreeSpace/(1024^2) > minFreeSpace) then 
17.
                haveEnoughFreeSpace = true 
18.
             else 
19.
		freespaceleft = round(objItem.FreeSpace/(1024^2),0) 
20.
	    end if 
21.
    end if 
22.
    Next 
23.
         
24.
    if (haveEnoughFreeSpace = false) then 
25.
	if SendWarnMsg(freespaceleft ) = false then 
26.
        msgTxt = " *** Warnung ***" & chr(13) 
27.
        msgTxt = msgTxt & " Auf dem Systemlaufwerk befindet sich zuwenig freier Speicher. " & chr(13) 
28.
        msgTxt = msgTxt & " Dies kann zu Fehlverhalten und Abstürzen führen. Bitte unter " & chr(13) 
29.
 	msgTxt = msgTxt & " XXXXXXXXXXXXX anrufen, damit der Fehler behoben werden kann. " 
30.
        Msgbox msgTxt , 16, "Systemlaufwerk voll" 
31.
        end if 
32.
        WScript.Quit(1) 
33.
    end if 
34.
     
35.
    WScript.Quit (0) 
36.
 
37.
function SendWarnMsg(fspace) 
38.
on error resume next 
39.
set objNetwork = CreateObject("WScript.Network") 
40.
 
41.
strComputerName = objNetwork.Computername 
42.
 
43.
Set objEmail = CreateObject("CDO.Message") 
44.
objEmail.From = "PCHEALTH@xxx.xx" 
45.
objEmail.To = "xxx@xxx.xx" 
46.
objEmail.Subject = strComputerName & " - Systemlaufwerk voll"  
47.
objEmail.Textbody = "Restkapazität des Systemlaufwerks auf " & strComputerName  & " unter Schwellenwert. Verfügbar: " & fspace 
48.
objEmail.Configuration.Fields.Item _ 
49.
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
50.
objEmail.Configuration.Fields.Item _ 
51.
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ 
52.
        "xxx.xxx.locall"  
53.
objEmail.Configuration.Fields.Item _ 
54.
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
55.
objEmail.Configuration.Fields.Update 
56.
objEmail.Send 
57.
if err then 
58.
	SendWarnMsg = false 
59.
 else 
60.
	SendWarnMsg = true 
61.
end if 
62.
end function
Bitte warten ..
Mitglied: 76109
19.03.2010 um 18:03 Uhr
Hallo Cyberkey!

Oder so:
01.
Const Programm = """C:\Windows\Notepad.Exe"""    'Leerzeichen im Pfad erlaubt 
02.
    
03.
Set Fso = CreateObject("Scripting.FileSystemObject") 
04.
Set WshShell = CreateObject("WScript.Shell") 
05.
    
06.
If Round(Fso.GetDrive("C").FreeSpace / (1024^2), 0)  > 500 Then  WshShell.Run Programm, 1, False    'Size in MB
Gruß Dieter
Bitte warten ..
Mitglied: Cyberkey
19.03.2010 um 18:51 Uhr
Danke.. es Funktioniert jetzt...
@bstefan82 .. vll. kann ich mir von deinem noch was abgucken für ev. erweiterungen =)
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Verknüpfung in vbs erzeugen
gelöst Frage von Domain-JaneVB for Applications9 Kommentare

Schönen guten Nabend! Seit einer Weile versuche ich, mir mittels vbs eine Verknüpfung erzeugen zu lassen. Dazu habe ich ...

Batch & Shell
Wenn XX freier speicher dann goto
gelöst Frage von functionstrutBatch & Shell4 Kommentare

Hallo :-) ich hänge hier irgendwie an einer kleinigkeit und bekomme es nicht hin. ich möchte das wenn 10GB ...

Batch & Shell
1GB Daten mit kleinen Dateien erzeugen
Frage von 103148Batch & Shell11 Kommentare

Hallo, ich bräuchte eine Batch, mit der ich 1GB Daten mit kleinen Dateien erzeugen kann. Also 1.txt bis 213213213.txt ...

Festplatten, SSD, Raid
Systempartition Erweitern mit Freiem Speicher DAVOR
Frage von YannoschFestplatten, SSD, Raid6 Kommentare

Hallo zusammen, habe hier ein Problemchen bzgl. der Erweiterung der Systempartition. C: Ist bei 650 MB Free Disk Space ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless9 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Wieso kann ich den UPD 7000-9000 nicht freigeben?
Frage von Jayk0bRouter & Routing8 Kommentare

Router: Telekom W 723V Ports: UDP 7000-9000 Können nicht frei gegeben werden. Benutzgrund: Rocket League 7000 – 9000 UDP ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing8 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...