30.8 C
Firenze
sabato, Luglio 19, 2025
Home Blog Page 3335

Effettuare un Telnet da VbScript

0

Il seguente “spezzone” di codice in linguaggio in VbScript ( Windows Script Host ) si utilizza per effettuare un TELNET a un indirizzo ip
Attenzione : questo piccolo script è da considerare “beta”  (nel senso che non sempre funziona)

[php]
option explicit
dim sdomain, ssmptserver, sport, smailacctfr, smailacctto, smailnamefr, smailnameto
dim sopen, ssubject, sehlo, smailfr1, smailto1, smailfr2, smailto2, WSHShell
sdomain = "1.1.1.10"
ssmptserver = "1.1.1.10"
sport = "25"

sopen = "open " & ssmptserver & " " & sport & "~"

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "Telnet"
WSHShell.AppActivate "Telnet"
WScript.Sleep 2000
WSHShell.SendKeys sopen
WScript.Sleep 5000
[/php]

Altri script in VbScript che potrebbero interessarti :

[catlist id=1381 numberposts=40]

Fonti : VbScript, Telnet da VbScript, effettuare Telnet VbScript, Sctipt per VbScript Telnet

VbScript – Aprire-Leggere un file con VbScript

0

Il seguente “spezzone” di codice in linguaggio in VbScript ( Windows Script Host ) si utilizza per l’apertura di un file di testo.

[php]
On Error Resume Next
‘open the file system object

Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")

‘open the data file
Set oTextStream = oFSO.OpenTextFile("wslist.txt")

‘make an array from the data file
Wscript.Echo oTextStream.ReadAll

‘close the data file
oTextStream.Close
[/php]

Altri script in VbScript che potrebbero interessarti :

[catlist id=1381 numberposts=40]

Aprire un file con VbScript, Leggere un file con VbScript, VbScript aprire file di testo, Open file con VbScript

Vbscript – effettuare una domanda YES-NO

0

Il seguente “spezzone” di codice in linguaggio in VbScript ( Windows Script Host ) richiede all’utente di scegliere in base a una domanda YES – NO.

 

[php]

a = msgbox("Password "&result&" – Confermi?", vbYesNo)

if a = vbYes then
‘SI

else
‘NO

end if

[/php]

Altri script in VbScript che potrebbero interessarti :

[catlist id=1381 numberposts=40]

VbScript domanda si-no, Yes-No in VbScript, chiedere Si o no con VbScript  

Tutti gli Script Vbscript in un solo Programma

0

Tra molti programmi che posso consigliare di installare, quando si ha bisogno di script in Vbscript, uno è sicuramente : vbsedit.com
Sito web del produttore : https://www.vbsedit.com/
Include VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit.
La versione di Valutazione….non scade mai 🙂

Altri script in VbScript che potrebbero interessarti :

[catlist id=1381 numberposts=40]

Vbscript, Tutti script Vbscript, help Vbscript, codice di Vbscript, codici di Vbscript

Vbscript – Verifica se un file esiste su disco – vbs

0

Il seguente codice, in Vbscript, verifica se un file esiste su disco. In caso di esistenza ne misura anche la dimensione.

[php]

Option Explicit
DIM fso , strFile, objFSO , objFile
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("C:\list.txt")) Then

WScript.Echo("File exists!")
CONST bytesToKb = 1024

strFile = "C:\list.txt"
SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
SET objFile = objFSO.GetFile(strFile)
wscript.echo "File Size: " & CINT(objFile.Size / bytesToKb) & "Kb"
WScript.Quit()

Else

WScript.Echo("File does not exist!")

End If

WScript.Quit()

[/php]

questa potrebbe essere una versione semplificata:

[php]
On Error Resume Next
Dim Drive, OggFile, origine, destinazione
origine="c:\1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
set OggFile = fso.GetFile (origine)
if fso.FileExists (origine) then
wscript.echo "Esiste già un file nella cartella prova."
Else
wscript.echo "ciao."
End if
[/php]

Altri script in VbScript che potrebbero interessarti :

[catlist id=1381 numberposts=40]

Vbscript Verifica se un file esiste su disco, Vbscript  verifica esistenza file, controllare se file esiste su disco, controllo esiste file Vbscript, vbs controlla se file esiste, controllo file su disco

Creare un Autorun su CD con Video in Esecuzione Automatica

0

Per fare in modo che un CD-ROM (o un DVD) sia avviato in Autorun con la riproduzione di un video, servono due files:
gmedia.asx – autorun.inf

autorun.inf
Conterrà le informazioni di avvio, nel nostro caso, questa chiamata:

[autorun]
ShellExecute=mplayer2 /fullscreen gmedia.asx

 

gmedia.asx
Conterrà le infomazioni sul Video, per esempio

<ASX Version = “3.0”>
<Title>Andrea AUTORUN CREATOR</Title>
<Entry><Title>Andrea VCD</Title>
<Ref href = “Andrea.mpg” /></Entry>
</ASX>

 

Visualizzare gli utenti e i gruppi del dominio Active Directory

0

Lo script in allegato, mostra (con ciclo) tutti gli utenti e i gruppi presenti in un dominio Active Directory

zip_icon1

 

Utenti di Active Directory, Lista Utenti di Active Directory, Generare lista Utenti di Active Directory, Lista Gruppi Active Directory

Prova di Connessione LDAP database in Active Directory

0

Il seguente script effettua una connessione LDAP al dominio : ceccherini.local
All’interno del ciclo FOR è possibile fare qualsiasi “cosa” :

[php]
Set objOU = GetObject("LDAP://OU=Users,DC=ceccherini,DC=Local")
For each objMember in ObjOU ‘ get all the members’

‘ do something’

Next

Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
wscript.echo strUserDN
Set objUser = GetObject("LDAP://" & strUserDN)

[/php]

Connessione LDAP Active Directory, Connessione database LDAP Active Directory, Connessione LDAP Active Directory riga di comando, script Connessione LDAP Active Directory, Connessione database LDAP in Active Directory da vbscript

Cancellazione Utente in Active Directory a riga di comando

0

Ecco un esempio :

dsrm “cn=andrea,OU=Users,OU=WebUsers,dc=ceccherini,dc=local” -noprompt

dsrm “cn=ceche.it,OU=Groups,OU=WebUsers,dc=ceccherini,dc=local” -noprompt

cancella utente Active Directory, cancellare utente in Active Directory, cancella Active Directory riga di comando, script cancellazione Active Directory, cancellare in Active Directory da vbscript

 

Spostare un utente Active Directory nella sua OU Unità Organizzativa

0

Il comando è il seguente (dominio ceccherini.local), sposteremo TestUser

dsmove “CN=TestUser,CN=Users,DC=ceccherini,DC=local” -newparent “OU=WebUsers,DC=ceccherini,DC=local” -d ceccherini.local -u Administrator -p passwd

ecco come “saltare” due OU

dsmove “CN=utente,CN=Users,DC=ceccherini,DC=local” -newparent “OU=Utenti,OU=Webusers,DC=ceccherini,DC=local ” -d ceccherini.local -u Administrator@dominio -p passwd

spostare utente Unità Organizzativa Active Directory, muovere utente Active Directory, spostare user Active Directory, spostare utente OU Active Directory a riga di comando, spostare utente Active Directory a riga di comando

Ultime dal Nostro BLog