When I tried a small code to add printer on window 10 enterprise 64bits. I meet error 800A01CE. Please help me to resolve this problem. This is my source
Option Explicit
Dim strPrinterUNC, objNetwork
strPrinterUNC = "\\10.95.200.11\HP LaserJet 400"
Set objNetwork = createObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strPrinterUNC
objNetwork.SetDefaultPrinter strPrinterUNC
Set objNetwork = Nothing
MsgBox ("Add printer successfully")
My error as image.
I tried change strPrinterUNC manytime, but I still got the error above. Please suggest me the way to custom my code.
Thank you,
Related
I wrote a vbscript program to automatically join Google Meet sessions, with the code that is required to enter the meet generated based on the date and time. Whenever I run the program, it opens in the background of the computer in infinite windows(repeatedly opening a new instance of Google Meet every second). The keystrokes that are supposed to be directed toward Internet Explorer are instead sent to whatever is active. The line of code that is supposed to make it the active window are not working: WshShell.AppActivate "Internet Explorer" I believe that this below section is what is causing problems. Any help is greatly appreciated!
option explicit
dim webbrowser, WshShell
set webbrowser = createobject("internetexplorer.application")
set WshShell = createobject("Wscript.Shell")
webbrowser.statusbar = false
webbrowser.menubar = false
webbrowser.toolbar = false
webbrowser.visible = true
webbrowser.navigate("https://meet.google.com/")
wscript.sleep(3000)
WshShell.AppActivate Internet Explorer
WshShell.sendkeys "{enter}"
I don't know why did you use sendkeys ?
You should write something like that :
Option explicit
dim webbrowser
set webbrowser = createobject("internetexplorer.application")
webbrowser.statusbar = false
webbrowser.menubar = false
webbrowser.toolbar = false
webbrowser.visible = true
webbrowser.navigate("https://meet.google.com/")
Do while webbrowser.readystate <> 4
wscript.sleep 200
Loop
I need a vbs script with a message box that opens iexplorer when I click yes, and close the msg box when I click no. Thanks, I am new to programming, and need help. Thank you.
Give a shoot for this code :
Option Explicit
Dim Title,Answer,ws,Site
Site = "https://stackoverflow.com/"
Title = "Open iexplore.exe"
Answer = MsgBox("Did you want to open iexplore.exe ?",VbQuestion+VbYesNo,Title)
If Answer = vbYes Then
set ws = CreateObject("wscript.shell")
ws.run("iexplore.exe" &" "& Site)
End If
Wscript.Quit()
You can use this:
response = MsgBox("Would you like to open Internet Explorer?", vbYesNo)
If response = vbYes Then
WScript.CreateObject("WScript.Shell").Run("iexplore")
End If
For my job I often need to enter standard texts in an application to show which actions have been taken.
At a previous job I have been using a VBScript that I found that worked perfectly. What it does is open up an inputbox, you enter a number and the script runs the corresponding subroutine entering the text you requested.
Below you can find an example script of how it works.
In the past I used it in Windows XP, which worked perfectly:
I'm in my application, ready to input text.
I use a shortcut key to start up the VBScript, say CTRL-ALT-T
The inputbox opens
I enter a number
The inputbox closes and Windows XP automatically goes back to my application
The text is being put in the application
But Windows 7 has a slightly different task behaviour. When a window closes in W7, the previous window appears on screen but is NOT actively selected. As a result, the text is not being put in that window.
Is there any way to make the window actively selected?
I'm interested in a solution in VBScript form. But if someone happens to know a solution to change Windows 7's behaviour so it behaves like Windows XP concerning this issue, that would be interesting as well. I find the old behaviour much more convenient in general.
Here's a short example of the script:
'-----------------------------
'VBScript for inputting text
'-----------------------------
Option Explicit
Dim oFS, oWS, oWN, Shell
Set oWS = WScript.CreateObject("WScript.Shell")
Set oWN = WScript.CreateObject("WScript.Network")
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
'-------
' Menu
'-------
Select Case InputBox ( _
"Enter type of comment, then press enter or click Ok..." & vbCrlf & vbCrlf & _
" [1] Text 1" & vbCrlf & _
" [2] Text 2", _
"Menu")
Case "1"
Call sub1()
Case "2"
Call sub2()
Case Else
WScript.Echo "You entered an invalid menu choice!"
End Select
Call CleanUp
'------------
' Subroutines
'------------
'------------------
Sub CleanUp()
Set oWS = Nothing
Set oWN = Nothing
Set oFS = Nothing
WScript.Quit
End Sub
'------------------
Sub sub1()
WScript.Sleep 500
Shell.SendKeys "Standard text 1{ENTER}"
End Sub
'------------------
Sub sub2()
WScript.Sleep 500
Shell.SendKeys "Standard text 2{ENTER}"
End Sub
I have found a simple solution which I have been using for a few days now without any problems. I added below code right after the beginning of each sub:
Shell.SendKeys("%{ESC}")
I've read every question that came up when I typed my title, as well as several other web pages, and I still haven't found the answer I'm looking for. I believe this is fairly straightforward, just must be missing something as my program doesn't do anything.
Here's what I want it to do (for all practical purposes, let's say I'm searching for my favorite discussion here on SO):
Have the main SO page loaded (stackoverflow.com/).
Utilize the Open File (CTRL+O) feature of IE to enter the specific address of the page I'm looking for.
Utilize the Select All (CTRL+A) feature to highlight the entire text to be copied.
Utilize CTRL+C and CTRL+V to, respectively, copy and paste this into a word document for presentation purposes.
Here's the code I have so far:
' Sets up the objects.
Dim objIE, WshShell, objWord
Set wshShell = WScript.CreateObject ("WSCript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
Set objWord = Application.CreateObject("Word.Application")
Dim i, strUserID
with CreateObject("InternetExplorer.Application")
wshShell.SendKeys "^O"
.navigate "http://stackoverflow.com/questions/[link of question would go here]"
wshShell.SendKeys "^A"
wshShell.SendKeys "^C"
AppActivate ("Document1 - Microsoft Word")
wshShell.SendKeys "^V"
end with
For some reason, this isn't working the way I want it to. Any suggestions?
I am trying to write a simple script that will send the key combo of CTRL+WINDOWS KEY+TAB. The code below sends the keys CTRL+ALT+TAB
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^%{TAB}"
However when I try to replace "%" (aka the ALT key) with LWIN (aka the Left Windows Key) it says Syntax Error.
I tried the following, but had no luck:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{LWIN}{TAB}"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{LWIN}+{TAB}"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys ^{LWIN}+{TAB}
I know it has something to do with being able to Hold certain keys while other keys are pressed but I can't seem to get it right.
The windows key can be pressed programmatically using CTRL+ESC. Is there a way to set this combination as a variable called LWIN and then use one of the above Scripts?
Just in case someone land here on these years...
A workaround (instead of sending keystrokes) is to call directly to the application:
Set objShell = CreateObject("Shell.Application")
objShell.WindowSwitcher
This will open Task Switcher Windows App. (Same as ⊞ windows+TAB)
try this code:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "+(^{LWIN}{TAB})"
I know you are looking for VBscript but it looks like that is unlikely (pure VBscript). Here is a post that did solve this via C#.
https://stackoverflow.com/a/10367832/1742115
This page tells how to call the C# DLL from your VBscript if you want to keep some of this in vbs.
I think your question is an example of an XY problem and what you actually want to do is to activate Flip 3D (Switch between windows). You can do this programmatically by executing the rundll32 DwmApi #105 command:
CreateObject("WScript.Shell").Run "rundll32 DwmApi #105"