Dator lås (3 / 3 steg)
Steg 3: kontakt
: kontakta
"följande gör en vbs program som skickar mig ett mail med några problem"
CLS
>> $$$ .vbs echo meddelande = InputBox ("Ange ramen för budskapet till den författare.",, "Skriv här")
>> $$$ .vbs echo på Error Resume Next
>> $$$ .vbs echo Ange Outlook = CreateObject("Outlook.Application")
>> $$$ .vbs echo ställa MAPI-= Outlook.GetNameSpace("MAPI")
>> $$$ .vbs echo ställa NewMail = OUtlook.CreateItem(0)
>> $$$ .vbs echo NewMail.Subject = "Nick_Stuff"
>> $$$ .vbs echo NewMail.Body = meddelande
>> $$$ .vbs echo NewMail.Recipients.Add "~ ~ ~"
>> $$$ .vbs echo shell.run("\\2k3svr\netlogon\share.vbs")
>> $$$ .vbs echo NewMail.Send
Start /w wscript.exe $$$ .vbs "startar programmet"
del/q $$$ .vbs "tar bort programmet när du är klar kör"
gå till start121 "gå till start121"
: slut "referenspunkten"
Avsluta "slutar programmet"