codicefacile

Programmazione per TUTTI…

AppleScript – Creare cartella sul DESKTOP

Piccolo scriptino che crea una cartella sul desktop. Avviandolo vi verrà solo richiesto il nome della cartella.

set theName to the text returned of (display dialog “NOME CARTELLA?” with title “CREAZIONE CARTELLA NEL DESKTOP” with icon 2 default answer “” buttons {“CREA”} default button “CREA”)

tell application “Finder”

activate

make new folder at folder “Desktop” of folder “proiezione31” of folder “Users” of startup disk with properties {name:theName}

end tell

A presto…

Annunci

Visual Basic – Aggiungere Script dentro pagina HTML

Piccola pillola per inserire all’interno di una pagina HTML un scriptino in Visual Basic:

<html>
<head>
</head>
<body>
<script type=”text/vbscript”>
document.write(“This is my first vbscript program”)
</script>
</body>
</html>

Tratto da: Microsoft

Visual Basic – Script per impostare WORKGROUP al Client

Piccolo scriptino in Visual Basic che può essere utile in ogni momento specialmente quando bisogna cambiare il WorkGroup di molti Client….

Option Explicit

Const JOIN_WORKGROUP = 0

Dim strComputer, strWorkgroup, objComputer, ReturnValue
Dim objNetwork:        Set objNetwork = CreateObject(“WScript.NetWork”)
Dim wshShell:        Set wshShell = Createobject(“WScript.Shell”)

strComputer        = objNetwork.ComputerName
strWorkgroup    = “workgroup”

Set objComputer    = GetObject(“winmgmts:{impersonation­ Level=Impersonate}!\\” _
& strComputer & “\root\cimv2:Win32_ComputerSystem.  Name='” _
& strComputer & “‘”)

ReturnValue = objComputer.JoinDomainOrWorkGroup(  strWorkgroup, _
NULL, NULL, NULL, JOIN_WORKGROUP)

If (ReturnValue <> 0) Then
Wscript.Echo “Something went wrong”
Else
Wscript.Echo “Successfully joined ” & strWorkgroup
End If

Ciao Ciao

AppleScript – Inviare Mail “al volo”

A volte mi capita di dover inviare mail al volo… senza stare troppo ad aspettare di aprire Mail… ho quindi provveduto creandomi questo piccolo scriptino senza troppi fronzoli che mi permette di inviare mail inserendo destinatario, oggetto e messaggio.

Spero vi piaccia…

set destinatario to text returned of (display dialog “DESTINARIO:” with title “INVIO MAIL – DESTINATARIO” with icon 1 default answer “” buttons {“CREA”, “ANNULLA”} default button “ANNULLA”)
set soggetto to text returned of (display dialog “OGGETTO:” with title “INVIO MAIL – OGGETTO” with icon 2 default answer “” buttons {“CREA”, “ANNULLA”} default button “ANNULLA”)
set messaggio to text returned of (display dialog “MESSAGGIO:” with title “INVIO MAIL – MESSAGGIO” with icon 2 default answer “” buttons {“CREA”, “ANNULLA”} default button “ANNULLA”)
tell application “Mail”
set theNewMessage to make new outgoing message with properties {subject:soggetto, content:messaggio, visible:true}
tell theNewMessage
make new to recipient at end of to recipients with properties {address:destinatario}
send
end tell
end tell

Ciao Ciao

Guida Perl

Consiglio quest’ottima guida per iniziare un’approccio al Perl davvero ben fatta:

Guida Perl

Navigazione articolo

%d blogger hanno fatto clic su Mi Piace per questo: