Вы можете использовать параметр командной строки как Мэтт говорит , чтобы перевести скрипт в режим отладки, например,
dim isdebug: isdebug = WScript.Arguments.Named.Exists("debug")
WScript.Echo("in debug mode: " & isdebug)
Который вы можете вызвать с помощью
wscript debugscript.vbs /debug
Чтобы получить текущее имя пользователя, вы можете использовать либо WMI Service , либо WScript.Network
объект.
Получив имя пользователя, вы можете условно броситьInputBox
и соберите возвращаемое значение:
dim date_: date_ = Now()
if isdebug and username = "me" then
dim value: value = CDate(InputBox("enter the date and time (dd/mm/yyyy hh:mm:ss)", "please", Now()))
' validate the input here
date_ = CDate(value)
end if
И, наконец, чтобы запутать ваш код, вы можете использовать Scripting.Encoder
, хотя похоже, что это не такбыть поддерживаемым в Vista или Windows 7. Похоже, что есть несколько попыток прибегнуть к поиску фразы vbscript , в любом случае.