FAQ VBScriptConsultez toutes les FAQ

wscript //H:WScript

wscript //H:CScript

1
2
3
4
Dim i 
Dim MonText 
Dim toto, titi 
Dim arg1, arg2, arg3

1
2
Dim i As Integer 
Dim MonText As String

1
2
3
MsgBox "Appuyer sur OK pour lancer la pause" 
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s 
MsgBox "2 secondes Plus tard"

If MyVar = 0 Then WScript.Quit

MsgBox WScript.ScriptFullName

MsgBox WScript.ScriptName

1
2
3
4
5
6
If wscript.Arguments.length = 2 Then  
  MsgBox wscript.arguments(0),wscript.arguments(1), "FaqVbs" 
Else 
  wscript.Echo "Nombre d'arguments incorrect" 
  Wscript.Echo "MsgBox Message iType" 
End if

MsgBox "Bonjour à tous " 48

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const RETURNONLYFSDIRS = &H1 
  
Set oShell = CreateObject("Shell.Application") 
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\") 
If oFolder is Nothing Then  
	MsgBox "Abandon opérateur",vbCritical 
Else 
  Set oFolderItem = oFolder.Self 
  MsgBox oFolderItem.path 
End If 
  
Set oFolderItem = Nothing 
Set oFolder = Nothing 
Set oShell = Nothing

1
2
3
4
Const RETURNONLYFSDIRS = &H1 
Const NONEWFOLDERBUTTON = &H200 
  
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS + NONEWFOLDERBUTTON, "c:\")

1
2
3
4
5
Const RETURNONLYFSDIRS = &H1 
Const NONEWFOLDERBUTTON = &H200 
Const UAHINT = &H100 
  
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS + NONEWFOLDERBUTTON + UAHINT, "c:\")

1
2
3
4
5
Set objDialog=CreateObject("SAFRCFileDlg.FileOpen") 
ObjDialog.OpenFileOpenDlg 
strFileName=objDialog.FileName 
Wscript.Echo strFileName 
Set objDialog=Nothing

1
2
3
4
5
6
7
Set oDlg=CreateObject("UserAccounts.CommonDialog.1") 
oDlg.Filter="Tous les fichiers(*.*)|*.*|Fichier text(*.txt)|*.txt" 
oDlg.FilterIndex=2 
oDlg.InitialDir="C:\" 
oDlg.ShowOpen 
Wscript.echo oDlg.filename 
set oDlg= nothing

1
2
3
4
Function GetFileNameDlg() 
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll 
End Function 
MsgBox GetFileNameDlg()

1
2
3
4
5
Function GetFileDlgEx(sIniDir,sFilter,sTitle) 
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") 
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';" 
  GetFileDlgEx = oDlg.StdOut.ReadAll 
End Function

1
2
3
4
5
sIniDir = "C:\Windows\*.*pdf" 
sFilter = "Adobe pdf (*.pdf)|*.pdf|All files (*.*)|*.*|Microsoft Word (*.doc;*.docx)|*.doc;*.docx|Image files (*.gif;*.png;*jpg;*.bmp)|*.gif;*.png;*jpg;*.bmp|Html files (*.htm;*.html;*.mht)|*.htm;*.html;*.mht|" 
sTitle = "GetFileDlg by omen999 2014 - http://omen999.developpez.com" 
rep = GetFileDlgEx(Replace(sIniDir,"\","\\"),sFilter,sTitle) 
MsgBox rep & vbcrlf & Len(rep)

1
2
3
Set oShell = WScript.CreateObject("WScript.Shell") 
iRet = oShell.Popup ("Bonjour le monde ",10,"10s avant clic sur OK",vbOKCancel+16) 
Wscript.Echo iRet

sClipValue = CreateObject("htmlfile").parentWindow.clipboardData.getData("Text")

CreateObject("WScript.Shell").Exec("clip.exe").StdIn.Write sClipValue

1
2
3
4
5
6
7
8
9
10
11
12
13
' pas de code exécuté avant cette ligne 
Set oShell = CreateObject("WScript.Shell") 
If InStr(1,WScript.FullName,"WScript.exe",vbTextCompare) > 0 Then 
For Each Arg In WScript.Arguments 
  If InStr( Arg, " " ) Then Arg = """" & Arg & """" 
    sArgs = sArgs & " " & Arg 
  Next 
  oShell.Run "cscript.exe """ & WScript.ScriptFullName & """ " & sArgs,0,False 
  WScript.Quit  
End If 
sClipValue="Hello world" 
oShell.Exec("clip.exe").StdIn.Write sClipValue 
MsgBox WScript.Arguments.Count