codicefacile

Programmazione per TUTTI…

Archivio per la categoria “Visual Basic”

VBS – Rinominare FILE aggiungendo la data al nome

Piccolo scriptino in VBS che rinomina tutti i file presenti in una cartella e li rinomina aggiungendo la data e l’ora…

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
For Each objItem in colItems
Wscript.Echo "renaming in corso…"
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM Cim_Datafile WHERE Name = " _
& "’c:\\cartella\\file_da_rinominare.estensione")
For Each objFile in colFiles
errResult = objFile.Rename("c:\\cartella\\file_rinominato" & objItem.Year & objItem.Month & objItem.Day & objItem.Hour & objItem.Minute & objItem.Second & ".estensione")
Wscript.Echo errResult
Next
Next

Ciao Ciao…

VBSCRIPT – Inviare fax su serverWEB

Dal momento che vorrei installare un server fax su sistema Windows e dal momento che vorrei includere tale applicazione ad un portale mi sono messo alla ricerca di qualche dritta per poter inviare fax attraverso web server.
Ebbene alla fine ho trovato questo scriptino in vbscript che penso possa fare al caso mio… premetto che ancora non l’ho testato…

<%@LANGUAGE = VBScript%>
<%
Dim MioFax, MioDocumento, MioFile
Set MioFax = Server.CreateObject(“FaxServer.FaxServer.1”)
MioFax.Connect(“\\nome_server”)
MioFile = Server.MapPath(“miofax.doc”)
Set MioDocumento = MioFax.CreateDocument(MioFile)
MioDocumento.FaxNumber = “000,0000000”
MioDocumento.Send
MioFax.DisConnect
Set MioDocumento = Nothing
Set MioFax = Nothing
Response.write “Fax inviato con successo!”
%>

Tratto da: MRWEBMASTER

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

Navigazione articolo

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