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

Mitglied: Cyberkey

Cyberkey (Level 1) - Jetzt verbinden

19.03.2010 um 17:01 Uhr, 5708 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
Vbs Script Hilfe
gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

Entwicklung
VBS Script in Powershell aufrufen
gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

Batch & Shell

Vbs programm unabhängig vom Speicherort ausführen

gelöst Frage von Markus2016Batch & Shell2 Kommentare

Hallo zusammen, über ein vbs möchte ich unabhängig vom Speicherort ein Programm starten. Das vbs wird über ein anderes ...

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

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 6 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 7 TagenMicrosoft Office9 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 9 TagenSicherheit2 Kommentare

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

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Notebooks in Firmenwlan authentifizieren
gelöst Frage von EarthShakerLAN, WAN, Wireless17 Kommentare

Guten Tag, unsere Firma möchte gerne flächendeckend WLAN einführen und hat zu diesem Zweck einen Dienstleister beauftragt. Wir benötigen ...

Peripheriegeräte
PS2 Y-Kabel für Maus+Tastatur an PS2 Combo-Anschluss ASUS Prime X370-A
gelöst Frage von Windows10GegnerPeripheriegeräte13 Kommentare

Hallo, ich bin am Überlegen das o.g. Motherboard anzuschaffen. Da ich aber noch PS/2 für Maus+Tastatur benötige (bei optischen ...

Windows 10
Netzlaufwerk verschwindet (aber nur bestimmter Laufwerksbuchstabe)
gelöst Frage von survial555Windows 1010 Kommentare

Hallo, ich habe ein ganz seltsames Problem. Systemumgebung: Server 2012 R2 als DC und Windows 10 Pro als Clients ...

Netzwerkmanagement
Netzwerk vorübergehend weg
Frage von ahstaxNetzwerkmanagement10 Kommentare

Hallo, folgendes Szenario stellt sich dar: Im Netzwerk mit Win7-PCs wurden Switche ausgetauscht. Grundsätzlich funktioniert alles mindestens so gut ...