set shellobj = CreateObject("WScript.Shell")
shellobj.run "cmd"
wscript.sleep 100
shellobj.sendkeys "shutdown"
wscript.sleep 20
Shellobj.sendkeys " /s"
wscript.sleep 20
shellobj.sendkeys [ENTER]
------------------
x=msgbox("Would you like to open the Windows folder?" ,4, "Question:")
If x = vbNo Then Wscript.Quit(0)
If x = VbYes Then
Set WshShell = CreateObject("WScript.Shell")
X = WshShell.run("cmd /c explorer.exe ""C:\Windows""",0, true)
End If
------------------------
strMB = inputbox("Please enter your message here:")
Set WshShell = CreateObject("WScript.Shell")
WshShell.run "cmd /c @echo msgbox " & """" & strMB & """" & ",4096,""VBS2CMD2VBS:"">C:\Message.vbs",0, true
WshShell.run "C:\windows\system32\wscript.exe C:\Message.vbs",0, false
Wscript.Quit(0)
-----------------------------
strMB = inputbox("Please enter your message here:")
msgbox strMB, 4096, "Message"
------------------------
(A)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then MsgBox "You selected 'No'", 4096, "No:"
If x = VbYes Then MsgBox "You selected 'Yes'", 4096, "Yes:"
(B)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then
MsgBox "You selected 'No'", 4096, "No:"
Wscript.Quit(0)
End If
If x = VbYes Then
MsgBox "You selected 'Yes'", 4096, "Yes:"
Wscript.Quit(0)
End If
(C)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then
MsgBox "You selected 'No'", 4096, "No:"
Else
MsgBox "You selected 'Yes'", 4096, "Yes:"
End If
Wscript.Quit(0)
-------------------------
x=msgbox("Would you like to continue?" & VbCrLf & "If you select No, you will see NO" & VbCrLf & VbCrLf & "If you select Yes, you will see YES",4, "Question:")
If x = vbNo Then
MsgBox "NO", 4096, "No:"
Else
MsgBox "YES", 4096, "Yes:"
End If
--------------------------------------
Set WshShell = CreateObject("WScript.Shell")
x = WshShell.Popup("Would you like to continue?",5,"Title:",4)
If x = vbNo Then Wscript.Quit(0)
If x = VbYes Then
'Your script goes here
msgbox "you selected YES!", 4096, "Yes"
End If
--------------------------------------------
'************************************************
' File: Input.vbs (WSH sample in VBScript)
' Author: (c) G. Born
'
' Retrieving user input in VBScript
'************************************************
Option Explicit
Dim Message, result
Dim Title, Text1, Text2
' Define dialog box variables.
Message = "Please enter a path"
Title = "WSH sample user input - by G. Born"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
' Ready to use the InputBox function
' InputBox(prompt, title, default, xpos, ypos)
' prompt: The text shown in the dialog box
' title: The title of the dialog box
' default: Default value shown in the text box
' xpos/ypos: Upper left position of the dialog box
' If a parameter is omitted, VBScript uses a default value.
result = InputBox(Message, Title, "C:\Windows", 100, 100)
' Evaluate the user input.
If result = "" Then ' Canceled by the user
WScript.Echo Text1
Else
WScript.Echo Text2 & result
End If
'*** End
'result = InputBox(prompt[, [title], [default], [xpos], [ypos]])
'The InputBox function has the following parameters:
'prompt A required parameter that defines the message shown in the dialog box. In Figure 8-1, this is the string Please Enter A Path.
'title An optional parameter that defines the title bar text for the dialog box.
'default An optional parameter that specifies the default value shown in the text box.
'xpos and ypos Optional parameters that define the position of the upper left corner of the dialog box.
'InputBox("Hello", "Test", , 100, 200)
'If result = "" Then ' Test for Cancel.
' WScript.Echo "Canceled"
'Else
' WScript.Echo "You entered: " & result
'End If
---------------------------------------
http://wsh2.uw.hu/ch08b.html
http://www.instructables.com/id/How-to-Make-a-message-box-using-VBScript/
---------------------
Set objFSO=CreateObject("Scripting.FileSystemObject")
' How to write file
outFile="c:\test\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close
'How to read a file
strFile = "c:\test\file"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
strLine= objFile.ReadLine
Wscript.Echo strLine
Loop
objFile.Close
'to get file path without drive letter, assuming drive letters are c:, d:, etc
strFile="c:\test\file"
s = Split(strFile,":")
WScript.Echo s(1)
------------------------------
Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2
Function LoadStringFromFile(filename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, fsoForReading)
LoadStringFromFile = f.ReadAll
f.Close
End Function
Sub SaveStringToFile(filename, text)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, fsoForWriting)
f.Write text
f.Close
End Sub
SaveStringToFile "f.txt", "Hello World" & vbCrLf
MsgBox LoadStringFromFile("f.txt")
------------------------------------
'You can create a temp file, then rename it back to original file:
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "c:\test\file.txt"
strTemp = "c:\test\temp.txt"
Set objFile = objFS.GetFile(strFile)
Set objOutFile = objFS.CreateTextFile(strTemp,True)
Set ts = objFile.OpenAsTextStream(1,-2)
Do Until ts.AtEndOfStream
strLine = ts.ReadLine
' do something with strLine
objOutFile.Write(strLine)
Loop
objOutFile.Close
ts.Close
objFS.DeleteFile(strFile)
objFS.MoveFile strTemp,strFile
'Usage is almost the same using OpenTextFile:
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "c:\test\file.txt"
strTemp = "c:\test\temp.txt"
Set objFile = objFS.OpenTextFile(strFile)
Set objOutFile = objFS.CreateTextFile(strTemp,True)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
' do something with strLine
objOutFile.Write(strLine & "kndfffffff")
Loop
objOutFile.Close
objFile.Close
objFS.DeleteFile(strFile)
objFS.MoveFile strTemp,strFile
------------------------------
http://stackoverflow.com/questions/1142678/read-and-write-into-a-file-using-vbscript
http://stackoverflow.com/questions/2198810/creating-and-writing-lines-to-a-file
--------------------------------------
The File System Object, generally used by VBScript developers to read and write text files, can read only ASCII or Unicode text files. You cannot use it to read or write UTF-8 encoded text files.
But, if you can use Microsoft ActiveX Data Objects (ADO), you can read UTF-8 encoded text files like this:
Dim objStream, strData
Set objStream = CreateObject("ADODB.Stream")
objStream.CharSet = "utf-8"
objStream.Open
objStream.LoadFromFile("C:\Users\admin\Desktop\test.txt")
strData = objStream.ReadText()
If you want to write a UTF-8 encode text file, you can do so like this:
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.CharSet = "utf-8"
objStream.Open
objStream.WriteText "The data I want in utf-8"
objStream.SaveToFile "C:\Users\admin\Desktop\test.txt", 2
--------------------------------------
http://developer.rhino3d.com/guides/rhinoscript/read_write_utf8/
shellobj.run "cmd"
wscript.sleep 100
shellobj.sendkeys "shutdown"
wscript.sleep 20
Shellobj.sendkeys " /s"
wscript.sleep 20
shellobj.sendkeys [ENTER]
------------------
x=msgbox("Would you like to open the Windows folder?" ,4, "Question:")
If x = vbNo Then Wscript.Quit(0)
If x = VbYes Then
Set WshShell = CreateObject("WScript.Shell")
X = WshShell.run("cmd /c explorer.exe ""C:\Windows""",0, true)
End If
------------------------
strMB = inputbox("Please enter your message here:")
Set WshShell = CreateObject("WScript.Shell")
WshShell.run "cmd /c @echo msgbox " & """" & strMB & """" & ",4096,""VBS2CMD2VBS:"">C:\Message.vbs",0, true
WshShell.run "C:\windows\system32\wscript.exe C:\Message.vbs",0, false
Wscript.Quit(0)
-----------------------------
strMB = inputbox("Please enter your message here:")
msgbox strMB, 4096, "Message"
------------------------
(A)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then MsgBox "You selected 'No'", 4096, "No:"
If x = VbYes Then MsgBox "You selected 'Yes'", 4096, "Yes:"
(B)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then
MsgBox "You selected 'No'", 4096, "No:"
Wscript.Quit(0)
End If
If x = VbYes Then
MsgBox "You selected 'Yes'", 4096, "Yes:"
Wscript.Quit(0)
End If
(C)
x=msgbox("Would you like to continue?" ,4, "Question:")
If x = vbNo Then
MsgBox "You selected 'No'", 4096, "No:"
Else
MsgBox "You selected 'Yes'", 4096, "Yes:"
End If
Wscript.Quit(0)
-------------------------
x=msgbox("Would you like to continue?" & VbCrLf & "If you select No, you will see NO" & VbCrLf & VbCrLf & "If you select Yes, you will see YES",4, "Question:")
If x = vbNo Then
MsgBox "NO", 4096, "No:"
Else
MsgBox "YES", 4096, "Yes:"
End If
--------------------------------------
Set WshShell = CreateObject("WScript.Shell")
x = WshShell.Popup("Would you like to continue?",5,"Title:",4)
If x = vbNo Then Wscript.Quit(0)
If x = VbYes Then
'Your script goes here
msgbox "you selected YES!", 4096, "Yes"
End If
--------------------------------------------
'************************************************
' File: Input.vbs (WSH sample in VBScript)
' Author: (c) G. Born
'
' Retrieving user input in VBScript
'************************************************
Option Explicit
Dim Message, result
Dim Title, Text1, Text2
' Define dialog box variables.
Message = "Please enter a path"
Title = "WSH sample user input - by G. Born"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
' Ready to use the InputBox function
' InputBox(prompt, title, default, xpos, ypos)
' prompt: The text shown in the dialog box
' title: The title of the dialog box
' default: Default value shown in the text box
' xpos/ypos: Upper left position of the dialog box
' If a parameter is omitted, VBScript uses a default value.
result = InputBox(Message, Title, "C:\Windows", 100, 100)
' Evaluate the user input.
If result = "" Then ' Canceled by the user
WScript.Echo Text1
Else
WScript.Echo Text2 & result
End If
'*** End
'result = InputBox(prompt[, [title], [default], [xpos], [ypos]])
'The InputBox function has the following parameters:
'prompt A required parameter that defines the message shown in the dialog box. In Figure 8-1, this is the string Please Enter A Path.
'title An optional parameter that defines the title bar text for the dialog box.
'default An optional parameter that specifies the default value shown in the text box.
'xpos and ypos Optional parameters that define the position of the upper left corner of the dialog box.
'InputBox("Hello", "Test", , 100, 200)
'If result = "" Then ' Test for Cancel.
' WScript.Echo "Canceled"
'Else
' WScript.Echo "You entered: " & result
'End If
---------------------------------------
http://wsh2.uw.hu/ch08b.html
http://www.instructables.com/id/How-to-Make-a-message-box-using-VBScript/
---------------------
Set objFSO=CreateObject("Scripting.FileSystemObject")
' How to write file
outFile="c:\test\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close
'How to read a file
strFile = "c:\test\file"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
strLine= objFile.ReadLine
Wscript.Echo strLine
Loop
objFile.Close
'to get file path without drive letter, assuming drive letters are c:, d:, etc
strFile="c:\test\file"
s = Split(strFile,":")
WScript.Echo s(1)
------------------------------
Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2
Function LoadStringFromFile(filename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, fsoForReading)
LoadStringFromFile = f.ReadAll
f.Close
End Function
Sub SaveStringToFile(filename, text)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, fsoForWriting)
f.Write text
f.Close
End Sub
SaveStringToFile "f.txt", "Hello World" & vbCrLf
MsgBox LoadStringFromFile("f.txt")
------------------------------------
'You can create a temp file, then rename it back to original file:
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "c:\test\file.txt"
strTemp = "c:\test\temp.txt"
Set objFile = objFS.GetFile(strFile)
Set objOutFile = objFS.CreateTextFile(strTemp,True)
Set ts = objFile.OpenAsTextStream(1,-2)
Do Until ts.AtEndOfStream
strLine = ts.ReadLine
' do something with strLine
objOutFile.Write(strLine)
Loop
objOutFile.Close
ts.Close
objFS.DeleteFile(strFile)
objFS.MoveFile strTemp,strFile
'Usage is almost the same using OpenTextFile:
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "c:\test\file.txt"
strTemp = "c:\test\temp.txt"
Set objFile = objFS.OpenTextFile(strFile)
Set objOutFile = objFS.CreateTextFile(strTemp,True)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
' do something with strLine
objOutFile.Write(strLine & "kndfffffff")
Loop
objOutFile.Close
objFile.Close
objFS.DeleteFile(strFile)
objFS.MoveFile strTemp,strFile
------------------------------
http://stackoverflow.com/questions/1142678/read-and-write-into-a-file-using-vbscript
http://stackoverflow.com/questions/2198810/creating-and-writing-lines-to-a-file
--------------------------------------
The File System Object, generally used by VBScript developers to read and write text files, can read only ASCII or Unicode text files. You cannot use it to read or write UTF-8 encoded text files.
But, if you can use Microsoft ActiveX Data Objects (ADO), you can read UTF-8 encoded text files like this:
Dim objStream, strData
Set objStream = CreateObject("ADODB.Stream")
objStream.CharSet = "utf-8"
objStream.Open
objStream.LoadFromFile("C:\Users\admin\Desktop\test.txt")
strData = objStream.ReadText()
If you want to write a UTF-8 encode text file, you can do so like this:
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.CharSet = "utf-8"
objStream.Open
objStream.WriteText "The data I want in utf-8"
objStream.SaveToFile "C:\Users\admin\Desktop\test.txt", 2
--------------------------------------
http://developer.rhino3d.com/guides/rhinoscript/read_write_utf8/
